Seite 1 von 1
[gelöst] - markierte Zelle oder Bereich per Makro abwählen
Verfasst: Fr 29. Apr 2022, 13:44
von 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...
Re: markierte Zelle oder Bereich per Makro abwählen
Verfasst: Fr 29. Apr 2022, 16:11
von karolus
Hallo
Gib der Maus vorher noch einen kleinen Schubs und zucke mit dem Zeigefinger.
Bitte
Re: markierte Zelle oder Bereich per Makro abwählen
Verfasst: Fr 29. Apr 2022, 16:25
von 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.
Re: markierte Zelle oder Bereich per Makro abwählen
Verfasst: Fr 29. Apr 2022, 17:16
von karolus
Re: markierte Zelle oder Bereich per Makro abwählen
Verfasst: Fr 29. Apr 2022, 20:24
von 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
Re: markierte Zelle oder Bereich per Makro abwählen
Verfasst: Fr 29. Apr 2022, 21:38
von 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