Guten Morgen liebe VBA-Gemeinde,
ich sitze gerade an der Erstellung eines VBA-Belegungskalenders für einen ganztägig genutzten Seminarrauum. Der Belegungskalender färbt sich grün wenn frei, rot wenn belegt und türkis wenn doppelt bebucht. Einmal türkis darf vorkommen, da es sich dann um eine Vormittags- und eine Nachmittagsbelegung handelt. Zweimal "türkis" hintereinander darf es nicht geben, da der Raum sonst überbucht wäre.
Rein die Farben zu zählen ist ja an sich nicht das Problem:
Beispiel:
Sub Farbezählen() Dim Summe As Long Dim Zelle As Range For Each Zelle In Selection If Zelle.Interior.ColorIndex = 8 Then Summe = Summe + Zelle.Value End If Next Zelle MsgBox "Die Farbsumme lautet: " & Summe End Sub Aber gibt es auch eine Möglichkeit mir einen Hinweis zu geben, wenn es zweimal türkis hintereinander gibt? Ich bin aktuell leider überfragt und bitte um Hilfe.
Beste Grüße und einen schönen Sonntag
Euer Oliver