Seite 1 von 1
Zellbereich ermitteln
Verfasst: Do, 03.06.2004 12:16
von Wolfgang Lampert
Hi,
ich möchte einen Zellbereich markieren und diesen dann per Makro bearbeiten.
Leider schaffe ich nicht, die Informationen
.StartColumn
.StartRow
.EndColumn
.EndRow
zu ermitteln.
mfg
Wolf
Verfasst: Do, 03.06.2004 15:16
von Wolfgang Lampert
Habe doch noch Lösung geschafft; funktioniert - sollte es jedoch noch sinnvollere Lösungen geben, bitte Info
sub Bereich_identifizieren
Dim oDoc as Object, oSheet as Object 'Identifizierung Spreadsheet + Tabelle
dim oBereich as object 'Identifizierung des aktivierten Zellbereiches
oDoc = StarDesktop.CurrentComponent
oBereich = oDoc.getCurrentSelection().getRangeAddress() 'aktive Cursorposition identifizieren
msgbox "Spalte AB: " +oBereich.StartColumn 'TestAusgabe
msgbox "Spalte BIS: " +oBereich.EndColumn
msgbox "Zeile AB: " + oBereich.StartRow
msgbox "Zeile BIS: " + oBereich.EndRow
end sub
gruss Wolf