Prüft ob ein Arbeitsblatt existiert
16.06.2003 15:47:33
Alex
habe hier ein Makro, von Thomas - Prüft ob ein Arbeitsblatt bereits existiert, wenn nicht dann wird dieser erstellt.
Private Sub CommandButton1_Click()
Dim i As Integer
Dim v As Integer
For i = 1 To ActiveWorkbook.Sheets.Count
If Worksheets(i).Name = "hallo" Then
MsgBox "Achtung, existiert bereits!"
Exit Sub
Else: v = 0
End If
Next i
If v = 0 Then
Worksheets.Add.Name = "hallo"
End If
End Sub
Kann mann dieses Makro so ändern, dass es nicht nach bestimmtem Arbeitsblatt abfragt, sondern nach Namen aus der Liste der "Tabelle X"?
Danke Alex