AW: Zellen mit ":" löschen.
14.10.2007 12:46:13
Chaos
Servus Wolfgang,
folgendes Makro löscht alle Zellen in Spalte C und E, die einen : enthalten und verschiebt den jeweiligen Bereich darunter nach oben:
Sub test()
Dim I As Long
For I = 25 To 5 Step -1
If Cells(I, 3).Value Like "*:*" Then
Cells(I, 3).ClearContents
Dim zeile As Long, letzte As Long
letzte = Range("C65536").End(xlUp).Row
zeile = Cells(I, 3).Row
Range("C" & zeile + 1 & ":C" & letzte).Cut Destination:=Cells(zeile, 3)
End If
Next I
Dim II As Long
For II = 25 To 5 Step -1
If Cells(II, 5).Value Like "*:*" Then
Cells(II, 5).ClearContents
Dim zeileII As Long, letzteII As Long
letzteII = Range("E65536").End(xlUp).Row
zeileII = Cells(II, 5).Row
Range("E" & zeileII + 1 & ":E" & letzteII).Cut Destination:=Cells(zeileII, 5)
End If
Next II
End Sub
Gruß
Chaos