Bereich umschreiben
11.03.2013 12:17:57
Burghard
wie muss dieses Makro lauten, wenn man statt "1 to 600" "UsedRange" nimmt?
Sub Verschieben()
Dim lZeile_E As Long
Dim lZeile_F As Long
With ThisWorkbook.Worksheets("Tabelle1")
For lZeile_E = 1 To 600
If Trim(.Range("E" & lZeile_E).Value) = "xxx" Then
lZeile_F = lZeile_F + 1
.Range("E" & lZeile_E).Cut Destination:=Range("F" & lZeile_F)
End If
Next lZeile_E
End With
Application.CutCopyMode = False
End Sub
Grüße
Burghard