Zellbereich ermitteln

[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

[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