makro, das einen zellwert als blattname übernimmt

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: makro, das einen zellwert als blattname übernimmt

von kannenklaus » Mo, 09.01.2006 17:20

hallo toxitom
Kannst du nur noch zusammenfassen - im Ergebnis ist es aber das gleiche.
einfach super, dass ihr dabei seid :lol:

grüße klaus

von Toxitom » Mo, 09.01.2006 16:35

Hey Klaus,
vielleicht finden toxitom & co eine bessere lösung
Nein, perfekt :D
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 :wink:

Gruss
Thomas

von kannenklaus » Mo, 09.01.2006 16:10

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

makro, das einen zellwert als blattname übernimmt

von kannenklaus » Mo, 09.01.2006 11:39

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

Nach oben