Pivot-Aktualisierung und Leerzeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
vielen Dank für deine schnelle Antwort.
Ein weiteres Problem habe ich allerdings noch bezüglich der Datentabelle und zwar:
Spalte A2:A100 = Datum
Nun nach der Daten-Neueingabe sollte diese automatisch mit Hilfe einer "Sortier-Routine" an der richtigen Reihenfolge in der Tabelle
platziert werden, was bei vielen meinen Versuchen leider ergebnislos blieb.
Meine Vorgehensweise:
-Die gesamte Spalte A ist richtig formatiert (Datum Lang - TT.MM.YYYY)
Für die Sortierung habe ich die Spalte markiert und den Filter auf Datum "Aufsteigend" gesetzt, soweit so gut aber leider
über diesem Filter erreiche ich nur eine Sortierung nach TT, das heißt MM & YYYY werden ignoriert, die Auflistung der Tabelle findet nur
nach Tageszahlen statt!
Ungefähr so:
11.05.2022
12.06.2022
13.05.2022 (An der falschen Stelle)
14.06.2022 (An der falschen Stelle)
So sollte die Tabelle sortiert sein:
11.05.2022
13.05.2022
12.06.2022
14.06.2022
Datenblatt (Tabelle1) hat folgenden Code:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then
Range("A1:A100").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
Range("A2").Select
End If
End Sub

Kannst du mir bitte sagen, wo ich einen Fehler mache?
Viele Grüße
Nader

Hi Luschi
Da hast du recht und mit meiner Aussage wollte ich Werner auch nicht widersprechen.
Mir ging es darum, dass sich die falsche Sortierung nach einer Text-Interpretation anhört, was bei einer normalen manuellen Eingabe ja eigentlich nicht auftreten sollte. Somit vermute ich einen externen Quellbezug (z.B. ab CSV). Was wiederum die Frage aufwirft, ob man es nicht einfacher/eleganter über eine externe Verbindung löst. Damit wäre man bereits in PQ unterwegs, die Typenkonvertierung wäre erledigt.
Und wenn man dann sowieso schon mit PQ arbeitet, könnte man die leeren Zellen gleich ausfiltern. Macht ja keinen Sinn diese erst zu laden, um danach wieder auszufiltern.
Wenn die Abfrage-Standardmittel (Aktualisierung beim Öffnen, alle paar Minuten etc.) nicht ausreichen, könnte man dann immer noch per VBA nachhelfen. Einmal ThisWorkbook.RefreshAll ist leichter umzusetzen, wie sich mit den ganzen Filter und Pivot-Cache auseinander zu setzen.
Ziemlich viele Annahmen meinerseits. Darum wäre die Beispieldatei interessant (Text-Datumsproblem verifizieren) und in der Folge müsste man sich dann fragen, weshalb es zum vermeintlichen Problem kommt, weshalb mich das "Big-Picture" interessieren würde.
cu
Chris

Beliebteste Forumthreads (12 Monate)

Pivot-Aktualisierung und Leerzeilen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread