Supportnet / Forum / Tabellenkalkulation
Tabelle automatisch nach Datum sortieren - Makro funktioniert nicht wie gewünscht
Frage
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 = ...
[b]kurz: [/b]Die Spalten B6 bis K246 sollen beim Speichern automatisch sortiert werden.
[b]Makro in der Arbeitsmappe:[/b]
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
[b]Makro in der Tabelle:[/b]
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
Antwort 1 von Saarbauer
Hallo,
kann mit dem nicht angezeigten Teil des Datums zusammenhängen.
29.12 -> 29.12.07
20.2 -> 20.2.08
mal prüfen
Gruß
Helmut
kann mit dem nicht angezeigten Teil des Datums zusammenhängen.
29.12 -> 29.12.07
20.2 -> 20.2.08
mal prüfen
Gruß
Helmut
Antwort 2 von Petra65
Genau dieser Fehler war es --- super ;-)))
oh jee ..... darauf wäre ich NIE gekommen - hab gedacht es liegt am Makro.
Vielen, vielen Dank.
Gruss
Petra
oh jee ..... darauf wäre ich NIE gekommen - hab gedacht es liegt am Makro.
Vielen, vielen Dank.
Gruss
Petra
Antwort 3 von Saarbauer
Hallo,
freut mich, war auch nur eine Idee, aber die Richtige.
Herzlichen Dank für die Bewertung
Gruß
Helmut
freut mich, war auch nur eine Idee, aber die Richtige.
Herzlichen Dank für die Bewertung
Gruß
Helmut