Zelle auswählen
06.07.2004 13:14:04
Stefan
ich habe folgenden Quelltext und irgendwas daran stimmt nicht. Ihr könnt mir da bestimmt irgendwie weiter helfen.
Do While count = 0
If Sheet3.Cells(x, 1).Value = cons Then
Sheet3.Select
Rows(x).Select
Selection.Delete Shift:=xlUp
count = 1
Else
x = x + 1
End If
Loop
Hier soll eigentlich nur der Inhalt einer Zelle der in cons steht mit dem Inhalt einer Spalte verglichen werden. bei der zelle, die den selben Inhalt hat, soll die gesamte zeile gelöscht werden....
besten dank im voraus
stefan