Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zeile färben wenn eine Zelle darin angeklickt ist

Zeile färben wenn eine Zelle darin angeklickt ist
06.03.2014 21:26:18
Hans
Hallo Leute,
kann mir jemand helfen?
Ich möchte dass sich eine komplette Zeile färbt wenn eine Zelle innerhalb der Zeile angeklickt ist?
Vielen Dank :)
Gruß
Hans

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Zum Beispiel so,...
06.03.2014 21:44:41
Raphael
Hallo Hans,
... ist allerdings nicht optimal wenn du Zellen hast die eingefärbt sind, dann werden diese wieder ausgefärbt sobald du eine andere Zeile markierst.
Option Explicit
Public alteZeile As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If alteZeile > 0 Then
Rows(alteZeile).Interior.Color = xlNone
End If
alteZeile = Selection.Row
Rows(Selection.Row).Interior.Color = vbRed
End Sub
Gruess
Raphael

Anzeige
AW: Zeile färben wenn eine Zelle darin angeklickt ist
06.03.2014 23:06:48
Rolf
Hallo Hans,
das geht z.B. mit der bedingten Formatierung.
Formel: =Zelle("Zeile")=Zeile()
dann den entsprechenden Bereich im Feld 'wird angewendet auf' eintragen,
z.B. =$1:$5000 (Zeile 1 bis 5000)
und Hintergrundfarbe festlegen.
Und damit die bedingte Formatierung 'anspringt' entweder jedesmal F9 drücken,
oder ins Worksheet_SelectionChange Ereignis: ActiveSheet.Calculate eintragen.
Gruß Rolf

Anzeige
AW: Zeile färben wenn eine Zelle darin
06.03.2014 23:41:29
Hans
Hallo Rolf,
wie meinst du das mit dem "Anspringen"
Ich habe ins Datenblatt
Private Sub Worksheet_SelectionChange()
ActiveSheet.Calculate
End Sub
eingetragen.
Dann kommt bei mir eine Fehlermeldung : Fehler beim Kompilieren
Deklaration der Prozedur entspricht nicht der Beschreibung oder einer Prozedur mit demselben Namen.
Was mache ich falsch

Anzeige
Lege das Ereignis an, dann siehst du, ...
06.03.2014 23:49:06
Luc:-?
…warum die Fehlermeldung kommt, Hans!
(VBE-DokumentKlassenModul → Code-Fenster → DropDown Kopf rechts oben ← nach dem im DropDown Kopf links oben Worksheet ausgewählt wurde)
Der VBE hat auch eine Hilfe…!
Gruß Luc :-?

AW: Lege das Ereignis an, dann siehst du, ...
07.03.2014 16:58:54
Hans
Oh ja .. es war schon spät. :o
Wenn man den Wald vor lauter Bäumen nicht mehr sieht.

Anzeige
AW: Zeile färben wenn eine Zelle darin angeklickt ist
08.03.2014 08:28:20
Werner
Hallo Rolf
Danke erst einmal für den klasse Tip ... es gibt Dinge, die irgendwie versteckt sind ;)
Habe jetzt versucht, das Einfärben der Zeile UND der Spalte zu erreichen
=Zelle("Zeile")=Zeile() # färbt die Zeile ein
=Zelle("Spalte")=Spalte() # färbt die Spalte ein
Jetzt habe ich versucht mit
=Und(Zelle("Zeile")=Zeile();Zelle("Spalte")=Spalte())
Da wird aber nur die einzelne Zelle gefärbt.
Gibt es eine andere Möglichkeit ?
Freu mich auf einen Tip :)
Besten Gruss
Werner

Anzeige
Erledigt - hab es gefunden wie es geht :)
08.03.2014 14:08:55
Werner
Hallo
falls es noch jemanden interessiert: ich hab die Lösung gefunden
... war mal wieder einfacher als am Anfang gedacht ..
Einfach eine zweite Regel anlegen und entsprechend formatieren
Ich habe es
=Zelle("Zeile")=Zeile() # nicht eingefärbt sondern einen Rahmen nur oben
=Zelle("Spalte")=Spalte() # nicht eingefärbt sondern einen Rahmen nur links und rechts
BG
Werner
Anzeige

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zeile färben bei Auswahl einer Zelle in Excel


Schritt-für-Schritt-Anleitung

Um eine komplette Zeile in Excel farbig zu markieren, wenn eine Zelle innerhalb dieser Zeile angeklickt wird, kannst Du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Wähle das Arbeitsblatt aus, in dem Du die Funktion implementieren möchtest.

  3. Füge den folgenden Code in das Code-Fenster ein:

    Option Explicit
    Public alteZeile As Long
    
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If alteZeile > 0 Then
            Rows(alteZeile).Interior.Color = xlNone
        End If
        alteZeile = Selection.Row
        Rows(Selection.Row).Interior.Color = vbRed
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Klicke auf eine Zelle in der gewünschten Zeile und beobachte, wie die gesamte Zeile rot markiert wird.


Häufige Fehler und Lösungen

  • Fehlermeldung: "Fehler beim Kompilieren": Dies kann passieren, wenn Du den Code nicht im richtigen Modul eingegeben hast. Stelle sicher, dass Du den Code im Arbeitsblatt-Modul eingefügt hast und nicht im Modul für das gesamte Projekt.

  • Die Zeile wird nicht gefärbt: Überprüfe, ob das Makro aktiviert ist. Möglicherweise musst Du die Makros in den Excel-Optionen aktivieren.


Alternative Methoden

Eine alternative Methode zur farblichen Markierung von Zeilen ist die Verwendung der bedingten Formatierung. Hier ist, wie Du das machen kannst:

  1. Wähle den gesamten Bereich aus, auf den Du die bedingte Formatierung anwenden möchtest.

  2. Gehe zu Start > Bedingte Formatierung > Neue Regel.

  3. Wähle Formel zur Ermittlung der zu formatierenden Zellen verwenden.

  4. Gib die folgende Formel ein:

    =Zelle("Zeile")=Zeile()
  5. Wähle die gewünschte Hintergrundfarbe aus und klicke auf OK.

Mit dieser Methode wird die gesamte Zeile eingefärbt, wenn eine Zelle in dieser Zeile aktiv ist.


Praktische Beispiele

Wenn Du beispielsweise die Zeile einfärben möchtest, wenn der Wert in einer Zelle nicht leer ist, kannst Du die bedingte Formatierung wie folgt anpassen:

  1. Wähle wieder den gewünschten Bereich aus.
  2. Verwende die Formel:

    =NICHT(ISTLEER(A1))

Hierbei wird die Zeile gefärbt, wenn die Zelle in Spalte A nicht leer ist. Du kannst die Spalte nach Bedarf anpassen.


Tipps für Profis

  • Verwende Dropdown-Listen: Du kannst auch Dropdown-Listen nutzen, um bestimmte Werte auszuwählen, die dann eine Zeilenfärbung auslösen.
  • Verwende mehrere Regeln: Wenn Du sowohl die Zeile als auch die Spalte farblich hervorheben möchtest, kannst Du mehrere bedingte Formatierungsregeln kombinieren.
  • Farben anpassen: Experimentiere mit verschiedenen Farben, um die Lesbarkeit Deiner Daten zu verbessern.

FAQ: Häufige Fragen

1. Wie kann ich die Farbe ändern, die für die Zeilenmarkierung verwendet wird?
Du kannst die Farbe im VBA-Code oder in der bedingten Formatierung anpassen, indem Du die entsprechenden Farbcodes änderst.

2. Funktioniert das auch in Excel Online?
Die VBA-Methode funktioniert nicht in Excel Online. Du kannst jedoch die bedingte Formatierung verwenden, um ähnliche Ergebnisse zu erzielen.

3. Wie viele Zeilen kann ich mit dieser Methode einfärben?
Du kannst diese Methode für beliebig viele Zeilen verwenden, solange Du den Bereich in der bedingten Formatierung entsprechend anpasst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige