Zellen verschieben wenn....
08.07.2003 09:27:24
Frank
ich habe folgendes Problem. Ich habe eine Tabelle in der ab Zelle K2 meine Schleife beginnen soll. Wenn K2 ungleich leer ist und I2 leer ist, dann soll Inhalt K2 nach I2.Ich
habe folgendes Makro:
Sub Test_MS1()
Dim i As Long
Dim ende As Long
Range("K2").Select
ende = Range("A5000").End(xlUp).Row
Do Until i = ende
If ActiveCell.Value <> "" And ActiveCell.Offset(0, -2).Value = "" Then
ActiveCell.Offset(0, -2).Select
Else
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
End Sub
Es passiert aber leider nichts. Bitte um Hilfe.
Gruß
Frank