ich möchte eine Reihe von Arbeitsblättern in Abhängigkeit der Sprache löschen. Ich benutze dafür folgenden Code:
Application.DisplayAlerts = False
If varSprache = "Deutsch" Then
With Workbooks(wbVorlage.Name)
.Worksheets("Blatt 1(EN)").Delete
.Worksheets("Blatt 2 (EN)").Delete
.Worksheets("Blatt 3 (EN)").Delete
End With
ElseIf varSprache = "English" Then
With Workbooks(wbVorlage.Name)
.Worksheets("Blatt 1(DE)").Delete
.Worksheets("Blatt 2 (DE)").Delete
.Worksheets("Blatt 3(DE)").Delete
End With
End If
varSprache wir vorher definiert und abgefragt. wbVorlage wird vorher mit dem relevanten Workbook versehen.
Nachdem Blatt 1 gelöscht wurde bricht das Makro ohne Debug Meldung ab. Wenn ich die Schritte einzeln ablaufe funktioniert alles.
Funktioniert die Kombination If, With, Delete nicht oder wo liegt das Problem?
Danke im Voraus