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

Forumthread: Gültigkeitsüberprüfung Retourwert aus Nebenspalte

Gültigkeitsüberprüfung Retourwert aus Nebenspalte
13.07.2017 16:27:04
Alesandro
Liebe Community,
trotz Recherche im Netz finde ich keine Lösung für mein Problem.
In meiner angefügten Datei möchte ich folgendes machen:
In der Tabelle1 sollen unter "SPS-Typ" als Auswahl die "Typen" der Tabelle2 ausgewählt werden können.
Der Wert der in "SPS-Typ" eingetragen wird, sollte jedoch jener aus "Nummer" der Tabelle2 sein.
dh ich wähle zb Siemens aus und hineingeschrieben wird 1.
Vielleicht hat jemand eine Lösung für dieses Problem.
https://www.herber.de/bbs/user/114868.xlsx
Dank im Voraus
Alesandro
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gültigkeitsüberprüfung Retour aus Nebenspalte
13.07.2017 16:55:34
{Boris}
Hi Alesandro,
das geht mit VBA. Im meinem Beispiel bezogen auf die Auswahl in Zelle A2 (dort ist die Auswahlliste mit Bezug auf Spalte E hinterlegt - hast Du in Deiner Beispieltabelle noch nicht gemacht - geht über Daten-Datenüberprüfung-Liste).
Jetzt in das Klassenmodul des Tabellenblattes folgenden Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ERR_HANDLER
If Target.Address(0, 0) = "A2" Then
Application.EnableEvents = False
Target = WorksheetFunction.VLookup(Target, Range("E:F"), 2, 0)
End If
ERR_HANDLER:
Application.EnableEvents = True
End Sub
VG, Boris
Anzeige
AW: Gültigkeitsüberprüfung Retour aus Nebenspalte
14.07.2017 07:46:46
Alesandro
Hallo Boris,
die Auswahlliste wurde angelegt.
Den Code habe ich in ein Modul eingefügt: Keine Reaktion
Daraufhin den Code ins Tabellenblatt eingefügt: Hat funktioniert
Jetzt kommt das Problem:
Da bei meiner zukünftigen Arbeitsmappe die Auwahlkriterien "Typen" der Tabelle2 in einem eigenen Arbeitsblatt "Legende" liegen werden und die Tabelle1 mit "SPS-Typ" nicht nur A2 sonder zb A2:A12 betrifft, wollte ich das anpassen.
Ich bin so kläglich gescheitert, dass am Ende der Ursprungszustand auch nicht mehr funktioniert hat.
Kannst du mir bitte weiterhelfen.
Ich habe ein neues File erstellt, damit klarer wird was ich meine.
https://www.herber.de/bbs/user/114874.xlsm
Vielen Dank
lg Alesandro
Anzeige
AW: Gültigkeitsüberprüfung Retour aus Nebenspalte
14.07.2017 11:14:07
Werner
Hallo Alesandro,
siehe auch die Kommentare im Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim raSuchbereich As Range
'## Zellbereich in dem VLOOKUP suchen soll
Set raSuchbereich = Worksheets("Legende").Range("E:F")
On Error GoTo ERR_HANDLER
'## Code wirkt nur in Spalte 1
If Target.Column > 1 Then Exit Sub
'## Code wirkt nur im Bereich Zeile 2 bis Zeile 12
If Target.Row > 1 And Target.Row 
Gruß Werner
Anzeige
AW: Gültigkeitsüberprüfung Retour aus Nebenspalte
14.07.2017 12:54:25
Alesandro
Vielen Dank Werner.
Funktioniert prima.
lg Alesandro
Gerne u. Danke für die Rückmeldung. o.w.T.
14.07.2017 13:04:51
Werner
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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