BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

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

Alles zur Programmierung im LibreOffice.
Antworten
fbarc
Beiträge: 33
Registriert: Mi 8. Dez 2021, 02:47

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

Beitrag von fbarc » Fr 29. Apr 2022, 13:44

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...
Zuletzt geändert von fbarc am Fr 29. Apr 2022, 21:47, insgesamt 1-mal geändert.
Gruß
Fabi

--------------------------------
Mein System: Linuxmint 20.2 | LibreOffice Version: 7.3.4.2
--------------------------------
Meine Signatur steht auf der Rückseite

Benutzeravatar
karolus
Beiträge: 2170
Registriert: Fr 10. Dez 2010, 10:01

Re: markierte Zelle oder Bereich per Makro abwählen

Beitrag von karolus » Fr 29. Apr 2022, 16:11

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

Bitte
LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)

fbarc
Beiträge: 33
Registriert: Mi 8. Dez 2021, 02:47

Re: markierte Zelle oder Bereich per Makro abwählen

Beitrag von fbarc » Fr 29. Apr 2022, 16:25

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.
Gruß
Fabi

--------------------------------
Mein System: Linuxmint 20.2 | LibreOffice Version: 7.3.4.2
--------------------------------
Meine Signatur steht auf der Rückseite

Benutzeravatar
karolus
Beiträge: 2170
Registriert: Fr 10. Dez 2010, 10:01

Re: markierte Zelle oder Bereich per Makro abwählen

Beitrag von karolus » Fr 29. Apr 2022, 17:16

LO7.4.7.2 debian 12(bookworm) auf Raspberry4b 8GB (64bit)
LO7.6.3.2 flatpak debian 12(bookworm) auf Raspberry4b 8GB (64bit)

craig
Beiträge: 1137
Registriert: Do 21. Apr 2016, 11:42

Re: markierte Zelle oder Bereich per Makro abwählen

Beitrag von craig » Fr 29. Apr 2022, 20:24

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
Gruß

Craig

Nie die Sicherungskopie vergessen!

════════════════════════════════════════════════
WIN 10 Pro 64-Bit • LO 7.4.5.1 (x64) • AOO 4.1.8

fbarc
Beiträge: 33
Registriert: Mi 8. Dez 2021, 02:47

Re: markierte Zelle oder Bereich per Makro abwählen

Beitrag von fbarc » Fr 29. Apr 2022, 21:38

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
Gruß
Fabi

--------------------------------
Mein System: Linuxmint 20.2 | LibreOffice Version: 7.3.4.2
--------------------------------
Meine Signatur steht auf der Rückseite

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten