Kann mir jemand sagen, wie ich abfrage ob ein Tabellenblatt existiert?
Gruß
Frederik
Private Sub CommandButton1_Click()
Dim i As Integer
Dim Anlegen As Worksheet
For i = 1 To Worksheets.Count
If UCase(Worksheets(i).Name) = UCase(Me.TextBox1.Text) Then
MsgBox "Existiert schon"
Exit Sub
End If
Next i
Set Anlegen = Worksheets.Add
With Anlegen
.Name = Me.TextBox1.Text
.Move after:=Sheets(Sheets.Count)
End With
Unload Me
End Sub
Sub Tabelle_vorhanden()
TabName = "Tabelle4"
For Each ws In Worksheets
If ws.Name = TabName Then
MsgBox "Tabelle " & TabName & " ist vorhanden."
Exit Sub
End If
Next
MsgBox "Tabelle " & TabName & " ist nicht vorhanden."
End Sub
Vielen Dank.
Gruß
F.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen