Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: juergenbhofmann am Juli 23, 2014, 16:34:35 Nachmittag

Titel: Zellenfärbung mit Programm nicht möglich
Beitrag von: juergenbhofmann 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.

Titel: Antw: Zellenfärbung mit Programm nicht möglich
Beitrag von: gmg-cc am Juli 23, 2014, 18:26:38 Nachmittag

Moin,

Auch wenn es hier dein erster Beitrag im Forum ist ...

• Wenn das Programm funktionieren würde, müsstest du hier nicht nachfragen.
  
• Bei mir funktioniert der Code überhaupt nicht und bricht mit einem Fehler ab
  
• Und: Was soll der Code denn überhaupt machen? Ich werde daraus nicht schlau, weil die Reihenfolge totat falsch ist ...

Wahrscheinlich ist die eine oder andere Zeile so wie so überflüssig.
Schreibe das bitte in dieser Art: "Wenn ich in eine andere Zelle des Tabellenblattes klicke, dann soll ...