Laufzeitfehler 438
21.08.2018 15:11:41
Roger
Ich habe folgenden Code
If akennz = 1 Then
For i = spalte To spalte + Tage - 1
If Cells(zeile, i).Interior.ColorIndex 17 And Cells(zeile, i).Interior.ColorIndex 33 Then
With Cells(zeile, i)
.Value = "U"
End With
ElseIf Cells(zeile, i).ColorIndex = 17 Or Cells(zeile, i).ColorIndex = 33 Then
End If
Next i
End If
Wenn ich ihn ausfürhe erhalte ich einen Laufzeitfehler 438, Objekt unterstützt diese Eigenschaft oder Methode nicht. Dies bei ElseIf Cells ......
Ich will damit bezwecekn das wenn eine der beiden Farben vorhanden ist diese übersprungen werden und danach weiter eingetragen wird. Wenn ich die Farben auf 15 und 39 ändere läuft es durch jedoch werden die farbigen Zellen auch ausgefüllt.
Danke und Gruss
Roger