Formatierung mit range bringt Laufzeitfehler
03.09.2003 10:20:14
Helmut
eine Tabelle (strTabKurs) wird eingelesen und die Daten in eine neue Tabelle (strTabBogen) ausgegeben. Wenn sich in strTabKurs in Spalte A der Wert ändert soll die entsprechende Zeile in strTabBogen blau hinterlegt werden. Wenn ich den Zeilenbereich wie unten als ..range(cells ..).. definiere bekomme ich einen Laufzeitfehler 1004. Wird die ..range.. testhalber mit ("a11:g11") definiert funktioniert es. Vermutlich sehe ich den Wald vor lauter Bäume nicht mehr, aber ich finde einfach den Fehler nicht.
Sub Kurse_bereitstellen()
Worksheets(strTabBogen).Range("a11:z96").Clear
Worksheets(strTabKurs).Activate
For i = 2 To 500
If IsEmpty(Cells(i, 1)) Then Exit For
With Worksheets(strTabBogen)
.Cells(i + 9, 1).Value = Cells(i, 1).Value
.Cells(i + 9, 2).Value = Cells(i, 2).Value
.Cells(i + 9, 3).Value = Cells(i, 4).Value
End With
If Cells(i, 1).Value <> Cells(i - 1, 1).Value Then
With Worksheets(strTabBogen).Range(Cells(i + 9, 1), Cells(i + 9, 7))
.Interior.ColorIndex = 34
End With
Else
' irgendetwas
End If
Next i
End Sub
Vielen Dank für eure Hilfe
Helmut