es soll abgefragt werden, ob eine tabelle namens "tab1" exisiert
wenn nein dann tabelle einfügen mit dem namen "tab1"
wenn ja dann msgbox "tabelle exisiert bereits" und makro abbruch
dank und gruss
mehmet
Sub tt()
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "tab1" Then vorh = True
Next ws
If vorh = True Then
MsgBox "vorhanden"
Exit Sub
Else
Worksheets.Add
ActiveSheet.Name = "tab1"
Sheets(1).Activate
End If
End Sub
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