Wenn Klick auf Zeile, dann…

Forumthread: Wenn Klick auf Zeile, dann…
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Wenn Klick auf Zeile, dann…

10.03.2025 22:10:28

Jan1164

Hallo zusammen,

ich bin recht neu hier und lerne gerade viel bei Excel dazu.

Nun meine Frage: Ich möchte gerne einstellen, dass ich mit der Maus eine Zelle anklicke und mir alle weiteren Zellen in dieser Zeile markiert werden, die ein „X“ enthalten. Gibt es eine Möglichkeit?

Danke im Voraus!

Jan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Wenn Klick auf Zeile, dann…

11.03.2025 00:59:41

ralf_b
AW: Wenn Klick auf Zeile, dann…

11.03.2025 10:01:39

UweD

AW: Wenn Klick auf Zeile, dann…

11.03.2025 00:59:41

ralf_b

klar gibt es eine Möglichkeit mit VBA.
Aber das würde bei jeden Klick auf eine Zelle den Code durchlaufen lassen.
Ein einfacher Klick ist evtl. nicht die beste Lösung für dein Anliegen.
Und die Datei müßte im xlsm Format gespeichert werden.

AW: Wenn Klick auf Zeile, dann…

11.03.2025 10:01:39

UweD

Hallo

- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- rechts diesen Code einfügen

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Zelle As Range

    

    ' Prüfen, ob nur eine Zelle ausgewählt wurde und ob sie ein "x" enthält

    If Target.Cells.Count = 1 Then

        If LCase(Target) = "x" Then

            ' Markierung zurücksetzen

            Cells.Interior.ColorIndex = xlNone

            

            ' Alle "x" in der gleichen Zeile hervorheben

            For Each Zelle In Intersect(ActiveSheet.UsedRange, Rows(Target.Row)).Cells

                If LCase(Zelle) = "x" Then

                    Zelle.Interior.Color = RGB(255, 255, 0) ' Gelb markieren

                End If

            Next

        Else

            ' Markierung zurücksetzen

            Cells.Interior.ColorIndex = xlNone

        End If

    End If

End Sub