Sortieren
07.02.2006 09:31:00
petra
möchte in einer liste nur die Werte von B3:E65536 aufsteigend sortieren.
bisher habe ich folgenden makro, der leider nicht funktioniert. ich komme aber nicht drauf was man anders machen müßte.
Sub Umsortieren()
Dim lZeile As Long
Dim lLetzte As Long
lLetzte = Cells(Rows.Count, 1).End(xlUp).Row
For lZeile = 1 To lLetzte
Range("E" & lZeile).Value = Range("E" & lZeile).Value
Next lZeile
Worksheets("Tabelle1").Activate
With ActiveSheet
.Range("E3:E" & lLetzte).Sort _
Key1:=Range("E3"), _
Order1:=xlAscending, _
Header:=xlNo, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom
End With
Worksheets("Tabelle1").Activate
End Sub
kann mir jemand weiterhelfen?
lg
petra