Zellinhalt als Blattname
05.12.2003 08:49:27
Carsten
ich kopiere ein Blatt aus einer Datei in eine andere und möchte dem Blatt hier den Namen aus Zelle I3 (Datum) geben. Damit das Ganze nicht zweimal passiert, das Datum also doppelt vorhanden wäre und das Blatt nicht umbenannt werden kann, prüfe ich vorher, ob bereits ein Blatt mit diesem Namen existiert.
Falls ja soll das Blatt dann "2 - Datum" heißen.
Mein Code sieht folgendermaßen aus:
Sub Bericht_kopieren()
Dim i As Integer
Application.DisplayAlerts = False
Workbooks("HSK.xls").Unprotect
Workbooks("HSK.xls").Sheets("Objektbericht").Copy After:=Workbooks("Objektkontrolle blanco.xls"). _
Sheets(1)
For i = 1 To Sheets.Count
If Sheets(1).Name = [I3] Then
ActiveSheet.Name = "2 - " & [I3]
Else
ActiveSheet.Name = [I3]
Exit For
End If
Next
Sheets(1).Select
Calculate
Application.DisplayAlerts = True
End Sub
Leider funktioniert das Ganze nicht und ich finde den Fehler nicht. Excel merkt nicht, dass das Blatt bereits vorhanden ist. Hier "If Sheets(1).Name = [I3] Then" wird der Blattname auch nur als 1, 2, 3 etc. und nicht als z.B. "05.12.03"
erkannt.
Was mache ich falsch?
Gruß
Carsten