2 For Each Schleifen mit Array
27.03.2017 13:56:30
Matthias
ich hab folgenden Code geschrieben:
SpArray = Array(2,4,6,7,8)
For Each wks In wb.Worksheets
Prüf = False
If Abfrage Then
ZlArray = Array(1,5,7,8,9,14)
Elseif AbfrageSonst Then
ZlArray = Array(3,6,7,15)
End If
With wks
For Each Row In ZlArray
For Each Column In SpArray
If Not .Cells(Row, Column) = 0 Then
Prüf = True
Exit For
Exit For
End If
Next Column
Next Row
If Prüf = False Then
.Delete
End If
End With
Mit For To geht leider nicht da es 2 verschiedene Varianten gibt und Lücken in den zu prüfenden Zeilen und Spalten sind
Hoffe ihr könnt mir helfen :)
Vielen Dank im Vorraus
Matthias