Tabelle anlegen
06.10.2003 11:50:43
Nick
hab folgendes Problem und zwar möchte ich in einer Arbeitsmappe mit einer Schleife die Tabellennamen überprüfen. Und wenn die Tabelle mit dem aktuellen Monatsname nicht vorhanden ist soll diese erstellt werden doch er gib immer folgende Fehlermeldun: "Laufzeitfehler '1004' Die Methode 'Add' für das Objekt 'Sheets' ist fehlgeschlagen. Hoffe es kann mir einer weiter helfen.
Sub Tabellenprüfen()
Dim i As Integer
Dim d As Integer
d = Month(Date)
For i = 1 To ThisWorkbook.Worksheets.Count
If Worksheets(i).Name = MonthName(d) Then
Worksheets(i).Activate
Else
Worksheets.Add
ActiveSheet.Name = MonthName(d)
End If
Next i
End Sub
Schon einmal in Voraus Danke
Gruß
Nick