For Each Schlife - Typen Unverträglich
29.09.2014 11:14:08
Rik
bei folgender Schleife kommt, nachdem sie einmal komplett durchgelaufen ist "Typen unverträglich"
For Each ws In ActiveWorkbook.Sheets
If ws.name "Tab1" And _
ws.name "Tab2" Then
Debug.Print ws.name & " wurde gelöscht!!"
Application.DisplayAlerts = False
Sheets(ws.name).Delete
Application.DisplayAlerts = True
End If
Next ws
Das funktioniert auch alles soweit, es werden alle Tabellen gelöscht bis auf die zwei Ausnahmen und einem Diagramm.Die gleiche Schleife habe ich auch noch in einem anderen Sub, dort läuft das ganze ohne Probleme, nur hier kommt die Meldung und im Debugger hast "ws" zu dem Zeitpunkt den Wert "Nothing".
Was kann ich dagegen tun?