habe eine Liste mit CommandButton zum sortieren.
Private Sub CommandButton8_Click()
Dim z As Long
Range("A4").Select
z = Range("A4").End(xlDown).Row
ActiveSheet.Range(Cells(5, 2), Cells(z, 12)).Select
Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A2").Select
End Sub
Habe allerdings durch das Forum Verküpfungen zur Grunddatei, liegt dies daran ?
Wie kann ich es ändern ?
Diese Formel habe ich für jede Zelle:
=INDEX(Eingabevorlage!$4:$7;1;ZEILE(A2)) für Spalte B, für Spalte C u.s.w. ebenfalls.
natürlich dann anstelle 1 2 etc. .
mfg Walter