Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dropdown Auswahl --> ausgabe immer gleich

Dropdown Auswahl --> ausgabe immer gleich
25.05.2018 18:42:39
Nicole
Hallo ihr Lieben,
in folgender Datei möchte ich durch die Auswahl im Dropdown Menü alle Datensätze anzeigen lassen, die im zweiten Tabellenblatt hinterlegt sind.
Leider wird bei jeder auswahl das gleiche ausgegeben. Ich komme einfach seit Stunden nicht hinter den Fehler.
https://www.herber.de/bbs/user/121831.xlsm
Ich hoffe ihr konnt mir helfen
Vielen Dank
Nicole
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dropdown Auswahl --> ausgabe immer gleich
25.05.2018 19:21:53
onur
Wenn du doch willst, daß dein Code von einer Variablen oder dem Wert einer Combobox abhängig läuft, sollte doch diese Variable (in diesem Fall eben CB_Zeitbasen.Value) auch irgendwie mit dem Code interagieren, aber ich sehe nix, wo dieser Wert auch mal abgerufen werden würde.
AW: Dropdown Auswahl --> ausgabe immer gleich
25.05.2018 19:25:26
Nicole
Hallo onur,
ich habe den Wert des Kombinationsfeldes in eine zelle geschrieben:
Tabelle1.Cells(4, 12).Value = CB_Zeitbasen.Value
Anzeige
AW: Dropdown Auswahl --> ausgabe immer gleich
25.05.2018 19:28:37
onur
Zahlendreher?
If Tabelle1.Cells(12, 4).Value
AW: Dropdown Auswahl --> ausgabe immer gleich
25.05.2018 19:47:15
Gerd
Hallo Nicole!
Es geht gemütlich!
Private Sub CB_Zeitbasen_Change()
Dim strAuswertung As String
Dim Zeile As Long
Tabelle1.Range(Tabelle1.Cells(2, 11), Tabelle1.Range("K" & Rows.Count).End(xlUp)).ClearContents
Tabelle1.Cells(4, 12).Value = CB_Zeitbasen.Value
strAuswertung = Split(CB_Zeitbasen.Value, ":")(0)
Zeile = 5
For i = 1 To Tabelle9.Range("D" & Rows.Count).End(xlUp).Row
If Tabelle9.Cells(i, 4) = strAuswertung Then
Tabelle1.Cells(Zeile, 11).Value = Tabelle9.Cells(i, 4).Value
Tabelle1.Cells(Zeile, 12).Value = Tabelle9.Cells(i, 5).Value
Tabelle1.Cells(Zeile, 13).Value = Tabelle9.Cells(i, 6).Value
Zeile = Zeile + 1
End If
Next
End Sub
Gruß Gerd
Anzeige
AW: Ersetz "K" durch "L" o.T.
25.05.2018 19:52:58
Gerd
.
AW: Dropdown Auswahl --> ausgabe immer gleich
25.05.2018 20:03:14
Nicole
Hallo Gerd,
ich bin begeistert, es funktioniert !!
Vielen Dank dafür.
Gruß
Nicole
;

Forumthreads zu verwandten Themen

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