Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / Zellenfärbung mit Programm nicht möglich
« am: Juli 23, 2014, 16:34:35 Nachmittag »
Hallo,
nachstehendes Programm funktioniert.
Ich habe leider das Problem, dass es damit nicht möglich ist andere Zellen in anderen Farben bleibend einzufärben. Wenn ich die Zelle wechsele geht die Färbung weg.
Was kann ich tun damit die Färbung bleibt.
Danke im Voraus.
Jürgen
Folgendes Programm färbt die aktive Zelle farblich ein. Wird die Zelle wieder verlassen wird der Ursprungszustand
in der verlassenen Zelle wieder hergestellt und die nun aktive Zelle entsprechend eingefärbt.
Dim lastcell As Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End Sub
Dieser Code ist in einem Tabellenblatt einzufügen, nicht in einem Modul.
nachstehendes Programm funktioniert.
Ich habe leider das Problem, dass es damit nicht möglich ist andere Zellen in anderen Farben bleibend einzufärben. Wenn ich die Zelle wechsele geht die Färbung weg.
Was kann ich tun damit die Färbung bleibt.
Danke im Voraus.
Jürgen
Folgendes Programm färbt die aktive Zelle farblich ein. Wird die Zelle wieder verlassen wird der Ursprungszustand
in der verlassenen Zelle wieder hergestellt und die nun aktive Zelle entsprechend eingefärbt.
Dim lastcell As Range
Dim farbe As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6
Set lastcell = Target
End Sub
Dieser Code ist in einem Tabellenblatt einzufügen, nicht in einem Modul.