ich habe hier ein Makro das auf eine Zelle trifft mit dem Ergebniss #Wert! und hält an mit einem Fehler.
Was muß ich machen damit das Makro normal weiter läuft?
Sub Farbe1()
Dim I As Integer
Dim J As Integer
Dim K As Integer
Range("I4").Select
For K = 1 To 7
For J = 1 To 20
For I = 1 To 73
If ActiveCell = 1 Then
Betrieb
ElseIf ActiveCell = 2 Then
HerrRau
ElseIf ActiveCell = 3 Then
HerrRau
ElseIf ActiveCell = 4 Then
Inst
ElseIf ActiveCell = 0 Then
Leer
End If
Selection.Offset(0, 1).Select
Next I
Selection.Offset(2, -73).Select
Next J
Selection.Offset(1, 0).Select
Next K
End Sub