06. maj 2005 - 20:57
Der er
2 kommentarer
Kan ikke slette rækker?
Jeg sidder med en For each løkke der køre over et navngivet range, jeg skal ha fjernet alle rækker der ikke opfylder min if sætning, løkken virker perfekt når jeg bruger følgende:
If Filnavn <> " " Then
mycell.EntireRow.ClearContents
end if
Men bruger jeg .Delete Shift:=xlUp springer min løkke ca hver anden række over. Hvordan for jeg så slettet rækkerne?
Jeg går ud fra det er Excel?
Årsagen er, at når du sletter, bliver dine rækker rykket op, mens din løkke forsætter ned ad (det lød vist lidt underligt... men meningen er god nok)
Der er nok en simpel løsning, men jeg ville nok køre løkken igennem, og ikke slette i løkken, men lave en "Multiple range":
Set MultipleRange = Union(MultipleRange , Delrange)
således at MultipleRange hele tiden udvides med den række der skal slettes.
Uden for løkken kan du så bruge MultipleRange.Delete - tror jeg...