Schleifenabsturz
28.08.2006 09:44:59
Detlef
hoffe kann mir jemand helfen, mein Programm stürzt immer wieder mal an einer Stelle ab.
Dim ReiheLösch
ReiheLösch = 1
WeiterLösch:
If Range("h" & Reihelösch ) = 2300 then Range("h" & ReiheLösch & ":j" & Reihelösch).Select:Selection.Delete Shift:=xlUp
If Range("h" & Reihelösch ) = 2301 then Range("h" & ReiheLösch & ":j" & Reihelösch).Select:Selection.Delete Shift:=xlUp
If Range("h" & Reihelösch ) = 2302 then Range("h" & ReiheLösch & ":j" & Reihelösch).Select:Selection.Delete Shift:=xlUp
If Range("h" & ReiheLösch ) = "" then Goto EndeLösch
ReiheLösch = ReiheLösch + 1
Goto WeiterLösch
EndeLösch:
Dieses Programmteil ist in einen Marko mit eingebunden.
Danke im Vorraus für Eure Hilfe.
Detlef