Tabelle einfügen
15.10.2003 10:47:35
Nick
habe ein Problem und zwar wenn ich diesen Code ausführe soll er überprüfen ob eine Tabelle mit dem aktuellem Monat vorhanden ist. Wenn nicht soll er eine Tabelle erstellen wenn ja soll er diese aktivieren doch es kommt eine Fehlermeldung wenn schon eine Tabelle vorhanden ist. Kann mir einer Helfen und sagen wie das richtig heißen muss ?
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
ThisWorkbook.Sheets.Add.Move after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = MonthName(d)
Exit For
End If
Next i
End Sub
Danke schon im Voraus
Gruß
Nick
Anzeige