Ich habe unterstehender Code in ein Tabellenblatt geschrieben. Er sollte einen Button welcher sich in einer Userform befindet, wenn Zellbereich voll ist, von grün auf rot wechseln. Dies funktioniert auch. Aber erst wenn ich im Tabellenblatt was ändere. Wäre toll, wenn der Button beim öffnen der UserForm bereits die richtige Farbe hätte! Kann da jemand helfen?
Besten Dank. Gruss Daniel
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B4:B28"), Target) Is Nothing Then
If WorksheetFunction.CountIf(Range("B4:B28"), "") > 0 Then
UserForm_Kunde_suchen.Button_Datum2.BackColor = vbGreen
Else
UserForm_Kunde_suchen.Button_Datum2.BackColor = vbRed
End If
End If
End Sub