Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dropdown-Liste

Dropdown-Liste
26.10.2017 23:21:20
Heino
Kann mir jemand bei folgendem, eigentlich banalem Problem helfen?
In Tabelle1 in Spalte A, Zeile 1 ist eine Dropdown-Tabelle definiert, die auf 31 Artikel in Tabelle2 verweist, dort Spalte A, Zeilen A1-A31 und daneben in Spalte B die Preise, Zeilen B1 - B31. In der Dropdown-Tabelle werden wunderbar alle Artikel gezogen, aber nicht die Preise. Wenn ich bei Datenquelle in Tabelle2 beide Spalten markiere, kommt eine Fehlermeldung, dass esw nur eine Spalte sein darf. Wie kroege ich die Preise aus Tabelle 2, Spalte B in Tabelle1, Spalte B, wenn ich aus der Dropdown-Liste einen Artikel auswähle?
1000 Dank für hoffentlich zielführende Antwort im voraus!

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown-Liste
27.10.2017 00:02:35
SF
Hola,schaudirmaldenSverweisan.Gruß,steve1da
AW: Dropdown-Liste
27.10.2017 00:16:24
Mullit
Hallo,
mehrere Möglichkeiten, per Change-Event und Deinem Cell-DropDown:
' ********************************************************************** 
' Modul: Tabelle1 Typ: Klassenmodul des Tabelleblattes 
' ********************************************************************** 

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
With Target
    If .Address = "$A$1" Then
      Set objCell = Tabelle2.Range(Mid$(String:=.Validation.Formula1, Start:=2)).Find( _
         What:=.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
      If Not objCell Is Nothing Then
         Application.EnableEvents = False
         .Value = objCell.Offset(0, 1).Value
         Application.EnableEvents = True
         Set objCell = Nothing
      End If
    End If
End With
End Sub


VBA/HTML - CodeConverter für Office-Foren
AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel



Code erstellt und getestet in Office 12

Oder Du nimmst eine ActiveX-ComboBox, die kann mehrere Spalten anzeigen:
http://msdn.microsoft.com/en-us/library/aa240832(v=vs.60).aspx
Gruß, Mullit
Anzeige
AW: Dropdown-Liste
27.10.2017 00:34:13
Mullit
Hallo nochmal,
ich seh grad steve1da hat auch noch geantwortet, und SVerweis ist da auch der richtige Weg, Du willst die Ergebnisse ja in Spalte B haben, ich nahm an Du wolltest Dein Cell-Dropdown überschreiben...
Gruß, Mullit

319 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige