Hallo liebes Forum
In einer Datenbank wird jeweils vor dem Seitenumbruch eine Zwischensumme eingefügt. Beim aktivieren des AutoFilters möchte ich die Zwischensummen löschen. Es können eine oder mehrere Seiten, bzw. Zwischensummen vorhanden sein.
Mit Find wird nur die 1. Zwischensummen gelöscht. Wie kann ich eine Schlaufe einsezten?
Zeile = Range("a65536").End(xlUp).Row - 1
Range("A10:A" & Zeile).Select
On Error Resume Next
Zw = Selection.Find(What:="Zwischentotal", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
If Zw = "Wahr" Then
z = ActiveCell.Row
Rows(z & ":" & z).Select
Selection.Delete Shift:=xlUp
Range("A10").Select
End If
Oder ist es eleganter und auch schneller mit Do While?
Do While ActiveCell.Value ""
If ActiveCell.Value = "Zwischentotal" _
Then z = ActiveCell.Row
Rows(z & ":" & z).Select
Selection.Delete Shift:=xlUp
Range("A10").Select
Loop
Ich weiss nicht, welche Methode sinnvoller und Ressoucen schondender ist.
Danke für die Hilfe
Gruss
Thomas