Bestimmten String suchen und Wert DANACH auslesen

[Nyn007]

Ha((o

Ich suche via VBA innerhalb eines Word-Dokumentes ein Datum. Es befindet sich in einem Textfeld. Das Format lautet an der Stelle "Datum dd.mm.yyyy" (Das Leerzeichen ist eigentlich ein Tabulatoreinzug).

Ich wollte nach dem Wort "Datum" und dann daraus abgeleitet zum eigentlich Datum gehen, auslesen und konvertieren. Das Wort "Datum" finden ist ja kein Problem, aber dann zu dem Datum gehen und es auslesen, habe ich keine Ahnung wie ich es angehen soll. Hat jemand einen Tipp für mich?

Wäre nett.
Danke und Grüße

[schauan]

Hallöchen,

das könnte z.B. so gehen. Ob die 11 passt musst Du schauen, Bei mir steht

Datum 30.12.2018

rng2 enthält dann das Datum.

Code:

Set rng1 = ActiveDocument.Range
    If rng1.Find.Execute(FindText:="Datum") Then _
        Set rng2 = ActiveDocument.Range(rng1.End, End:=rng1.End + 11)

[Nyn007]

Ha((o Schauan

Danke. Der Code sieht gut aus. Ich werde es testen.

Allerdings habe ich das Problem mittlerweile anders gelöst. Ich habe das Datum in einem anderen Modul definiert gehabt. Über eine Hilffunktion hole ich mir nun das Datum aus dem anderen Modul. ... auch ein Weg.

Grüße

[cweimer]

Ha((o Schauan

Danke. Der Code sieht gut aus. Ich werde es testen.

Allerdings habe ich das Problem mittlerweile anders gelöst. Ich habe das Datum in einem anderen Modul definiert gehabt. Über eine Hilffunktion hole ich mir nun das Datum aus dem anderen Modul. ... auch ein Weg.

Grüße

Kannst du das genauer beschreiben?

[fkraushaar]

Er hat sich einfach eine Hilfsvariable geschaffen.