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

ComboBox1 Auswahl und Ergebnis in Listbox

Forumthread: ComboBox1 Auswahl und Ergebnis in Listbox

ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 14:35:54
marta
Guten tag
Versuche gerade in einer Userform eine Filmdatenbank zustellen.
Ich möchte mit meiner ComboBox1 einen Buchstaben A oder B auswählen und soll mir dann Alle Filme mit A oder B in der Listbox anzeigen.
Meine Frage: Wie bekomme ich das genauso hin wie ich das vorstelle?
Hier ist meine Beispieldatei:
https://www.herber.de/bbs/user/123645.xlsm
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 17:06:45
Hans
Hallo,
ich habe mal den Code aus der Initialisierung noch oben kopiert, scheint gut zu klappen.
Einen Befehl habe ich deaktiviert, er erscheint als grüne Zeile. Der ist etwas kurios...
'**ListBox1.List(lZeile - 2, 1) = .Cells(lZeile, 7).Text
Bei einigen Buchstaben funktioniert er, bei B für "Biene Maja" Nicht!! - Laufzeitfehler!
Ich konnte nicht heraus finden waran das liegt, und habe ihn einfach stillgesetzt!
mfg Hans
Private Sub ComboBox1_Change()
Dim lZeile As Long
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
ListBox1.Clear
With Tabelle1
For lZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Left(.Cells(lZeile, 1).Text, 1) = ComboBox1.Text Then
ListBox1.AddItem .Cells(lZeile, 1).Text
'** klappt nicht bei jedem Buchstaben einwandfrei!!
'ListBox1.List(lZeile - 2, 1) = .Cells(lZeile, 7).Text
End If
Next lZeile
End With
End Sub

Anzeige
AW: ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 17:06:45
Hans
Hallo,
ich habe mal den Code aus der Initialisierung noch oben kopiert, scheint gut zu klappen.
Einen Befehl habe ich deaktiviert, er erscheint als grüne Zeile. Der ist etwas kurios...
'**ListBox1.List(lZeile - 2, 1) = .Cells(lZeile, 7).Text
Bei einigen Buchstaben funktioniert er, bei B für "Biene Maja" Nicht!! - Laufzeitfehler!
Ich konnte nicht heraus finden waran das liegt, und habe ihn einfach stillgesetzt!
mfg Hans
Private Sub ComboBox1_Change()
Dim lZeile As Long
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
ListBox1.Clear
With Tabelle1
For lZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Left(.Cells(lZeile, 1).Text, 1) = ComboBox1.Text Then
ListBox1.AddItem .Cells(lZeile, 1).Text
'** klappt nicht bei jedem Buchstaben einwandfrei!!
'ListBox1.List(lZeile - 2, 1) = .Cells(lZeile, 7).Text
End If
Next lZeile
End With
End Sub

Anzeige
AW: ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 17:50:55
marta
Hallo
Danke für deine Antwort.
Es funktioiert zwar. Aber das ist nicht ganz was ich suche.
Die bildfunktion ist dadurch aus.
AW: ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 18:14:50
Hans
Hallo
mein Vorschlag: - füge hinter "With Tabelle1" den On Error Befehl ein und aktiviere die 2 Zeile wieder!
(Einfach das '' Zeichen vor dem Befehl entfernen!) - Hier der Fehler Abfang Code:
On Error Resume Next
Durch diesen Befehl werden unerwartete Fehler übersprungen. Sonst laeft alles normal
Schau bitte mal was dabei herauskommt? Offen bleibt, was den Fehler verursacht?
mfg Hans
Anzeige
AW: ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 18:37:25
marta
Hallo
ist genau so wie du es geschildert hast. Ohne On Error Resume Next kommt fehler meldung.
Mit On Error Resume Next ist zwar die Fehlermeldung weg.
Aber die bilder werden trodem nicht angezeigt.
Jetzt habe ich eine Andere beispiel datei gefunden.
Kann mann diese so umschreiben das diese nicht
die Spalte 3 ausgeben wird sondern Spalte 1 im der Listbox?
Hier ist die Datei: https://www.herber.de/bbs/user/123650.xlsm
Gruß marta
Anzeige
AW: ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 19:25:34
Nepumuk
Hallo Marta,
teste mal:
Private Sub ComboBox1_Change()
    
    Dim liZeile As Long
    
    ListBox1.Clear
    
    For liZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        If ComboBox1.Text = Cells(liZeile, 9).Value Then _
            ListBox1.AddItem Cells(liZeile, 1).Value
    Next
    
End Sub

Gruß
Nepumuk
Anzeige
AW: ComboBox1 Auswahl und Ergebnis in Listbox
29.08.2018 19:44:57
marta
hallo
Danke für die Antwort das hilft mir weiter
Gruß Marta
AW: ComboBox1 Auswahl und Ergebnis in Listbox
30.08.2018 13:50:36
marta
hallo
Jetzt läuft es so wie ich es mir vorstelle.
Danke für die hilfe :-)
Gruß Marta
;

Forumthreads zu verwandten Themen

ComboBox1.AddItem automatisch
Vera

Hallo liebe Excelfreunde
ich möchte die ComboBox einer Userform mit den letzten 20 unterschiedlichen Bemerkungen füllen.
Vieleicht hat jemand ein Beispiel rumliegen welches:
- die Bemerkungsspalte von unten nach oben durchgeht
- 20 unterschiedlich!! Bemerkungen findet
- die...
12.09.2008 09:28:00
Thread-ID: 1009278
3 Beiträge
Anzeige
ComboBox1 Datein Einlesen
Heinz

Hallo Leute
Ich möchte gerne von einer ComboBox1 "UF" die Daten vom Blatt "Umbauplan" A4:A11,A15:A21 die Daten einlesen.
Es handelt sich hierbei um ein Datum, in Form von TTTTT TT MM JJ
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
10.01.2009 15:18:15
Thread-ID: 1038455
3 Beiträge
ComboBox1 Kopieren mit Code
Heinz

Hallo Leute
Ich habe in UF "Eingabe" eine ComboBox1 mit diversen Code.
Nun möchte ich in UF "Tagesprüfungen" eine ComboBox1 einfügen, die sollte genau so mit dem gesamten Code von UF "Eingabe" laufen.
Also praktisch eine Kopie. Müsste ich den gesamten Code kopieren ? ODER kann man e...
01.06.2009 16:35:21
Thread-ID: 1078483
3 Beiträge
Werte bei ComboBox1 Klick zurücksetzen
Heinz

Hallo an alle im Excelforum
Ich habe eine UF, da hätte gerne wenn ich ComboBox1 anklicke, das die Werte vom unteren Code wieder zurückgesetzt werden.
Also keine Zellenverbindungen usw. mehr. Ebenso sollte der Wert "Umbau" auch gelöscht werden.
Eben so wie es vor CheckBox17 Click war...
19.06.2009 12:30:57
Thread-ID: 1082861
7 Beiträge
ComboBox2 abhänging von Auswahl aus ComboBox1
Auswahl

Hallo,
Das Füllen der ComboBox1 krieg ich gerade hin.
Wie gehe ich nun vor wenn ich aus
- ComboBox1 den Eintrag 3 anklicke sich die
- ComboBox2 füllt mit einem definierten Bereich (Range) der aus obigem Eintrag 3 definiert wird?
d.h.
1. Welche Variable oder Output aus...
06.07.2009 13:35:36
Thread-ID: 1086643
3 Beiträge
Combobox1_Change - reagiert nach dem Speichern ?
k

Hallo,
wie kann ich es verhindern, dass mit dem Speichern die Change-Prozedur der Combobox ausgelöst wird ?
Problem: Nach dem Speichern, wechselt die Anzeige in einen daneren Datensatz.
Hintergrund:
Tabelle mit Kundendaten und Erlösen mit Details zu Rechnung, so kann es vorkomme...
27.07.2009 17:48:35
Thread-ID: 1091671
3 Beiträge
Userform und ComboBox1
Fredy

Hallo alle
Ich habe gestern schon ein Beitrag geschrieben habe auch Antwort bekommen
Nur eine Frage ist noch offen
Wie kriege ich die Daten in der Zelle AC1 Bis AC7 in meine Userform in die ComboBox1
https://www.herber.de/bbs/user/66506.xls
Danke schon mal
11.12.2009 08:32:28
Thread-ID: 1123108
8 Beiträge
Anzeige
Userform und ComboBox1
Fredy

Hallo alle
Ich habe gestern schon ein Beitrag geschrieben habe auch Antwort bekommen
Nur eine Frage ist noch offen
Wie kriege ich die Daten in der Zelle AC1 Bis AC7 in meine Userform in die ComboBox1
https://www.herber.de/bbs/user/66506.xls
Danke schon mal
11.12.2009 08:32:47
Thread-ID: 1123109
2 Beiträge
ComboBox1 mit Passwort
Mommonde

Hallo Zusammen,
ich hätte eine Frage zu einer Kombi ComboBox1 + Passwort Abfrage.
Ich bräuchte eine Option, das wenn eine ComboBox1 ausgewählt wird zuerst eine
Passwortabfrage erscheint und erst nach der Eingabe die ComboBox1 weiter ausgewählt werden kann.
Hat jemand einen Tipp...
19.11.2010 09:34:14
Thread-ID: 1187704
2 Beiträge
Warum geht nicht "Call ComboBox1_KeyUp(39,0)"?
Martin

Hallo liebe Excelfreunde,
ich würde gerne ein Ereignis-Makro einer ComboBox ("ComboBox1_KeyUp") bewusst auslösen. Leider _ klappt das nicht, obwohl ich für die Argumente "ByVal KeyCode As MSForms.ReturnInteger" mit der Zahl 39 und für "ByVal Shift As Integer" mit der Zahl 0 gültige Werte a...
01.03.2011 18:38:30
Thread-ID: 1203719
6 Beiträge
Anzeige
ComboBox2 in Abhängikeit von ComboBox1
ComboBox1

Hallo Zusammen und vorab allen ein schönes WE!!!
Mein Problem: In ComboBox1 stehen die Monate Januar - Dezember, der Reihe nach. In ComboBox2 die Monate November - Oktober, der Reihe nach. Nun möchte ich, dass wenn in ComboBox1 der Monat Januar steht, in ComboBox2 der Monat November, wenn i...
19.08.2011 21:23:08
Thread-ID: 1226852
3 Beiträge
Anzeige
Wenn Combobox1 click, dann Combobox 2&3 leeren
Ingo

Hallo liebe Excelprofis,
ich habe auf UF1 drei Comboboxen, die mir nach Auswahl, die Listbox1 und verschiedene Textboxen füllt.
Wenn ich zuerst Combobox1 anklicke steht dann ein Wert zur Auswahl und die dazugehörigen Daten werden in Listbox1 geschrieben, wenn ich allerdings Combobox 2 o...
06.01.2012 15:43:46
Thread-ID: 1244933
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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