Hilfe bei Fehler
09.02.2004 19:43:02
Peter
ich möchte durch die Abfrage der Hintergrundfarbe in der
Datumszeile 6, Spalte 4 erreichen, dass die Spalten in denen keine Farbe
ist, übersprungen werden.
-nicht wundern, habe alles ermögliche rausgeschmissen um
meinen Fehler einzugrenzen.
Ich hoffe,Ihr könnt mit dem Gerüst etwas anfangen. Die vermutliche
Fehlerquelle ist markiert.
Danke im voraus
Peter
Sub Eintrag()
Dim rngFind As Range
Dim intRow, intMonth, intCounter As Integer
On Error Resume Next
For intRow = 7 To 7
For intMonth = 1 To 1
Set rngFind = Worksheets(Format(DateSerial(1, intMonth, 1), "mmmm")). _
Columns(2).Find(Cells(intRow, 2), LookIn:=xlValues, lookat:=xlWhole)
For intCounter = 1 To 12
'>>>> in den folgenden 2 Zeilen müßte der Fehler liegen
If Cells(6, 3 + intCounter).Interior.ColorIndex = xlNone Then
With rngFind.Offset(0, intCounter)
.Value = "E"
End With
End If
Next intCounter
Next intMonth
intRow = intRow + 1
Next intRow
End Sub
Anzeige