Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aktive Zelle farblich - Speichern

Aktive Zelle farblich - Speichern
04.08.2005 13:38:04
Helge
Hallo.
Ich möchte gerne in einer Tabelle immer die aktive Zelle farblich hervorheben und nach dem Verlassen der Zelle solle die ursprüngliche Farbe hergestellt werden. Soweit so gut - siehe Beispiel.
Nun möchte ich aber verhindern, dass beim Abspeichern die aktive Zelle (also mit der Farbe) so gespeichert wird. Das würde ja dazu führen, dass beim erneuten Öffnen eine nicht aktive Zelle farblich gestaltet ist. Hoffe, das war verständlich...
Beispiel:
Dim lastcell As Range
Dim farbe As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
ActiveSheet.Unprotect
lastcell.Interior.ColorIndex = farbe
farbe = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 22
Set lastcell = Target
ActiveSheet.Protect
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zelle farblich - Speichern
04.08.2005 13:54:59
Hajo_Zi
Hallo Helge,
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.
Beispieldatei
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!"
Anzeige
AW: Aktive Zelle farblich - Speichern
04.08.2005 13:57:24
Helge
Danke für den Hinweis - kann von hier (Arbeit) leider nicht darauf zugreifen...
AW: Aktive Zelle farblich - Speichern
07.08.2005 12:53:40
opaharry
Aktive Zelle wird Gelb ,beim Verlassen wird alte Farbe wieder hergestellt

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Static OldIndex As Integer
Static OldCell As Range
On Error Resume Next
OldCell.Interior.ColorIndex = OldIndex
If Not OldCell Is Nothing Then
OldIndex = Target.Interior.ColorIndex
End If
Target.Interior.ColorIndex = 36
Set OldCell = Target
End Sub

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige