automatisches Sortieren
Hallo,
ich möchte eine Tabelle (4 Seiten) automatisch nach dem Datum sortieren lassen. Ich weiss, dass ich dazu wohl ein Makro brauche - komme nur mal wieder nicht auf die Lösung!
Die zu sortierenden Daten befinden sich in den Bereichen:
Spalten: A bis L
Zeilen: 5 bis 65
72 bis 131
138 bis 197
204 bis 263
Es müssen allerdings die Seitenumbrüche berücksichtigt werden, d. h. wenn ich auf Seite 2 ein Datum eingebe, dass eigentlich in Seite 1 gehört, so muss die letze Zeile von Seite 1 auf Seite 2 rutschen.
Ist sowas möglich???
Was passiert eigentlich mit Formeln, die nun hinterlegt sind - die haben dann doch wohl weiterhin Gültigkeit, oder?
Hoffe auf Hilfe ...
Gruss
Petra
Antwort schreiben
Antwort 21 von Beverly vom 20.05.2019, 20:48 OptionsLösung
Hi Petra,
aber sicher fällt mir da was ein ;-)
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Column
Case 9, 10, 11
Range("B6:K246").Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Select
End Sub
Bis später,
Karin
Antwort 22 von Petra65 vom 20.05.2019, 21:14 Options
Juchuuuu ... ;-) ;-)
Funktioniert SUPER SUPER SUPER !!!
Bei Select Case war ich nun schon angefangen zu lesen (und ich hab mal VB gelernt - traurig!)
Vielen, vielen Dank .... ;-)
Nun kann ich heute Nacht ruhig schlafen!
Viele Grüße
Petra