Hallo zusammen,

im nachfolgenden VBA-Code sind Fehler enthalten. Könnt ihr mir diese aufdecken?
Ist eine Abgabe für die Uni....

Sub

    Dim Start As Integer
    Dim Zähler As Byte

    Set Start = Cells(A1)
    
    Do Until Start = ""
        Select Case Start
            Case "Heute"
                Start.Font.Color = RGB(255, 0, 0)
                
            Case "Morgen", "Heute"
                Start.Font.Color = RBG(0, 255, 0)
                
            Case Else
                Start.Interior.Pattern = Nothing
        End Select
    
        Set Start.Value = Start.Offset(1, 0)
    Loop Until Start.Offset(1, 0) = ""
    
    For Zähler = 0 To 300 Step -1
        'Zahl ausgeben
            Start.Value = Zähler
            
        'Angabe ob gerade oder ungerade
            If Zähler Mod 2 = 0 Then
                Start.Offset(0, 1).Value = "ungerade"
            Else
                Start.Offset(0, 1).Val = "gerade"
            End If
    Next Zähler
End Sub

Beste Grüße.