Finden von Worksheets
11.12.2007 09:25:59
Worksheets
ich habe ein Programm, das mir Worksheets anlegt. Nun wolle ich es verbessern in dem ich abfrage "wenn Worksheet schon exsistiert dann lösche es, wenn nicht lege es neu an.
Ich habe bisher nicht die richtigen Befehle gefunden. Habt ihr eine Ahnung?
If Worksheets("Anlage").Find = False Then
Worksheets.Add Count:=1
ActiveSheet.Name = "Anlage"
ActiveSheet.Move before:=Worksheets(1)
Else
Worksheets("Anlage").Delete
End If