Hallo Tutorials.de,
ich habe eine Excel-Datei, welche eine Übersicht bez. diversen Klassen darstellen soll. Da diese Tabelle mehrere Jahre halten soll und die Klassen in dieser Zeit varriieren, möchte ich eine Funktion einbauen, welche genau die Anzahl Tabellenblätter erstellt, wie ich auch Kalssen habe.
Das klappt auch, kein Problem. Jedoch der kleine Schönheitsfehler ist, bei benennen per Schlaufe heissen meine Tabellen nur 1, 2, 3 ...! Ich will aber, dass die Tabellen Klasse 1, Klasse 2, Klasse 3 ... heissen! Wie geht das?
Code zum Tabellen automatisch erstellen:
Vielen Dank für jegliche Hilfe
Pinky
ich habe eine Excel-Datei, welche eine Übersicht bez. diversen Klassen darstellen soll. Da diese Tabelle mehrere Jahre halten soll und die Klassen in dieser Zeit varriieren, möchte ich eine Funktion einbauen, welche genau die Anzahl Tabellenblätter erstellt, wie ich auch Kalssen habe.
Das klappt auch, kein Problem. Jedoch der kleine Schönheitsfehler ist, bei benennen per Schlaufe heissen meine Tabellen nur 1, 2, 3 ...! Ich will aber, dass die Tabellen Klasse 1, Klasse 2, Klasse 3 ... heissen! Wie geht das?
Code zum Tabellen automatisch erstellen:
Code:
Sub tabellen()
klassen = Sheets("KP Informationen").Range("B4") /Wieviele Klassen sind es? Ist da eingetragen
Dim X As Long
For X = 1 To klassen
Sheets("Klasse 1").Select
Sheets("Klasse 1").Copy After:=Sheets(2)
Sheets("Klasse 1 (2)").Select
Sheets("Klasse 1 (2)").name = X
Next
End Sub
Vielen Dank für jegliche Hilfe
Pinky