For each löscht... aber nicht alles!
09.01.2006 11:37:35
Maike
Ich benutze folgende for each Zelle Schleife, um aus Messwerten diejenigen herauszuschmeißen, denen ein Wert fehlt:
Sub LueckenhafteMesswerteEntfernen()
Dim o_Zelle As Object
For Each o_Zelle In w_Mess.Range("A8:C" & v_EndeSpalteA)
Debug.Print o_Zelle.Row
If o_Zelle.Value = "-" Then
o_Zelle.EntireRow.Delete
End If
Next
End Sub
v_EndeSpalteA ist hierbei der letzte beschriebene wert in Spalte A .
Leider rückt der Zellenzähler nun ja IMMER um eine Zelle weiter. Wenn also genügend lückenhafte Messwerte hintereinanderstehen, werden manche nicht gelöscht. Kann ich irgendwie o_Zelle auf vorherige o_Zelle zurücksetzen?
Bitte helft mir!
Gruß Maike