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.
|