Aus Spalte Kommentar auslesen und als TextBox (oder Label) auf UF ausgeben
07.01.2020 18:36:27
Peer
Ich sitze den ganzen Tag schon folgenden Problem.
Ich habe in der Spalte B12:B42 in bestimmten Feldern Kommentare stehen, die ich beim Laden der UF frm_Tag als Label-Objekt anzeigen lassen möchte.
Dazu habe ich bis jetzt folgendes geschrieben...
Private Sub UserForm_Initialize()
Dim Zeile As Long
Zeile = ActiveCell.Row
If Weekday(Cells(Zeile, 2)) = 1 Or Weekday(Cells(Zeile, 2)) = 7 Then
lbl_Kalendertag = Format(CDate(Cells(Zeile, 2)), "DDDD " & " " & "DD.MM.YYYY")
lbl_Kalendertag.ForeColor = vbRed
Else
lbl_Kalendertag = Format(CDate(Cells(Zeile, 2)), "DDDD " & " " & "DD.MM.YYYY")
End If
' 'Feiertagtext anzeigen
If Cells(Zeile, 2).Comment.Text "" Then
lbl_Feiertag = Cells(Zeile, 2).Comment.Text
Else
lbl_Feiertag = ""
End If
Soweit funktioniert die Anzeige, wenn ein Kommentar vorhanden ist, aber wenn nicht, dann bekomme ich eine Fehlermeldung "...91: Objektvariable oder With-Blockvariable nicht festgelegt."
Wenn ich die If-Anweisung auskommentiere, dann läuft alles, nur halt ohne die Anzeige des Kommentars.
Was muss ich anders machen?
Vielen Dank für eure Unterstützung.
LG
Peer
Anzeige