Ich habe zwei EXCEL-Mappen, Mappe1.xls und Mappe2.xls.
Mappe1.xls hat nur eine Tabelle Tabelle1
Mappe2.xls hat (bis jetzt) ca. 325 Tabellen Tabellenamen sind Ganze Zahlen.
In Allen Tabellen werden Datensätzen eingetragen, im Bereich ab (A14:K14).
In Spalte A ist immer Datum eingetragen in der Format ddmmyy.
Datum kann sich mehrmals wiederholen, z.B. 1.5.02, 1.5.02 usw.
In Spalte B ist immer eine Ganze Zahl eingetragen.
Es werden Täglich viele Datensätze eingetragen.
Ich möchte folgendes erreichen:
Nach Zeileneingabe sollen sich Datensätze automatisch einsortieren in
aufsteigende form, in beiden Mappen: in Mappe1.xls als auch in Mappe2.xls.
Ich habe ein Makro für sortieren gefunden, nur dem kann ich noch nicht für mich richtig anpassen! Bin VBA - Anfänger. Wer kann mir hier helfen?
Der Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Range("A1").Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Application.EnableEvents = True
End Sub
Wo soll ich hier entsprechnede Änderungen vornehmen, oder ich brauche was anderes?