Microsoft Excel

Herbers Excel/VBA-Archiv

Gültigkeitsüberprüfung Retourwert aus Nebenspalte


Betrifft: Gültigkeitsüberprüfung Retourwert aus Nebenspalte von: Alesandro
Geschrieben am: 13.07.2017 16:27:04

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

  

Betrifft: AW: Gültigkeitsüberprüfung Retour aus Nebenspalte von: {Boris}
Geschrieben am: 13.07.2017 16:55:34

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


  

Betrifft: AW: Gültigkeitsüberprüfung Retour aus Nebenspalte von: Alesandro
Geschrieben am: 14.07.2017 07:46:46

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


  

Betrifft: AW: Gültigkeitsüberprüfung Retour aus Nebenspalte von: Werner
Geschrieben am: 14.07.2017 11:14:07

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 < 13 Then
    Application.EnableEvents = False
    Target = WorksheetFunction.VLookup(Target, raSuchbereich, 2, 0)
End If
ERR_HANDLER:
Application.EnableEvents = True
End Sub
Gruß Werner


  

Betrifft: AW: Gültigkeitsüberprüfung Retour aus Nebenspalte von: Alesandro
Geschrieben am: 14.07.2017 12:54:25

Vielen Dank Werner.
Funktioniert prima.

lg Alesandro


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 14.07.2017 13:04:51




Beiträge aus den Excel-Beispielen zum Thema "Gültigkeitsüberprüfung Retourwert aus Nebenspalte"