[gelöst] - markierte Zelle oder Bereich per Makro abwählen

[fbarc]

Hi zusammen,

ich hänge an einer Kleinigkeit:

Ich habe einen markierten Bereich, der manuell festgelegt wurde. Beim Start des Makros soll nun diese Markierung aufgehoben werden.

Kann mir da jemand einen kleinen Schubs geben

Danke...

[karolus]

Hallo
Gib der Maus vorher noch einen kleinen Schubs und zucke mit dem Zeigefinger.

Bitte

[fbarc]

Scherzkeks...

einen "gedanklichen Schubs" brauch ich...

Ein Makro darf erst ausgeführt werden, wenn nichts mehr markiert ist.

der Befehl um "abwählen" der Markierung fehlt mir.

[karolus]

Hallo

lies doch mal

[craig]

Hallo fbarc,

hier mal was zum Testen einer Zellauswahl (einzelne Zelle, zusammenhängender Zellbereich, mehrere Zellbereiche/ Mehrfachauswahl):

Code: Alles auswählen

REM  *****  BASIC  *****

REM ══════════════════════════════════════════════════════════════════════════════════════════════════
REM 				CALC: markierte Zellen/ Zellbereich auf Auswahl prüfen
REM ══════════════════════════════════════════════════════════════════════════════════════════════════
Sub [Zellauswahl pruefen]
Dim oDoc as Object
Dim oCC as Object
Dim oSheet as Object
Dim oCell as Object
Dim oAuswahl as Object

Dim bErr as Boolean

	oDoc=ThisComponent
		oCC=oDoc.CurrentController
		  oSheet = oDoc.Sheets(0)
			  oCell =  oSheet.getCellByPosition(0,0)  
		oCC.select("A1")
  oAuswahl = oDoc.getCurrentSelection
  If     oAuswahl.supportsService("com.sun.star.sheet.SheetCell")       Then
	    MsgBox ("einzelne Zelle")
REM Cursor in Zelle A1 setzen
'    			oCC.Select(oCell)
    		bErr= False
  ElseIf oAuswahl.supportsService("com.sun.star.sheet.SheetCellRange")  Then
    MsgBox ("Einfachauswahl:" & chr(10) & "Sie dürfen nur einzelne Zellen auswählen!" & chr(10) & _
    		"Das Programm wird beendet.",63,"Es wurde mehr als eine Zelle ausgewählt!")
    		bErr= True
REM Cursor in Zelle A1 setzen
'    			oCC.Select(oCell)
  ElseIf oAuswahl.supportsService("com.sun.star.sheet.SheetCellRanges") Then
    MsgBox ("Mehrfachauswahl:" & chr(10) & "Sie dürfen nur einzelne Zellen auswählen!" & chr(10) & _
    		"Das Programm wird beendet.",63,"Es wurde mehr als eine Zelle ausgewählt!")
    		bErr= True
REM Cursor in Zelle A1 setzen
'    			oCC.Select(oCell)
  End If

End Sub

[fbarc]

Hallo Craig,

Vielen Dank...

mit "oCC.Select(oCell)" die Auswahl auf eine definierte Zelle zu setzen war genau das war mir gefehlt hat.

Gruß
Fabi