Guten Tag zusammen,
ich versuche mittels
If ActiveCell.Interior.ColorIndex = 3 Then
UserForm3.Show
End If
eine Userform anzuzeigen. Soweit funktioniert das auch.
Die Tabelle auf die ich mich beziehe stellt einen Jahreskalender dar, welcher mir Feiertage rot hinterlegt.
Wenn jetzt ein Feiertag ausgewählt wird, erscheint dann die gewünschte Userform.
Jetzt benötige ich aber folgendes. Soweit funktioniert das auch. jetzt zu meinem Problem:
Ich müsste überprüfen ob der nächste Tag auch ein Feiertag ist, da dann eine andere Userform geöffnet
werden müsste um andere Eingaben zu machen.
Ich habe es folgendermaßen versucht:
If ActiveCell.Interior.ColorIndex = 3 And ActiveCell.Offset(0, 1) = Interior.ColorIndex = 3 Then
UserForm4.Show
End If
Aber funktionierte nicht:
Sagt mir jemand wo der Fehler liegt?
Danke
Gruß Volker