Tabellenname=Datum stimmt nicht

Computer: Software & Programmierung Office Software
1

Hallo,
mit nachstehenden Makro bennenne ich die Tabellenblätter mit Name=Datum: z.B. 01.02.(so soll es sein)
Wenn ich nun in die InputBox 01.02.2006 eingebe erscheint auf dem Blatt
1.2… Wie muss das Makro geändert werden, um wie gewünscht 01.02.
als Resultat zu bekommen??
Danke für’s Helfen.
Klaus
Sub Makro4()

Dim Datum As Date
Dim AnzahlBlatt As Integer
Dim Startzahl As Long

AnzahlBlatt = 5 'Anzahl Tabellenblätter
Datum = InputBox(„Start-Datum“) 'Startdatum
Startzahl = InputBox(„Start Auftrags-Nummer“) 'Eingabezahl (die auf den Blättern erscheinen soll)

'Prüfen, ob entsprechende Anzahl Blätter vorhanden ist, sonst hinzufügen
If Sheets.Count

2

versuch mal die Zelle auf das Datumsformat Deiner Wahl zu formatieren - vermutlich liegts daran…

3

Hallo,
Das Datum steht ja nicht in einer Zelle, sondern ist der Tabellenblatt-Name!
Gruß Klaus

versuch mal die Zelle auf das Datumsformat Deiner Wahl zu
formatieren - vermutlich liegts daran…

4

achso - falsch verstanden…
Der geänderte Ausschnitt:

'Blattnamen nach Datum vergeben
For i = 1 To AnzahlBlatt
tagnr = Str(Day(Datum))
If Len(tagnr) 


das ganze Makro:


    
    Sub Makro4()
    
    Dim Datum As Date
    Dim AnzahlBlatt As Integer
    Dim Startzahl As Long
    
    AnzahlBlatt = 5 'Anzahl Tabellenblätter
    Datum = InputBox("Start-Datum") 'Startdatum
    Startzahl = InputBox("Start Auftrags-Nummer") 'Eingabezahl (die auf den Blättern erscheinen soll)
    
    'Prüfen, ob entsprechende Anzahl Blätter vorhanden ist, sonst hinzufügen
    If Sheets.Count
5

Hallo MunichFreak,
das hat ja wunderbar geklappt. Prima.
Vielen Dank auch.
Gruß Klaus

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]