Zellinhalt in anderem Tabellenblatt suchen

Forumthread: Zellinhalt in anderem Tabellenblatt suchen

25.03.2026 14:52:23

CaNa

Hallo an alle und schon mal vorab Danke.

Ich hab eine Excel-Arbeitsmappe in der ich in einem Tabellenblatt "XYZ" in der Spalte A verschiedene Begriffe "TEXT" aufgeführt habe,
bei Rechts-click auf einen der Werte in Spalte A soll das Programm automatisch diesen Wert im Tabellenblatt "ZYX" in Spalte "B" suchen und dann in dieses Zelle springen.
Und das Ganze soll möglichst dann auch in die andere Richtung funktionieren damit ich zwischen den Tabellenblättern hin und her springen kann, wobei es in Tabellenblatt "XYZ" zu Dopplungen von Begriffen kommen kann.

Leider fehlt mir das Verständnis wie dies zu veranstalten wäre. Bereits mein Versuch in das andere Tabellenblatt zu springen war leider nicht erfolgreich.

'VBA in Tabelle "XYZ"
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim wksSheet As Worksheet
Dim rngRange As Range
With Target
If .Column = 1 And .Row > 1 Then
If .Value > "" Then
For Each wksSheet In ThisWorkbook.Worksheets("ZYX")
Set rngRange = wksSheet.Columns(2).Find(.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not rngRange Is Nothing Then
Cancel = True
Application.Goto wksSheet.Range(rngRange.Address) ', True
'wksSheet.Select
'rngRange.Select
End If
Next wksSheet
If Not Cancel Then MsgBox "Nicht gefunden!"
End If
End If
End With
End Sub

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellinhalt in anderem Tabellenblatt suchen

25.03.2026 15:42:56

GerdL
AW: Zellinhalt in anderem Tabellenblatt suchen

25.03.2026 15:43:39

Robert Pilz

AW: Zellinhalt in anderem Tabellenblatt suchen

25.03.2026 15:42:56

GerdL

Moin

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    

    Dim rngRange As Range

    

    With Target

        If .Column = 1 And .Row > 1 Then

            If .Value > "" Then

                Set rngRange = ThisWorkbook.Worksheets("ZYX").Columns(2).Find(.Value, LookIn:=xlValues, LookAt:=xlWhole)

                If Not rngRange Is Nothing Then

                    Cancel = True

                    Application.Goto rngRange, True

                End If

            If Not Cancel Then MsgBox "Nicht gefunden!"

            End If

        End If

    End With



End Sub

Bei der Retourkutsche dann als zusätzliche Argumente
After:=ThisWorksheets("XYZ").Cells(1, 1), Searchdirektion:= xlNext bzw. xlPrevious
Gruß Gerd

AW: Zellinhalt in anderem Tabellenblatt suchen

25.03.2026 15:43:39

Robert Pilz

vieleicht hilft dir das

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Dim rng As Range



    If Target.Column = 1 And Target.Row > 1 Then

        If Target.Value > "" Then

            Set rng = Worksheets("ZYX").Columns(2).Find( _

                        What:=Target.Value, _

                        LookIn:=xlValues, _

                        LookAt:=xlWhole)



            If Not rng Is Nothing Then

                Cancel = True

                Application.Goto rng, True

            Else

                MsgBox "Nicht gefunden in ZYX!"

            End If

        End If

    End If

End Sub

1. Code für Blatt „XYZ“ (Rechtsklick → Suche in ZYX)

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Dim rng As Range



    If Target.Column = 2 And Target.Row > 1 Then

        If Target.Value > "" Then

            Set rng = Worksheets("XYZ").Columns(1).Find( _

                        What:=Target.Value, _

                        LookIn:=xlValues, _

                        LookAt:=xlWhole)



            If Not rng Is Nothing Then

                Cancel = True

                Application.Goto rng, True

            Else

                MsgBox "Nicht gefunden in XYZ!"

            End If

        End If

    End If

End Sub

2. Code für Blatt „ZYX“ (Rechtsklick → Suche in XYZ)

Zellinhalt in anderem Tabellenblatt suchen

Forumthread: Zellinhalt in anderem Tabellenblatt suchen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread