Bestimmte Zellen einfärben
04.02.2005 00:31:39
Gaugler
ich habe zwar kaum kenntnisse in VBA, bin aber bis jetzt gut voran gekommen.
Habe folgendes Problem:
ich möchte in einer Tabelle einen bestimmten Bereich die Zellen einzeln farbig einfärben.
z.B. Zellen A1 bis F1 mit der Farbe rot ( 3 )
Zellen B2 bis F2 mit der Farbe blau ( 20 )
So ich habe folgenden Code eingegeben:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim iColorIndex As Integer
iColorIndex = ActiveCell.Interior.ColorIndex
If iColorIndex <> xlNone Then
ActiveCell.Interior.ColorIndex = xlNone
Else
ActiveCell.Interior.ColorIndex = 3
End If
End Sub
Ich kann jetzt zwar die Zellen einfärben und auch wieder rückgängig machen, aber wie bekomme ich einen bestimmten Zellbereich oder eine einzelne Zelle farbig so?
Muß ich mit RangeSelect("A1:F1")anstatt mit ActiveCell arbeiten?
Ich weiß echt nicht mehr weiter und in meinem schlauem Buch steht auch nichts darüber.
Ich bin Anfänger und versuch auch das alles zu lernen, aber manchmal gehts ohne Hilfe nicht!
Ich würde mich über eine Lösung des Problems freuen!
Im vorraus Danke!
Gruß Werner