Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1492to1496
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
Inhaltsverzeichnis

aktive Zelle farblich markieren nach Bedarf

aktive Zelle farblich markieren nach Bedarf
25.05.2016 13:23:41
Alex
Hallo Auskenner,
Anfang der 2000er gab es mal einen Beitrag der diese Möglichkeit mit folgendem VBA erfüllte:
Public grng As Range
Public giOld As Integer, giNew As Integer

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
On Error Resume Next
giNew = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 26
grng.Interior.ColorIndex = giOld
giOld = giNew
Set grng = Target
End Sub

Mein Problem damit ist Folgendes:
Nach dem Speichern der Datei bleibt die zuletzt markierte Zelle durch VBA eingefärbt. Nach Wiederöffnen der Datei und dem verlassen dieser Zelle wird die Einfärbung aber nicht aufgehoben, sonder verbleibt in der Färbung.
Nach mehrmaligem Öffnen und Schließen der Datei sieht die Tabelle aus wie vollgekleckert.
Daher meine Frage:
Kann dies durch Änderung des VBAs korrigiert werden?
Oder gibt es die Möglichkeit, die VBA Funktion über eine Schaltfläche in der Tabelle durch ein weiteres Makro ein- und auszuschalten? Da ich zum Lesen der Tabelle die Funktion eh nicht brauche nur beim Update der Tabelle unterstützt es sinnvoll.
Danke und Grüße, Alex

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktive Zelle farblich markieren nach Bedarf
25.05.2016 19:27:40
Hajo_Zi
Hallo Alex,
Private Sub Workbook_BeforeClose(Cancel As Boolean)
grng.Interior.ColorIndex = giOld
End Sub

AW: aktive Zelle farblich markieren nach Bedarf
31.05.2016 12:18:00
Alexander
Hallo Hajo,
Dein
Privat
Sub
Workbook_BeforeClose(Cancel As Boolean)
habe ich unter VBA-Project - Microsoft Excel Objekte - Diese Arbeitsmappe eingefügt.
Ergebnis:
Das "Färben" der aktiven Zelle funktioniert nach wie vor. Allerdings erhalte ich vor dem Schließen der Datei einen Laufzeitfehler ('424'). Der Debuggen Schalter führt dann zur Codezeile:
grng.Interior.ColorIndex =
giOld
Direkt im Worksheet eingefügt verändert es nicht die ursprüngliche Situation. Heißt, nach Speichern und Wiederöffnen behält die letzt markierte Zelle ihre Einfärbung.
Muss ich dein Statement an anderer Stelle einfügen, bzw. mit dem vorhandenen Code verknüpfen?
Danke und Grüße, Alex

Anzeige
AW: aktive Zelle farblich markieren nach Bedarf
31.05.2016 17:23:14
Hajo_Zi
Fehler von mir XlNone
Gruß Hajo

AW: aktive Zelle farblich markieren nach Bedarf
31.05.2016 20:53:40
Hajo_Zi
Halllo Alex,
es könnte auch sein das mein Code korrekt ist un die Variable giOld nicht richtig definiert ist.
Gruß Hajo

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige