Re: Zeilen Sortieren ?
14.02.2003 18:18:19
Hajo_Zi
Hallo terryfalls Du Dich in VBA auskennst dürfte das ein Ansatz sein.
Horizontal sortieren 8 Spalten
Sub Horizontal_sortieren()
Dim DataEnd, OldStatus
DataEnd = Cells(Rows.Count, 1).End(xlUp).Row
OldStatus = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
For i = 1 To DataEnd
Application.StatusBar = "Datensatz " & i & " von " & DataEnd & " Datensätzen wird bearbeitet"
Range(Cells(i, 1), Cells(i, 8)).Select
Selection.Copy
Range("I1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, Transpose:=True
Application.CutCopyMode = False
Selection.Sort Key1:=Range("I1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Selection.Copy
Cells(i, 1).Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, Transpose:=True
Next i
Application.StatusBar = False
Application.DisplayStatusBar = OldStatus
Application.ScreenUpdating = True
End Sub
von Ramses ( Rainer)
Gruß Hajo