For Each rCell In Worksheets("_HISTORY").Range("_H
09.12.2013 22:29:02
Peter
Weshalb läuft mein Code nicht, wenn ich
den Range wie folgt anspreche:
For Each rCell In Worksheets("_History").Range("_HIST")
...
Next
Wenn ich "In Wroksheets" weglasse, funktioniert es.
Der Worksheet-Name ist richtig geschrieben, wie die Abfrage im Direktbereich zeigt:
?range("_Hist").Parent.name
History
Gruss, Peter
Sub Farbteppich()
Dim rCell As Range
'On Error Resume Next
' For Each rCell In Worksheets("_HISTORY").Range("_HIST")
For Each rCell In Range("_HIST")
Select Case rCell.Row Mod 6
Case 2: rCell.Interior.Color = 14994616 '''' hell-blaue Füllung
Case 4: rCell.Interior.Color = 10092543 ''' hell-gelbe Füllung
Case 0: rCell.Interior.Color = 11851260 ''' hell-braune Füllung
Case Else: rCell.Interior.Color = xlNone
End Select
Next
'On Error GoTo 0
End Sub
Anzeige