VBA Code unterschiede
25.10.2007 20:04:18
itter
Um eine Tabelle zu sortieren habe ich mit dem Makrorekorder folgenden Code aufgenommen:
Sub rekorder()
Range("A10:E25").sort Key1:=Range("C11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=6, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Da die Tabelle hat nicht immer die gleiche Grösse hat, habe ich folgende Änderungen vorgenommen:
Sub sort()
Dim ende As Integer
ende = Sheets("Tabelle2").Cells(Rows.Count, 2).End(xlUp).Row
Range(Cells(10, 1), Cells(ende, 59)).sort Key1:=Range("C11"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
Nach dieser Korrektur wird jedoch leider die Überschrift mitsortiert. Was ist an diesem Code falsch?
Ich habe die Tabelle hier https://www.herber.de/bbs/user/47112.xls hochgeladen.
In Tabelle2 ist die nicht funktionierende Variante.
Kann mir das jemand erklären und helfen?
mfg
itter