Hallo!
Ich habe eine Tabelle mit 75 Zeilen. Bearbeitet werden Zeilen 4 bis 75. Alles nur mit Makros, nichts manuell.
Nun stehen in Zeile 2 die Wochentage im Format Mo Di Mi usw.
Wenn dem so ist, dann wird die Spalte ausgegraut. Ebenso sind Feiertage hinterlegt und auch diese Spalten werden bedingt formatiert in Grau gefärbt.
Wenn nun jemand eine der grauen Zellen auswählt, soll sofort eine MsgBox erscheinen (MsgBox "Bitte nur Werktage auswählen.")
Mit
-
CODE: ALLES AUSWÄHLEN
-
Sub Antrag()
If ActiveCells.Interior.ColorIndex = 15 Then
MsgBox "Bitte nur Werktage auswählen."
With Selection
.Font.Name = "Wingdings"
.Value = "¹"
End With
End If
End Sub
kommt
"Laufzeitfehler '424':
Objekt erforderlich"
Habe es auch mit einer Schleife probiert:
-
CODE: ALLES AUSWÄHLEN
-
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Interior.ColorIndex = 15 Then
MsgBox "Bitte nur Werktage auswählen."
Else
...
Habe das Gefühl, ganz grob etwas vergessen oder falsch zu haben. Nur was?
Vielen Dank vorab! VG
|