PQ Abfrage aktualisieren wenn Bedingung erfüllt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

hallo Christian,

es wird nicht zu vermeiden, dass deine Daten(pl. v. Datum) vorher auf einem Standard gebracht werden müssen.

Mache eine Kopie alle Daten in einer separaten Spalte, und sortiere diese.
Es gibt nur 2 Muster: Monat davor, dann als Text, oder Monat in der Mitte, dann entw. Text oder Zahl.
Nach der Sortierung sind alle nach Muster d-m-y oben, m-d-y unten. Mache eine Trennung dazwischen.

Es kommt eine Umwandlung in "richtige" Datum, die Du dann per Sverweis an der richtigen Stelle wieder reinbringen kannst.

Umwandlung Stufe 1: die Monatstext in Zahl: lege folgende UDF in einem Modul

Function MonatZuZahl(Wert) As String

Dim Erg, L, i, Arr

'achtung: bedeutende führende Leerzeichen!

Const cEnFull = " january february march april may june july august september october november december"

Const cEnShort = " jan feb mar apr may jun jul aug sep oct nov dec"

Const cDeFull = " januar februar märz april mai juni juli august september oktober november dezember"

Const CDeShort = " jan feb mrz apr mai jun jul aug sep okt nov dez"



    Erg = LCase(Wert)

    For Each L In Array(cEnFull, cDeFull, cEnShort, CDeShort) 'Reihenfolge ist relevant

        Arr = Split(L)

        For i = 1 To 12

            If InStr(1, Erg, Arr(i), vbTextCompare) Then Erg = Replace(Erg, Arr(i), i)

        Next

    Next

    MonatZuZahl = Erg

End Function

Dann setze diese Funktion in das Excelblatt neben den sortierten Daten.
Dann werden die Daten geparsed. Neue UDF:

Function DateParse(ByVal DatString As String, Optional Lexer As String = "DMY") As Date

Dim R, S



    Set R = CreateObject("VBScript.RegExp")

    R.Pattern = "(\d+)\D+(\d+)\D+(\d+)"

    Set S = R.Execute(DatString)

    DateParse = DateSerial( _

        CInt(S(0).SubMatches(InStr(1, Lexer, "Y", 1) - 1)), _

        CInt(S(0).SubMatches(InStr(1, Lexer, "M", 1) - 1)), _

        CInt(S(0).SubMatches(InStr(1, Lexer, "D", 1) - 1)))

End Function

Hier musst Du achten, dass auf einmal
=DateParse(A1; "dmy")
für d-m-y Datumsmuster (oben) und
=DateParse(A1; "mdy")
für d-m-y Datumsmuster (unten) zu verwenden ist.

Dann hast Du Zahlen, die durch Zahlenformat als Datum darstellen lässt. jetzt wie gesagt: sverweis und kopieren-durch Wert ersetzen.

Jetzt musst du nur noch achten, dass ein richtige Datum eingegeben wird, und eine Ereignisprozedure, die das ListObject (VBA für Tabelle) aktualisiert.
Würde ich aber nicht machen. Lieber Strg+Alt+F5 drücken: es aktualisiert alle Tabellen und Pivot.

Aber wenn schon, sieht es so aus:

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 3 Then If CDate(Target.Value)  (Date - 10957) Then Worksheets("Liste").ListObjects("Tabelle1_1").QueryTable.Refresh BackgroundQuery:=False

End Sub

10957 sind 30 * 365,25

VG
Yal

Hallo Yal,

also wenn du in einem Punkt Recht hast, dann Misverständnisse. Ich habe, gebe ich zu die beiden Versionen von Dateparse nicht berücksichtigt. Aber ich denke auch, jedem kann es mal passieren, dass man etwas überliest oder an etwas nicht denkt, oder? Ich bin genauso wenig perfekt, wie du.

Aber nun zu den Misverständnissen. Mir leuchtet nicht ein, weshalb du eine Lösung vorschlägst, die als einmalige Aktion gedacht ist, wenn ich schreibe, dass ich eine Lösung suche, die auf ein bestimmtes Ereignis reagiert, damit müsste doch klar sein, dass ich keine einmalige Lösung suche.

Des Weiteren ob Schwachsinn oder nicht, lässt sich drüber streiten. Wie ich schon gesagt habe, könnte man auch eine Lösung nehmen, die auf jede Änderung in Spalte C reagiert, ich denke das bekäme ich sogar noch selber hin, zu programmieren. Aber wie gesagt, ich wollte mir 4 Stunden unnötigen Zeitaufwand ersparen, indem ich das ganze nur aktualisieren lasse, wenn sich die 4 Formeln für mich relevant ändern.

Dein Vorschlag mit dem Wechsel zum Blatt Liste ist an für sich nicht schlecht, allerdings mache ich das kaum. Die PQ Abfrage ist ein Mittel zum Zweck um die 4 Formeln in Spalte 1 zu berechnen, also wechsele ich das Blatt eher selten bis gar nicht, die für mich relevanten Daten sind die Formelergebnisse und die stehen nicht umsonst in einer fixierten Zeile, sondern damit ich sie immer im Blick habe, egal wo im Blatt ich mich gerade befinde.

Das mit dem praktikablesten Weg war denke ich von mir blöd ausgedrückt. Damit war der Aufwand gemeint, den ich gehen muss, um die Formeln zu aktualisieren. Ob ich das jetzige beibehalte, indem ich aktualisiere in dem ich auf Daten - alle aktualisieren klicke. Alternativ dazu ein Makro nehme, welches auf das Auswählen des anderen Tabellenblatts reagiert, das kommt vom Aufwand her aufs selbe raus.

Deine ursprüngliche Makrolösung kann zwar, jetzt wo ich MEINEN Fehler gefunden habe, die PQ Abfrage ersetzen und auch die 4 Formeln können sich dann genauso auch auf die Spalte mit den SVERWEISEN beziehen, anstatt auf die PQ Abfrage. Nur, ich zitiere dich mal: "Mache eine Kopie alle Daten in einer separaten Spalte, und sortiere diese."
Diese Kopie wird keine neuen Daten beinhalten, wenn ich welche im Original hinzufüge. Es ist also wie du schon sagtest, nur eine einmalige Aktion.

Deshalb ist aus meiner Sicht keiner der Vorschläge geeignet, um mir die Arbeit in dem Sinn zu erleichtern, den ich erreichen wollte.
Um diesen kurz und knapp auf den Punkt zu bringen, mir zu ersparen, auf Daten - alle aktualisieren klicken zu müssen, nachdem ein Datum dazukam das weniger als 30 Jahre zurückliegt, um zu erreichen, dass die 4 Formelergebnisse sich aktualisieren.

Gruß
Christian

Function Konvert(ByVal Target) As Long If TypeOf Target Is Range Then Target = Target.Cells(1).Value Konvert = DateParse(MonatZuZahl(Target), IIf(Left(Target, 1) Like "[a-zA-Z]", "mdy", "dmy")) End Function

Beliebteste Forumthreads (12 Monate)

PQ Abfrage aktualisieren wenn Bedingung erfüllt

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

PQ Abfrage aktualisieren wenn Bedingung erfüllt

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread