ich habe ein Script, dass durch Klicken in die Zelle die Hintergrundfarbe von weiß auf rot und umgekehrt ändert. Das Script stammt von ransi (glaube ich, der Thread existiert leider nicht mehr).
Zwei Dinge würde ich gerne verändern:
* Kann mir jemand eine Zeile einfügen, dass das Script nur für Zellen gilt, die eine Breite von höchstens 20 Pixel haben?
* Ich würde statt rotem Hintergrund gerne grün haben. Welcher Farbcode muss dann verwendet werden?
Herzlichen Dank!!
Hier das Script:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim f As Integer
'Dim bereich As Range
'Set bereich = Union(Rows(4), Rows(8), Rows(12), Rows(16))
If Target.Row Mod 3 <> 0 Then Exit Sub 'für jede 4te
'If Intersect(Target, bereich) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
Select Case Target.Interior.ColorIndex
Case 3: f = -4142
Case -4142: f = 3
End Select
Target.Interior.ColorIndex = f
ActiveSheet.Range("a1").Select
End Sub