Finden von Worksheets

Forumthread: Finden von Worksheets
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Finden von Worksheets

11.12.2007 10:25:59

Worksheets

Hallo Leute,
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Finden von Worksheets

11.12.2007 10:41:43

Worksheets
AW: Finden von Worksheets

11.12.2007 10:45:41

Worksheets

AW: Finden von Worksheets

11.12.2007 10:41:43

Worksheets

Hi,
du musst mit einer Schleife über alle Worksheets laufen und prüfen, ob es vorhanden ist.


Sub schleife()
Dim wsTabelle As Worksheet
For Each wsTabelle In ThisWorkbook.Worksheets
If wsTabelle.Name = "Anlage" Then
wsTabelle.Delete
Exit For
End If
Next wsTabelle
' hier dein Code zum Anlegen der Tabelle
End Sub

________________________________________