Makro für Tabellennamen

[schane65]

Hallo !

Ich habe eine Datei mit insges. 94 Tabellen. Die Tabellen stellen einen von mindestens 3 Diensten pro Tag dar. Es wird ein Datum und ein Dienst in zwei verschiedene Zellen eingetragen. Das einfache Umbenennen der Tabellenblätter ist sehr zeitaufwendig, da es keine bestimmte Reihenfolge gibt.
Nun die Frage:
Gibt es eine Möglichkeit, den Tabellennamen automatisch umzunennen? Die Tabelle soll dann z.b. entsprechend dem Datum und dem jeweiligen Dienst heißen. Vielleicht per Makro?

Danke schon mal für die Hilfe.

Gruß Andreas

[Karolus]

Hallo Andreas
Deine Frage hat zwar einen Bezug zu Calc ist aber trotzdem besser im Basic-forum aufgehoben.

Code: Alles auswählen

Sub tabellen_umbenennen
	with thiscomponent
	for i = 0 to .sheets().count -1
		.sheets(i).name = .sheets(i).getcellrangebyname("A1").string & .sheets(i).getcellrangebyname("B1").string
	next
	end with
End Sub

damit werden alle Tabellenblätter in den verketteten Inhalt aus A1 und B1 umbenannt.

Gruß Karo

[schane65]

Hallo Karo !

Ich habe das Makro eingebaut und es hat mir jetzt lediglich die erste Tabelle umbenannt und auch nur mit dem Buchstaben "S", der einen Dienst darstellt, mehr nicht. Bei den Folgetabellen tut sich nichts.
Das Datum kommt aus Zelle E3 und der Dienst aus Zelle AC2. Das habe ich im Makro auch geändert. Was mache ich falsch?

Gruß Andy

[Karolus]

Hallo

Das habe ich im Makro auch geändert. Was mache ich falsch?

Keine Ahnung, hier funktionierts - (ausser - bereits vorhandene Tabellennamen werden nicht vergeben)

Gruß Karo

[schane65]

Hallo Karo !

Kann ich dir die Datei mal schicken? Ich würde dir dann erklären, worum es mir geht.

Gruß Andreas

[schane65]

Hallo Karo !

Ich habs hinbekommen. es lag an der Formatierung der Zelle Datum. Zellennamen mit einem Punkt werden halt nicht akzeptiert.


Danke


Gruß Andreas

[schane65]

Hallo !

Eine Frage hätte ich noch:
Kann man noch eine leere Stelle zwischen den beiden Werten einbauen? Im Moment sieht der Tabellenname beispielsweise so aus: 01 01 09S. Ich möchte zwischen der 09 und den S eine leere Stelle haben. Der Datumswert kommt aus der Zelle E3, der Buchstabe S aus der Zelle Q2.

Danke schon mal


Andreas

[Karolus]

Hallo
nimm :

Code: Alles auswählen

... & " " & ... 

Gruß Karo

[schane65]

Hallo !

Wo soll ich dass denn hinschreiben? Bin manchmal eben zu blöd für diese Welt. Ich wollte die leere Stelle eigentlich gleich im Makro haben. Geht das?


Gruß Andreas

[schane65]

Habe es hinbekommen. War doch gar nicht schwer, lach


Gruß Andreas