von Wolfgang Lampert » Do, 03.06.2004 15:16
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
Habe doch noch Lösung geschafft; funktioniert - sollte es jedoch noch sinnvollere Lösungen geben, bitte Info[quote]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
[/quote]
gruss Wolf