Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aktive Zelle einfärben...

Forumthread: Aktive Zelle einfärben...

Aktive Zelle einfärben...
16.06.2004 12:48:16
bags
Hallo zusammen,
hab hier von Björn mal dieses schöne Excel-Addin bekommen, mit dem man in jeder geöffneten Arbeitsmappe die aktive Zelle farbig hinterlegen kann. Soweit danke nochmal an Björn.
Ein Problem habe ich aber noch mit diesem Klassenmodul. Angenommen in der aktiven Mappe (Mappe1) ist Zelle A1 aktiviert und wir durch das AddIn mit Grün hinterlegt. Jetzt Aktiviere ich eine andere geöffnete Mappe (Mappe2) und arbeite darin. Wenn ich jetzt wieder zurück in die Mappe1 schalte so bleibt Zelle A1 Grün, auch wenn ich andere Zellen aktiviere.
Diese Phänomän tritt nur auf wenn ich zwischen geöffneten Arbeitsmappen wechsle...
Weiß jemand eine Lösung? Im Anhang mal die Datei!
Gruss Peter
https://www.herber.de/bbs/user/7437.xla
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zelle einfärben...
th.heinrich
hallo Peter,
will mir das .xla jetzt nicht downloaden. hatte aber mal folgendes gefunden.
aktive Zelle farbig

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 = 6 'gelb
Set OldCell = Target
End Sub

Martin Beck
gruss thomas
Anzeige
AW: Aktive Zelle einfärben...
16.06.2004 13:24:56
bags
Hallo Thomas,
der von Dir dargestellte Code muss in jede geöffnete Mappe eingefügt werden. Das AddIn funktioniert aber bei ALLEN geöffneten Mappen ohne dass der Code in jede eingefügt werden muss! Z. B. würde der o. a. Code bei Freigegebenen Mappen nicht funktionieren, da diese kein Code ausführen können. Das AddIn dagegen schon.
Aber danke trotzdem....
Peter
Anzeige
AW: Aktive Zelle einfärben...
Ulf
"würde der o. a. Code bei Freigegebenen Mappen nicht funktionieren, da diese kein Code ausführen können."
Das ist so nicht richtig, auch in freigegebenen Mappe können Makros
ausgeführt werden. Was nicht geht, ist Schutz setzen oder aufheben.
Ulf
AW: Aktive Zelle einfärben...
16.06.2004 14:59:13
bags
Ja stimmt. Aber darauf kommt es auch gar nicht an. Es muss halt nun mal als AddIn ausgeführt werden...
Anzeige
AW: Aktive Zelle einfärben...
16.06.2004 16:40:02
Nepumuk
Hallo,
ich habe eine weiterentwickelte Version des Addins. Baue aber gerade die Möglichkeit Objekte zu kopieren ein. Ist also noch nicht 100% fertig. Wenn du Interesse hast, dann schreib mir mal. (mknbg(at)t-online.de)
Gruß
Nepumuk
AW: Aktive Zelle einfärben...
16.06.2004 22:25:21
Nepumuk
Hallo,
ich bekomme mein Mail an dich wieder zurück. Mein Provider meint, die Domain "bagsbanny" gibt es nicht.
Gruß
Nepumuk
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige