HEUTE() wird im makro nicht aktualisiert

[max11]

Hallo ich hab leider ein kleines Problem ich hab mit Makro aufzeichnung eine Makro erstellt dieses Übernimmt Allerdings nicht das aktuelle Datum

1. sollte immer aktuelles datum sein
2. sollte aktuelle datum + eine ausgewählte uhrzeit sein

ActiveSheet.Range("$A$1:$O$939").AutoFilter Field:=12
    Sheets("Zwischenrechnung").Select
    Range("E16").Select
    Selection.Copy
    Sheets("StundeSicherheit").Select
ActiveSheet.Range("$A$1:$O$939").AutoFilter Field:=2, Criteria1:= _
"<>*25.08.2019*",Operator:=xlAnd
Rows("2:8586").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveSheet.Range("$A$1:$O$12").AutoFilter Field:=2
Range("B3").Select
Sheets("Zwischenrechnung").Select
Range("K19").Select
Selection.Copy
Sheets("StundeSicherheit").Select
ActiveSheet.Range("$A$1:$O$12").AutoFilter Field:=2, Criteria1:= _
"<25.08.2019, 14:00", Operator:=xlAnd
Sheets("Zwischenrechnung").Select
Range("K20").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("StundeSicherheit").Select
ActiveSheet.Range("$A$1:$O$12").AutoFilter Field:=2, Criteria1:= _
"<25.08.2019, 14:00", Operator:=xlOr, Criteria2:=">25.08.2019, 17:00""


E16 enthält HEUTE( )
K19 Besteht aus heute + manuell eingebene uhrzeit
Das makro übernimmt nach dem aufzeichnen keine änderungen in den such kriterien es bleibt dann immer der 25.08.2019 anstatt das aktuelle datum zu übernehmen
bzw im zweiten fall die veränderte zeit angabe

Danke schonmal für die antworten EXCEL 2016

[schauan]

Hallöchen,

mal allgemein, ein Datum erhältst Du mit Date.

Um so einen String "<>*25.08.2019*" zu erzeugen, wandelst Du das Datum entsprechend um, im Prinzip

"<>*" & Format(Date,"dd.mm.yyyy") & "*"

[max11]

Super das hat funktioniert danke schön 

ActiveSheet.Range("$A$1:$O$12").AutoFilter Field:=2, Criteria1:= _

"<25.08.2019, 14:00", Operator:=xlOr, Criteria2:=">25.08.2019, 17:00""

hast du villeicht eine idee wie ich hier das datum mit einer zeit die ich vor dem ausführens des makros eintippe zu kombinieren ? 

[schauan]

Hallöchen,

der Teil mit Datum und Zeit so:

Format(Now, "dd.mm.yyyy, hh:mm:ss")

[max11]

das hatte ich schon gesehen ich brauch aber leider nicht die aktuelle uhrzeit   sondern eine ausgewählte   
ich hätt in eine zelle dann zb ein getippt von 16:30-20:50

[schauan]

Dann wieder mit Format und statt Now oder Date dann zB. Range("A1"). Value und das Ausgabeformat.

[max11]

vielen vielen danke hat geklappt  danke für die schnelle hilfe

[max11]

hey ich kriegs leider nicht ganz hin das es das akzeptiert 

 Sheets("StundeSicherheit").Select
    ActiveSheet.Range("$A$1:$O$12").AutoFilter Field:=2, Criteria1:= _
        "<*" & Worksheets("Zwischenrechnung").Range("K19").Formate("mm.dd.yyyy, hh:mm") & "*", Operator:=xlOr,
        Criteria2:=

criteria 2 sollte zelle K20

leider schaff ich es nicht das es funktioniert :/

danke schonmal

[schauan]

Hallöchen,

mit einem Kriterium hat die Syntax funktioniert?

das zweite wäre dann z.B.

">*" & Worksheets("Zwischenrechnung").Range("K20").Formate("mm.dd.yyyy, hh:mm") & "*"

?

Dir wird dann alles angezeigt was nicht zwischen den beiden Daten liegt.

[max11]

Sheets("StundeSicherheit").Select
    ActiveSheet.Range("$A$1:$O$12").AutoFilter Field:=2, Criteria1:= _
    ">*" & Worksheets("Zwischenrechnung").Range("K20").Formate("mm.dd.yyyy, hh:mm") & "*", Operator:=xlOr, Criteria2:="<*" & Worksheets("Zwischenrechnung").Range("K20").Formate("mm.dd.yyyy, hh:mm") & "*"
    Rows("2:693").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp


wie gesagt ich bin leider nur ein leihe,
so zeigts mir nur ein fehler an leider nicht welchen