Kann mir jemand sagen, wie ich abfrage ob ein Tabellenblatt existiert?
Gruß
Frederik
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.