Hallo Experten,
wie kann man in einer WORD-Tabelle (Spalte) ein eingetragenes Datum mittels VB auslesen (mathem. manipulieren, z.B. etwas dazuaddieren) und dann wieder in der gleichen Zelle ausgeben?
Wie kann man z.B. den Wochentag eines solchen Datums ermitteln?
Danke!
Hallo Experten,
wie kann man in einer WORD-Tabelle (Spalte) ein eingetragenes
Datum mittels VB auslesen (mathem. manipulieren, z.B. etwas
dazuaddieren) und dann wieder in der gleichen Zelle ausgeben?
Wie kann man z.B. den Wochentag eines solchen Datums
ermitteln?
Hallo Frank,
versuch’s mal damit:
Sub Wochentag()
Dim D As Date
Dim T As Byte
Dim Tag As String
' Es muß ein gültiges Datum markiert sein, z.B. 29.8.01 oder 29.08.2001
D = CDate(Selection.Text)
T = Weekday(D, vbMonday)
Select Case T
Case 1: Tag = "Montag"
Case 2: Tag = "Dienstag"
Case 3: Tag = "Mittwoch"
Case 4: Tag = "Donnerstag"
Case 5: Tag = "Freitag"
Case 6: Tag = "Samstag"
Case 7: Tag = "Sonntag"
End Select 'T
MsgBox "Der " & D & " ist ein " & Tag & ".", vbInformation, "Wochentag"
End Sub 'Wochentag
Den Rest kriegst Du sicher alleine raus. Ich sage nur:
- Makro aufnehmen hilft ungemein.
- Strg-F1 hilft ungemein.
Kristian