Zellen färben
14.07.2003 11:37:57
Stephan
Das tut er aber für alle Zellen, nicht nur für die Zellen A1:A10, so wie ich es gerne möchte.
Wo liegt mein Fehler ??
Danke für die Hilfe
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
Dim b, e As Integer
For b = 1 To 10
e = 1
If Target.Cells = Cells(b, e) Then
Target.Interior.ColorIndex = 5
End If
Next
End Sub
Anzeige