Hallo zusammen,
ich habe bereits eine Abfrage drin, ob ein Tabellenblatt drin ist und nur dann wird der Code ausgeführt.
Ähnliches möchte ich nun in einer Forschleife machen, wo einige Zellen mit Dateinamensnummern drin sind.
Wenn die Datei in dem Ordner nicht erscheint, soll es den String in einer MsgBox ausgeben mit Text und ansonsten den eigentlichen Code in der Schleife.
Weiss einer Rat? Geht sicher ähnlich wie mit den Tabs?
Danke schön
If IsError(Evaluate(TabnameCSV & "!A1")) Then
'MsgBox "Tabelle nicht vorhanden"
Else
Application.DisplayAlerts = False 'deaktiviert, das Bestätigungspopup
Worksheets(TabnameCSV).Delete 'löscht das Tabellenblatt CSV
Application.DisplayAlerts = True
Sheets("Tabelle1").Select
End If