makro, das einen zellwert als blattname übernimmt

[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

[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

[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

[kannenklaus]

hallo toxitom

Kannst du nur noch zusammenfassen - im Ergebnis ist es aber das gleiche.

einfach super, dass ihr dabei seid

grüße klaus