Seite 1 von 1
makro, das einen zellwert als blattname übernimmt
Verfasst: Mo, 09.01.2006 11:39
von kannenklaus
hallo ng,
im forum habe ich nichts gefunden, um den inhalt der zelle a1 als blattname zu übernehmen. wahrscheinlich ist es ganz einfach. hat jemand einen tipp?
danke klaus
Verfasst: Mo, 09.01.2006 16:10
von kannenklaus
inhalt der zelle a1
Code: Alles auswählen
Sub TabnameAusZelle
Dim oDoc as Object
Dim oController as Object
Dim oBlatt as Object
Dim oZelle as Object
Dim sTabName as String
oDoc = ThisComponent
oController = oDoc.CurrentController
oBlatt = oController.ActiveSheet
oZelle = oBlatt.getCellRangeByName("A1")
sTabName = oZelle.String
'msgbox sTabName
oBlatt.Name = sTabName
End Sub
vielleicht finden toxitom & co eine bessere lösung
beste grüße klaus
Verfasst: Mo, 09.01.2006 16:35
von Toxitom
Hey Klaus,
vielleicht finden toxitom & co eine bessere lösung
Nein, perfekt
Kannst du nur noch zusammenfassen - im Ergebnis ist es aber das gleiche.
Code: Alles auswählen
sub TabNameAusZelle
dim oSheet as Object
oSheet = ThisComponent.CurrentController.ActiveSheet
oSheet.Name = oSheet.getCellRangeByName("A1").String
end sub
Man könnte es auch auf eine Zeile zusammenfassen und benötigte dann die Varaible nicht, aber dann wird es schon unübersichtlich
Gruss
Thomas
Verfasst: Mo, 09.01.2006 17:20
von kannenklaus
hallo toxitom
Kannst du nur noch zusammenfassen - im Ergebnis ist es aber das gleiche.
einfach super, dass ihr dabei seid
grüße klaus