Datumabfragemaske x64

Ich möchte erstmal danke sagen für die Mühe, die in diesem Forum steckt, ich bin voran gekommen scheitere aber an einem Projekt, dass ich derzeit ohne eure Hilfe nicht schaffe.
Daher die Frage:
WIe schaffe ich es einen Report, den ich mal monatlich mal wöchentlich generiert habe, bei dem Startdatum und Enddatum in "YYYYMMDD" stehen und ich dann per Abfragemaske oder Ähnlichem ein gewisses Datum eingeben möchte und dann das in diesen Report eingefügt - also quasi ersetzt - wird.
Ich müsste dann auch noch wissen, wie ich eine Spalte bis zur letzten Zeile mit Inhalt (oder auch ohne Inhalt) markiert wird, Denn: Ich habe standardmäßige Zeilen nehmen wir an 150 Zeilen bei der 150 Zeile steht nichts drin, diese muss ich aber mit einem Wert auch befüllen, durch strg + h suchen nach NULL und ersetzen mit ***
Nur möchte ich die anderen Zellen in der Spalte wo auch wirklich nichts drin stehen soll, weil sie 150 sind nicht steht und nicht ***.
Könnt ihr mir bei beiden Fällen weiterhelfen?
Ich versuche in VBA alles per Macro zu erstellen und anschließend per Visual Code eine ausführbare exe-Datei zu kompilieren.
Danke für die Mühe und ich hoffe ich konnte mich verständlich ausdrücken.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Engelchen,
zu der ersten Frage: verwende dafür den Marko-Rekorder. Im Menüband muss den Reiter "Entwicklertools" aktiviert sein. Dort findest Du den Makro-Rekorder.
_ Makro-Rekorder starten
_ Suchen-ersetzen starten,
_ Datum A in Datum B ersetzen lassen,
_ MakroRecorder stoppen
_ Code anscheuen
_ 2 Variable hinzufügen

Dim NeueDatum as Date
Dim AlteDatum as Date

_ 2 Inputbox hinzufügen

    AlteDatum = InputBox("Alte Datum:", "Eingabe", Format(Now, "YYYYMMDD"))
NeueDatum = InputBox("Neue Datum:", "Eingabe", Format(Now, "YYYYMMDD"))

_ feste Werte in den Replace durch Variable ersetzen.
Am Ende sieht es so aus:

Sub test()
Dim AlteDatum As Date
Dim NeueDatum As Date
AlteDatum = InputBox("Alte Datum:", "Eingabe", Format(Now, "YYYYMMDD"))
NeueDatum = InputBox("Neue Datum:", "Eingabe", Format(Now, "YYYYMMDD"))
Cells.Replace What:=AlteDatum, Replacement:=NeueDatum, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Die zweite Frage ist sehr ähnlich. Makro-Rekorder. Stellt sicher, dass Du dein Zielbereich markiert hast und das Ersetzen nur auf dem markierten Bereich einsetzt.
Es ist löblich, dass Du versuchst das mit VBA zu machen. Aber versucht zuerst den VBA innerhalb Excel zu beherrschen, anstatt zu schnell den Weg über VS Code + Exe-Compile einzuschlagen. Wobei .. wer nicht wagt, der nicht gewinnt.
Viel Erfolg
Yal

Sub Makro2() ' Makro2 Makro Columns("D:D").Select Cells.Replace What:="Startdatum im Format JJJJMMTT", Replacement:= _ "AlteDatum", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Columns("E:E").Select Cells.Replace What:="Enddatum im Format JJJJMMTT", Replacement:="NeueDatum" _ , LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _ :=False, ReplaceFormat:=False End Sub

Sub Makro2() Dim StartDatum As String Dim EndDatum As String StartDatum = InputBox("Start-Datum:", "Eingabe", Format(Now, "YYYYMMDD")) EndDatum = InputBox("End-Datum:", "Eingabe", Format(Now, "YYYYMMDD")) Columns("D:D").Select Cells.Replace _ What:="Startdatum im Format JJJJMMTT", _ Replacement:=StartDatum, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False Columns("E:E").Select Cells.Replace _ What:="Enddatum im Format JJJJMMTT", _ Replacement:=EndDatum, _ LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ SearchFormat:=False, ReplaceFormat:=False End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumabfragemaske x64

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread