Nach Wiederholung volle Funktion
10.07.2017 07:46:17
Lukas
da Ich als Praktikant derzeit ein Makro erstellen muss welches Dateien so berarbeitet dass bestimmte Daten aus einem Excel file gezogen werden, komme ich zu meiner Frage.
Das Makro welches ich nutzen will befindet sich unten angehaengt. Jedoch wird mir sobald ich es das erste Mal nutze ein Error "Run-time error' -2147221080 ausgegegben.
Wenn ich den Debugger dann beende und das Makro nochmals durchlaufen lasse, funktioniert es wie gewuenscht ohne Fehlermeldung. Haette jemand eine Idee was ich tun kann? (Habe leider keinerlei Erfahrung in Sachen VBA)
Das Macro stoppt das erste mal beim ersten "auftauchen" von einem der in "if ausgenommenen Woerter.
Sub DeleteSheets()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In Worksheets
If ws.Name "Claims" And ws.Name "Dealers" And ws.Name "Campaigns" And ws.Name " _
ExParts" And ws.Name "Barcodes" And ws.Name "TimeUnits" And ws.Name "Vehicles" And ws. _
Name "Mobility" And ws.Name "RQI" And ws.Name "ClaimsWithErrorCodes" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub