VBA Code für fett anzeige zweier Datums
20.12.2023 13:30:31
Jo
ich habe folgenden VBA Code mit dem ich erreichen möchte, dass 2 Datumsangaben fett ausgegeben werden.
Der Eintrag soll in Zelle D7 erfolgen, in der Spalte A11 steht das Anfangsdatum und in Spalte A wird nach dem Enddatum gesucht.
Also in D7 steht "vom"gefolgt von 4 Leerzeichen, dann kommt das Datum das fett ausgegeben werden soll das Datum kann 8 bis 10 Zeichen lang sein, dann kommen wieder 4 Leerzeichen das Wort "bis" und wieder 4 Leerzeichen und dann das Enddatum das fett sein sollte und auch 8 bis 10 Zeichen lang sein kann.
Hierfür habe ich diesen Code, und es betrifft nur die Zelle D7.
Sub FormatBlutzuckerSheet()
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Blutzucker")
Dim anfangsDatum As Variant
Dim endDatum As Variant
Application.ScreenUpdating = False
anfangsDatum = ws.range("A11").Value
If IsDate(anfangsDatum) Then
ws.range("A6").Value = "Monat: " & Format(anfangsDatum, "MMMM YYYY")
ApplyBoldFont ws.range("A6"), Len("Monat: ") + 1, Len(Format(anfangsDatum, "MMMM YYYY"))
Else
ws.range("A6").Value = ""
End If
endDatum = GetMaxDateFromColumn(ws, 11)
If IsDate(anfangsDatum) And IsDate(endDatum) Then
ws.range("D7").Value = "vom " & Format(anfangsDatum, "d.m.yyyy") & " bis " & Format(endDatum, "d.m.yyyy")
Dim startPos As Integer
startPos = 5 ' Startposition des ersten Datums in "vom dd.mm.yyyy"
ApplyBoldFont ws.range("D7"), startPos, Len(Format(anfangsDatum, "d.m.yyyy"))
startPos = InStr(ws.range("D7").Value, "bis ") + 10 ' Startposition des zweiten Datums
ApplyBoldFont ws.range("D7"), startPos, Len(Format(endDatum, "d.m.yyyy"))
Else
ws.range("D7").Value = ""
End If
Application.ScreenUpdating = True
End Subda ich nicht weiter komme, ist meine Frage kann man diesen Code dementsprechend ab ändern.
Bin für jede Hilfe dankbar.
Grüße Jo