Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
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
1516to1520
1516to1520
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA -active Zelle/Zeile farbig hervorheben

Forumthread: VBA -active Zelle/Zeile farbig hervorheben

VBA -active Zelle/Zeile farbig hervorheben
03.10.2016 15:51:51
Andreas
Hallo, wie kann ich mit VBA in einer Tabelle die wirklich aktive Zeile / Zelle in
gelb ( RGB 255/255/153) anzeigen?
Z.B. befinde ich mich in Zeile 15, Spalte C .
Wenn dort mit Doppelklick meine Userform geöffnet wird- soll sich die aktive Zeile im Bereich von B-N farbig sich abheben.
Kann gleichzeitig die wirklich aktive Zelle, die derzeit aktiv bearbeitet wird in grün ( RGB 184/251/95) farbig hinterlegt werden.
Springe ich nach unten- soll die Zeile im vorherigen Bereich wieder farblos werden und die nun aktive Zeile so farbig dargestellt werden.
Ist sowas möglich?
Habe da noch sehr wenig Erfahrung. Aller Anfang ist schwer.
Wo füge ich welchen VBA Code ein?
 Soll ich dazu ein neues Modul mit Option Explicit erstellen?
Vielleicht kann wer helfen?
Danke im voraus.
Andreas
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA -active Zelle/Zeile farbig hervorheben
03.10.2016 17:03:58
Daniel
Hi
zum markiern der aktiven Zelle und Zeile würde ich die Bedingte Formatierung nutzen.
das hat den Vorteil, dass du die Originialformate nicht löscht und diese automatisch wieder auftauchen, wenn du eine andere Zelle markierst.
gehe so vor:
schreibe in das Modul des Tabellenblatts diesen Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").Value = ActiveCell.Row
Range("B1").Value = ActiveCell.Column
End Sub

dieser Code scheibt die Zeilennummer der aktiven Zelle in die Zelle A1 und die Spaltennummer in die Zelle B1 (du kannst natürlich auch jede andere freie Zelle verwenden)
markiere jetzt die Spalten B-N und lege für sie diese Beiden Bedingten Formatierungen an, jeweils mit Formel als Regel:
Farbe Gelb: =Und(Zeile()=$A$1;Spalte()$B$1)
Farbe Grün: =Und(Zeile()=$A$1;Spalte()=$B$1)
Gruß Daniel
Anzeige
Empfehle, die Koordinaten nicht in eine Zelle, …
03.10.2016 17:15:14
Luc:-?
…sondern in eine benannte Konstante, auf die die BedingtFormat-Regel zugreift, zu schreiben, Daniel & Andreas!
Gruß, Luc :-?
Besser informiert mit …
AW: Empfehle, die Koordinaten nicht in eine Zelle, …
03.10.2016 18:08:29
Andreas
Danke erst mal- weiß nicht ob es was hilft- füge erst mal noch folgendes Modul ein-
Diese 3 Code verwende ich, um die Spalte A vor der Bearbeitung farbig zu kennzeichnen. Während der Bearbeitung der Zellen ändert sich die Farbe in der erledigten Spalte A auf grün und am Schluß führe ich die CMD Fertig aus und es wird alles farbige in der Spalte A wieder farblos.
Meine Startspalte ist immer C.
Nun wollte ich eben den Code erweitern, um die Zeile in der ich mich befinde- mit eben einen helleren gelb nochmals optisch aufleben lass. Der Zeilebereich beginnt von B und endet bei N.
Ich möchte auch nicht all zu viel zerstören.
Ein Code den ich an meinen Anfügen könnte, wäre nett.
Den Code von Daniel probiere ich noch aus- nur A1 und B1 bringt mir bestimmt einiges durcheinander. Habe ja auch noch nicht so den Durchblick- bei meinen Kenntnissen.
Danke erst mal.
Gruß Andreas 

Option Explicit
Sub gelb_für_Bearbeiten() 'markiert die zu Bearbeiteten Zeilen in der Spalte A für eine Optik
Dim i&
i = 19
Do
If (i Mod 49)  1 Then
Range("A" & i).Interior.Color = vbYellow
i = i + 1
Else
i = i + 19
End If
Loop While i  1 Then
Range("A" & i).Interior.Color = vbYellow
i = i + 1
Else
i = i + 19
End If
Loop While i  1 Then
Range("A" & i).Interior.ColorIndex = xlNone
i = i + 1
Else
i = i + 19
End If
Loop While i

Anzeige
benannte Konstante
03.10.2016 19:18:51
Andreas
und wie könnte der Code dann aussehen? Luc?
Da steh ich bestimmt auf dem Schlauch!
AW: Empfehle, die Koordinaten nicht in eine Zelle, …
03.10.2016 20:06:16
Daniel
du musst ja nicht A1 und B1 nehmen, du kannst auch jede andere freie Zelle (ein Excelblatt hat genügend davon) verwenden.
die Zellen können auch auf einem anderen Tabellenblatt liegen.
Du musst halt nur im Code die gleichen Zellen verwenden wie in der Bedingten Formatierung.
Gruß Daniel
Anzeige
AW: VBA -active Zelle/Zeile farbig hervorheben
03.10.2016 19:32:28
ChrisL
Hi Andreas
A1 und B1 können genauso gut X1 und Y1 sein (die Spalten kannst du ausblenden).
Da dein Code auf Spalte A wirkt (übrigens Fehler grün = yellow), und die Bedingte Formatierung auf B-N, sollten sich die Zwei nicht in die Quere kommen.
Wenn ich Luc richtig verstehe, lautet die Empfehlung über den Namensmanager den beiden Zellen einen Namen zu geben (ansonsten korrigiere mich bitte, in eine benannte Konstante könnte man auch als public Variable interpretieren?).
Den Vorteil für einen Namen würde ich sehen, z.B. wenn du die zwei Zellen auf ein Hilfsblatt verbannst.
Worksheets("Hilfsblatt").Range("EinName1").Value = ActiveCell.Row
Worksheets("Hilfsblatt").Range("EinName2").Value = ActiveCell.Row
=Und(Zeile()=EinName1;Spalte()EinName2)
Worauf ich aber hauptsächlich hinweisen wollte. Wenn die Aktion schon mit einem Before_DoubleClick Ereignis verbunden ist, dann kannst du dir den Umweg über die Zellen sparen. Target wäre m.E. zwangsweise die aktive Zelle.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Range(Cells(Target.Row, 2), Cells(Target.Row, 14)).Interior.Color = vbYellow
End Sub
Farbe zurück setzen (am einfachsten alle Zeilen auf einmal) wenn das Userform geschlossen wird.
Unklar ist mir, wie sich die aktive Zelle ändert. Entweder hast du die Userform Eigenschaft ShowModal = False, dann wäre vermutlich doch die Lösung von Daniel der richtige Ansatz.
Oder, so meine Vermutung, die Userform Interaktion z.B. Listbox ändert die aktive Zelle. Dann könnte man den Code dort mit rein packen.
Auf alle Fälle würde ich versuchen dieses Worksheet_SelectionChange Ereignis zu vermeiden. Man kann es zwar machen (abhängig von der Ausgangslage/Anforderung auch richtig), aber es wird bei jedem Klick in der Tabelle im Hintergrund etwas geschrieben, was ich suboptimal finde.
Worksheet_... Codes müssen ins Modul der betreffenden Tabelle. Im Gegensatz zu deinem bestehenden Code, der in ein Standardmodul soll.
cu
Chris
Anzeige
AW: VBA -active Zelle/Zeile farbig hervorheben
03.10.2016 22:09:18
Andreas
Danke Chris, Daniel, Luc
Ich interpretiere das ebenfalls so- ich teste das mal mit den Hilfstabellen. Gute Idee.
Ja, Chris deine Vermutung, das springen zur nächsten Spalte C übernimmt die Userform.
Private Sub CommandButton19_Click()
Dim z As Long
Dim r As Long
Range(TextBox19.Value) = TextBox17.Value
Range(TextBox15.Value) = TextBox16.Value
' ich kommentiere das mal aus...
'z = Cells(ActiveCell.Row, "A")               'aktuelle Lfd. Nr
'r = ZeilenNr(z + 1)                          'zutreffende Zeilen# der nächsten Lfd. Nr
'Cells(r, ActiveCell.Column).Select           'auf nächste Zeile positionieren
' ... weil das so gedacht war:
Cells(ActiveCell.Row, 1).Interior.Color = vbGreen ' erst das Grün
If (ActiveCell.Row Mod 49)  0 Then
ActiveCell.Offset(1).Select
Else
ActiveCell.Offset(20).Select
End If
UserForm_Initialize ' das lädt einfach die Variablen nach - wozu eigentlich?
End Sub
Danke erst mal.
Grüße Andreas
Anzeige
;

Forumthreads zu verwandten Themen

Zellen farbig markieren
chrisss

Hallo,
ist es eigentlich bei Excel 2007 nun möglich, dass bei einer Wenn-Funktion eine Zelle farbig ausgefüllt wird. Beispiel: Wenn in Tabelle 1 in A1 ein U steht, soll die Zelle A1 in Tabelle 2 rot ausgefüllt werden.
Ich hatte die Frage schonmal gepostet und die Antwort erhalten, dass...
21.08.2008 13:20:00
Thread-ID: 1003455
8 Beiträge
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 Beiträge
In Zeile suchen und Spalte löschen
Ralf

Hallo Excel - Experten,
nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte...
23.10.2008 09:42:32
Thread-ID: 1018520
7 Beiträge
Zellen farbig darstellen ?
Selma

Hallo Leute,
ich habe die Zahlen in Spalte B aufsteigend sortiert. Jetzt möchte ich die Zellen mit der Füllfarbe ab Zeile 2 wie folgt farbig darstellen:
- Wenn in Spalte B der Zahl "0" steht, dann die Zeile ab Spalte A bis Spalte W mit Interior.ColorIndex 15 darstellen
- Für die Zah...
12.11.2008 08:53:00
Thread-ID: 1023707
10 Beiträge
Zeilen durchsuchen und alle Spalten auslesen.
LOTHARP

Hallo Zusammen,
ich habe eine Tabelle in der ich mir den Maxwert einer bestimmten Zeile wiedergeben lasse mit folgendem MAkro gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 9 And Target.Row >= 2 And Target.Row
In de...
10.12.2008 11:36:41
Thread-ID: 1031637
4 Beiträge
unerklärliche Spalten- und Zeilenköpfe
Bernhard

Liebe Excel-Fangemeinde,
bei einem Übungsbeispiel einer Schulungsteilnehmerin trat folgendes Phänomen auf (siehe Screenshot):

Auf dem ersten Tabellenblatt wurden einige einfache Formatierungen (unter anderem doppelt unterstrichen, hochgestellt und durchgestrichen) ganz normal über...
15.12.2008 11:58:00
Thread-ID: 1032990
3 Beiträge
Zeile und Spalte markieren
Karsten

Hallo Excel Freunde,
ich habe die Adresse von 2 Zellen (ZeileA, SpalteA) und (ZeileB, SpalteB) und möchte den gesmten Bereich markieren und dann kopieren.
Habe folgendes probiert:
Set Bereich1 = Rows("ZeileA:ZeileB")
Set Bereich2 = Columns("SpalteA:SpalteB")
Set Gesamtb = Un...
18.12.2008 15:54:47
Thread-ID: 1033909
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Anzeige
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
trotz INDIREKT verknüpfte zellen farbig markieren
merlin

Hallo,
gibt es eine Möglichkeit trotz der Verwendung von INDIREKT die verknüpften Zellen markieren zu lassen?
https://www.herber.de/bbs/user/60118.xls
Viele Grüße, vielen Dank.
09.03.2009 11:14:37
Thread-ID: 1058088
3 Beiträge
wert in zeile suchen und spalte kopieren
Astrid

Hallo Fachleute,
Ich stecke bei folgendem Excel problem fest:
Ich habe eine relativ komplexe Exceldatei mit der ich die Ergebnisse aus einem Simulationsprogramm auswerte. Alle Auswertung bezieht sich auf Werte aus einem Blatt "Datei" mit einer festen Struktur. D.h. ich habe in Zelle A 1...
11.03.2009 12:41:00
Thread-ID: 1059072
9 Beiträge
Anzeige
Bestimmte Zeilen und Spalten löschen
jo_cindy

Hallo Leute, hab mal wieder eine Frage:
Nachfolgende Exceldatei bekomme ich aus meiner Zeiterfassung ausgelesen. Die rot markierten Bereiche (nur zur Erklärung hier rot gekennzeichnet!) benötige ich aber nur, alle anderen Daten sollen nicht nur ausgeblendet werden, sondern gelöscht werden....
28.04.2009 19:32:33
Thread-ID: 1071712
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Aktive Zelle und Zeile farbig hervorheben in Excel

Schritt-für-Schritt-Anleitung

Um die aktive Zelle und die aktive Zeile in Excel farbig hervorzuheben, kannst du sowohl VBA als auch bedingte Formatierungen nutzen. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. VBA-Code einfügen:

    • Öffne das VBA-Editor-Fenster mit ALT + F11.
    • Wähle die entsprechende Tabelle im Projekt-Explorer aus.
    • Füge den folgenden Code in das Modul der Tabelle ein:
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   ' Aktive Zeile farbig hervorheben
   Range("B" & Target.Row & ":N" & Target.Row).Interior.Color = RGB(255, 255, 153) ' Gelb

   ' Aktive Zelle farbig hervorheben
   ActiveCell.Interior.Color = RGB(184, 251, 95) ' Grün
End Sub

  2. Bedingte Formatierung einrichten (optional):

    • Wähle den Bereich B:N aus, den du formatieren möchtest.
    • Gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.
    • Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
    • Für die aktive Zeile verwende die Formel: 
      =ZEILE()=ZEILE(INDIREKT("A" & ZÄHLENWENN($A:$A,"<>")))
    • Stelle die gewünschte Formatierung ein.

Häufige Fehler und Lösungen

  • Fehler: Die Zeile wird nicht farbig hervorgehoben:

    • Überprüfe, ob der VBA-Code im richtigen Modul eingefügt wurde und das Blatt korrekt ausgewählt ist.

  • Fehler: Die aktive Zelle wird nicht farbig dargestellt:

    • Stelle sicher, dass du die richtige Zeile und Spalte im VBA-Code angibst.

  • Lösung: Bedingte Formatierungen überschreiben die VBA-Formatierungen:

    • Deaktiviere oder passe die bedingte Formatierung an, um Konflikte zu vermeiden.

Alternative Methoden

Wenn du die aktive Zelle hervorheben möchtest, ohne VBA zu verwenden, kannst du die bedingte Formatierung allein nutzen:

  1. Bedingte Formatierung für die aktive Zelle:
    • Wähle den Bereich aus, den du formatieren möchtest.
    • Gehe zu „Bedingte Formatierung“ > „Neue Regel“ und wähle „Formel“.
    • Verwende die Formel: 
      =CELL("address")=ADDRESS(ZEILE(),SPALTE())
    • Setze die gewünschte Formatierung.

Praktische Beispiele

  1. Aktive Zelle in Grün und aktive Zeile in Gelb:

    • Verwende den oben angegebenen VBA-Code, um die aktive Zelle und Zeile farbig darzustellen.

  2. Aktive Zelle farbig darstellen ohne VBA:

    • Nutze die bedingte Formatierung mit der Formel zur aktiven Zelle.

Tipps für Profis

  • Verwendung von benannten Bereichen:

    • Statt auf Zellen wie A1 und B1 zuzugreifen, kannst du benannte Bereiche verwenden, um die Lesbarkeit und Wartbarkeit deines Codes zu verbessern.

  • Verwendung von Public Variablen:

    • Definiere Public Variablen im Modul, um die Koordinaten der aktiven Zelle zu speichern und in anderen Prozeduren zu verwenden.

FAQ: Häufige Fragen

1. Wie kann ich die aktive Zelle in Excel hervorheben, ohne VBA zu verwenden? Du kannst die bedingte Formatierung verwenden, um die aktive Zelle farbig darzustellen, indem du die Formel =CELL("address")=ADDRESS(ZEILE(),SPALTE()) anwendest.

2. Wie kann ich die Farbe der aktiven Zelle ändern? Im VBA-Code kannst du die RGB-Werte ändern, um die Farbe der aktiven Zelle zu modifizieren. Beispielsweise kannst du RGB(255, 0, 0) für Rot verwenden.

3. Ist es möglich, die aktive Zeile und Spalte gleichzeitig hervorzuheben? Ja, du kannst den VBA-Code so ändern, dass sowohl die aktive Zeile als auch die aktive Spalte farbig hervorgehoben werden, indem du die entsprechenden Zellen im Code anpasst.

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