überlauf
17.06.2004 11:07:52
Rene
habe noch ein prob und hoffe auf hilfe
dieses makro soll alle sheets löschen bei denen ich in einer tabelle mit einem kombinationsfeld (anw) nein angegeben habe.
aber der bringt mir immer überlauf
Sub clear_Sheets()
i = 9
anw = Tabelle1.Cells(i, 7).Value
pos = Tabelle1.Cells(i, 5).Value
Do
If anw = "nein" Then
Application.DisplayAlerts = False
Sheets(pos + 2).Delete
Application.DisplayAlerts = True
Else
End If
i = i + 1
Loop While pos >= 1
End Sub
danke im voraus
gruß rene
Anzeige