Tabelle einfügen

Bild

Betrifft: Tabelle einfügen
von: Nick
Geschrieben am: 15.10.2003 10:47:35

Hi,

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
Bild


Betrifft: AW: Tabelle einfügen
von: Andreas Walter
Geschrieben am: 15.10.2003 11:07:21


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
        Exit Sub
    End If
Next i
        ThisWorkbook.Sheets.Add.Move after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = MonthName(d)
End Sub


Nur nachdem ALLE Sheets kontrolliert wurde, sollte man ein neues anlegen


Bild


Betrifft: Danke
von: Nick
Geschrieben am: 15.10.2003 11:11:06

Hi Andreas,

Danke für deine Antwort funktioniert echt super.

Gruß
Nick


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabelle einfügen"