Zeile aktivieren
01.06.2005 12:56:15
andrea
ich möchte gerne in diesem kleinem Makro beweksteligen, dass die ganze ZEILE (in der sich in ersten Spalte "u" befindet) ans Ende übetragen wird.
Mit der ersten Zelle funktioniert es blendend, bei Aktivierung der Zeile stehe ich voll am Schlauch.
Sub
For k = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If ActiveCell = "u" Then
ActiveCell.Cut Destination:=ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0)
ActiveCell.Offset(1, 0).Select
End If
Next k
End Sub
Klar, dass dann anstatt ActiveCell.Cut Destination ...die ActiveRow.Cut Destination..... sein muss. (Nur meine Idee:ActivateRows(0,0) funktioniert nicht.)
Nun bitte jetzt die Zeile an stelle der Zelle aktivieren.
Danke und schönen Gruss
Andrea