Office: (Office 2010) Text auslesen und in Textfelder schreiben

Rico_2014 · 28. Januar 2017

Danke Dir Klaus, funktioniert hervorragend!
Der Einwand von Eberhard bezüglich des Jahres war korrekt, sorry, ich hatte da einen Denkfehler.

Denn: Wenn ich z.B. im November eine solche Abfrage habe, die mir das Datum für März kommenden Jahres auswerfen soll, würde das Jahr natürlich auf 2017 stehen und nicht 2018.

Ich benötige also noch irgendwie eine Bedigung:
Wenn die Monatszahl kleiner als die Monatszahl des aktuellen Datums, dann schreibe YYYY +1

Kan man das irgendwie einbinden?
VG
Rico

gpswanderer · 29. Januar 2017

Hallo,
versuche es so für die 2.Abfrage: Code:

SELECT Feld2
,Feld3
,Feld4
,Feld5
,Feld6
,Feld7
,Feld8
,Feld9
,Feld10
,Monatszahl
,CDate(Left([feld4], 2) & "." & [monatszahl] & "." & Year(DATE (
)) + Abs([monatszahl] < Month(DATE (
)))) AS Datum
FROM Monate
INNER JOIN Abfrage1 ON Monate.EnglMonKuerzel = Abfrage1.Monat
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wobei ich jetzt einfach Deine Bedingung übernommen habe.

Nouba · 29. Januar 2017

Mit Month(Datumswert) könnte der Monat ermittelt werden. Dieser mit 100 multipliziert plus dem Tag (durch Day(Datumswert) zu ermitteln) gibt Dir Vergleichsbedingungen für zukünftige Daten.

ebs17 · 29. Januar 2017

Oben gab es vergleichsweise folgendes:
Code:

If dAbflug < Date Then dAbflug = DateAdd("yyyy", 1, dAbflug)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Rico_2014 · 29. Januar 2017

Funktioniert hervorragend, Klaus!!
Vielenvielen Dank

Die Datenblattansicht wird nun perfekt dargestellt.

Nun zu meinem 2. Problem:
Die Daten werden ja letztendlich über eine Abfrage aus einer verknüpften Tabelle zur Verfügung gestellt.
Damit ist gewährleistet, dass es keinen Datenmüll gibt. Danke in diesem Zusammenhang an Eberhard für den Hinweis!
Ich möchte nun die Daten einfach kopieren und in outlook wieder einfügen.

Dabei wird mir ja in outlook das Datenblatt in Form einer Tabelle angezeigt.
In der Ünberschrift steht dann der Formularname.

Kann man das irgendwie besser lösen?
Die Tabelle in outlook ist perfekt, aber dass da der Formularname drüber steht gefällt mir gar nicht.

VG
Rico

ebs17 · 29. Januar 2017

\@Nouba: Danke für den Hinweis auf VarDateFromStr. Damit kann man eine Menge gültiger Datumsformate aus dem amerikanischen unmittelbar konvertieren:
Code:

' oleaut32 Module
Declare Function VarDateFromStr Lib "oleaut32" ( _
ByVal strIn As Long, _
ByVal lcid As Long, _
ByVal dwFlags As Long, _
ByRef pdateOut As Date _
) As Long

Sub aufruf_GetDate()
Dim A As Variant, i As Long
A = Array("4 MAR", "4MAR", "4.MAR", "4 MAR 16", "3/4/2017", "3/4", "04 MARCH", _
"4. MARCH", "33 MAR", "33 MIR")
For i = 0 To UBound(A)
Debug.Print A(i), GetDate(A(i))
Next
End Sub

Function GetDate(ByVal Datestring As String) As Variant
' US Spracheinstellung verwenden
Const LCID_US& = &H409
Dim hr&
Dim dateOut As Date

hr = VarDateFromStr(StrPtr(Datestring), LCID_US, 0, dateOut)
'Debug.Print hr
If hr = 0 Then GetDate = dateOut
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Text auslesen und in Textfelder schreiben

Text auslesen und in Textfelder schreiben

Text auslesen und in Textfelder schreiben

Text auslesen und in Textfelder schreiben

Text auslesen und in Textfelder schreiben - Similar Threads - Text auslesen Textfelder

Wort aus Index aus Text in Zelle auslesen

Anzahl aus Text auslesen

VBA Text aus einem Textfeld auslesen

Text zwischen zwei Zeichen auslesen

Excel VBA Datum aus Text auslesen

DB dynamischen Text auslesen

Unterschied Text in zwei Zellen auslesen. Geht das?