Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1976to1980
1976to1980
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wechselseitige Auswahl Kundenname oder Kundennummer

Forumthread: Wechselseitige Auswahl Kundenname oder Kundennummer

Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 13:37:56
christine1
Hallo, ich habe im Excel ein Tabellenblatt mit einer dynamischen Tabelle "Kundendaten", die die Spalten Kundennummer und Kundenname enthält.
In einem weiteren Tabellenblatt habe ich in den Zeilen 1 - 100 jeweils eine Spalte mit Kundennummer und Kundenname. Bei jeder Zelle ist eine Datenüberprüfung auf Kundennummer (Spalte A) bzw. Kundenname (Spalte B) hinterlegt.
Nun möchte ich, wenn die Kundennummer ausgewählt ist, in der Spalte Kundennamen den dazugehörigen angezeigt bekommen. Weiß ich allerdings den Kundenname und wähle diesen in der zweiten Spalte aus, soll mir die Kundennummer in der ersten Spalte angezeigt werden. Also entweder-oder.
Allerdings funktioniert dies nicht über eine Formel, da mir ein Zirkelbezug angezeigt wird. Gibt es eine Lösung, entweder über die Kundennummer den Kundennamen oder über den Kundennamen die Kundennummer angezeigt zu bekommen?
Leider finde ich im Forum nicht die passende Antwort.
Vielen Dank schon mal für die Hilfe.

Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 13:43:16
{Boris}
Hi,

Excel hat pro Blatt über 16 Milliarden Zellen. Nutze einfach zusätzliche Spalten oder Zeilen. Alles andere ist nur per VBA möglich.

VG, Boris
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 13:45:51
christine1
Hallo Boris,
vielen Dank für deine Antwort. Über VBA ginge auch, da es sich hier schon um eine .xlsm handelt. Die Nutzer sehen nur die Spalten A und B.
Anzeige
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 13:47:40
{Boris}
Hi,

lad mal bitte eine kleine Beispieldatei hoch.

VG, Boris
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 14:27:43
{Boris}
Hi,

was ist denn, wenn es Kundennamen mehrmals gibt? Müller z.B.
Oder ist das völlig ausgeschlossen?

VG, Boris
Anzeige
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 14:42:33
christine1
Hallo, es gibt jeden Kundennamen nur einmal. In der Beispieldatei habe ich nur schnell beliebige Namen eingetragen. LG
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 14:33:06
Onur
Bei Doppelten entweder Müller1 und Müller2 daraus machen oder zusätzlich mit Vornamen arbeiten:

https://www.herber.de/bbs/user/169515.xlsm
Anzeige
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 14:45:40
christine1
Hallo, perfekt. Vielen herzlichen Dank für eure Hilfe!! Das ist genau das, nach dem ich gesucht habe. Jetzt kann ich wechselseitig entweder die Kundennummer auswählen oder den Kundennamen. Ihr habt mir mega geholfen. LG und einen schönen Tag
Gerne !
16.05.2024 14:46:30
Onur
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 14:49:03
Onur
kleine Korrektur: 
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim z, s, found, w

    found = ""

    s = Target.Column

    If s > 2 Then Exit Sub

    Application.EnableEvents = False

    With Sheets("Kunden")

        For z = 2 To 1000

            w = .Cells(z, 3 - s)

            If w > "" Then

                If Target = .Cells(z, s) Then

                    found = w

                    Exit For

                End If

            End If

        Next z

        Cells(Target.Row, 3 - s) = found

    End With

    Application.EnableEvents = True

End Sub
Anzeige
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 15:59:03
christine1
Hallo, jetzt bräuchte ich doch nochmal Hilfe. Ich musste nun in jedem Tabellenblatt eine Spalte vorschalten, das heißt jede Spalte hat sich um 1 nach rechts verschoben. Wenn ich jetzt allerdings die Spaltenzahlen im Code anpasse funktioniert dieser nicht mehr. Ich bin leider ratlos. Was mache ich hier falsch?
Anzeige
Du könntest...
16.05.2024 16:54:47
Case
Moin, :-)

... es auch so versuchen: ;-)

https://www.herber.de/bbs/user/169518.xlsb

Für den Bereich der Eingabe in Spalte A und Spalte B habe ich "Namen" vergeben - das müsstest du in deiner Datei noch machen. Dann kannst du Spalten einfügen oder auch wieder löschen. Für die "Auswertung" nehme ich einfach die Formel. Schau es dir mal an. ;-)

Servus
Case
Anzeige
AW: Du könntest...
17.05.2024 06:20:23
christine1
Vielen herzlichen Dank. Das funktioniert super. Ihr seid super in diesem Forum. Es funktioniert perfekt.
AW: Du könntest...
22.05.2024 12:57:13
christine1
Hallo zusammen, ihr habt mir hier mega weitergeholfen. Nun hat sich herausgestellt, dass ich diesen Xverweis bei mehreren Tabellenblättern benötige. Jetzt wollte ich das Makro in einem Modul speichern und in den jeweiligen Tabellenblättern über Call ansprechen, damit ich, falls sich das Makro ändert, es nur einmal ändern muss. Allerdings
scheitere ich nun an dem "Me." Könnt ihr mir nochmal helfen? Hier nochmal das aktuelle Makro:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin
If Not Target.CountLarge > 1 Then
Application.EnableEvents = False
If Not Intersect(Target, Range("Kundennummer")) Is Nothing Then
Target.Offset(0, 1).Value = Me.Evaluate("=XLOOKUP(" & Target.Address & ",Tabelle1[[#All],[Kundennummer]],Tabelle1[[#All],[Kundenname]],"" "")")
End If
If Not Intersect(Target, Range("Kundenname")) Is Nothing Then
Target.Offset(0, -1).Value = Me.Evaluate("=XLOOKUP(" & Target.Address & ",Tabelle1[[#All],[Kundenname]],Tabelle1[[#All],[Kundennummer]],"" "")")
End If
End If
Fin:
Application.EnableEvents = True
End Sub

Anzeige
AW: Du könntest...
22.05.2024 13:04:04
Onur
So ein Event-Makro kannst du zwar in ein Modul packen, aber es würde nicht funktionieren.
Du kannst deine Makros (Subs) benennen und verschieben, wie du willst, aber die Event-Makros gehören zu dem Modul (in diesem Falle des Blattes), wo sie angeboten werden.
Wenn du das Change-Event für alle Blätter nutzen willst, nimmst du einfach das SheetChange-Event der ARBEITSMAPPE. Da wird dir auch der Blattname als "Sh" angeboten, damit du weisst, in welchem Blatt etwas verändert wurde.
Anzeige
AW: Du könntest...
22.05.2024 13:18:17
christine1
Vielen Dank für die gute Erklärung! Ich wünsche einen schönen Tag.
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
16.05.2024 18:16:59
Onur 
Private Sub Worksheet_Change(ByVal Target As Range)

    Dim z, s, found, w

    found = ""

    s = Target.Column

    If s > 3 Or s = 1 Then Exit Sub

        Application.EnableEvents = False

    With Sheets("Kunden")

        For z = 2 To 1000

            w = .Cells(z, 5 - s)

            If w > "" Then

                If Target = .Cells(z, s) Then

                    found = w

                    Exit For

                End If

            End If

        Next z

        Cells(Target.Row, 5 - s) = found

    End With

    Application.EnableEvents = True

End Sub
Anzeige
AW: Wechselseitige Auswahl Kundenname oder Kundennummer
17.05.2024 06:22:29
christine1
Hallo Onur, der Code funktioniert super. Ich habe gerade auch noch den von Case getestet und werde voraussichtlich die Variante mit den Namen für meine Zwecke nutzen. Ich bin begeistert von eurem Forum und eurer noch dazu super schnellen Hilfe! Vielen Dank und ein schönes Wochenende.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige