Hallo,

ich habe eine Tabelle mit Buchhaltungsdaten. Es kann vorkommen, dass nachträglich eine Buchung eingegeben werden muss. Ich möchte gerne (dass beim Speichern) die Tabelle nach der Datumsspalte automatisch sortiert wird.

Kurze Erläuterung:
Spalte A = Lfd. Nr.
Spalte B = Rechn.-Dat. (Sortierkriterium !!!)
Spalte C = Empfänger
Spalte D = Grund
Spalte E = Kost.-Art
Spalte F = ...

kurz: Die Spalten B6 bis K246 sollen beim Speichern automatisch sortiert werden.

Makro in der Arbeitsmappe:
Private Sub Workbook_BeforeSave _
(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'
' Makro Arbeitsmappe: Ausführung beim Speichern
'
Range("B6:K246").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Makro in der Tabelle:
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


Grundsätzlich funktioniert es - allerdings nur bis zur Zeile 116 - gebe ich in 117 als Datum den 20.2 ein (in 116 steht 29.12) dann rutscht die Zeile nicht nach oben!!
Füge ich zwischendurch eine neue Zeile ein und gebe das Datum 20.2 ein, so rutscht diese Zeile nach unten ans Ende!!

Weiss jemand warum das so ist??

P.S.: Ich weiss übrigens nicht mehr warum ich zwei Makros einsetze ;-(((

Bitte drinkend um Hilfe ... vielen Dank und viele Grüße

Petra