Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Combobox Eingabe

Forumthread: Combobox Eingabe

Combobox Eingabe
03.04.2017 22:31:01
Stefan
Hallo zusammen,
ich habe für mein Geschäft eine Excel Datei programmiert und versuche diese nun zu verbessern.
Ich suche jetzt schon seit längerer Zeit nach einer Lösung für meine Comboboxen!
Die comboboxen sind gefüllt mit einer kombination aus Buchstaben und zahlen, Beispiel: AB 1234, jetzt möchte ich aber nicht jedes mal die Buchstaben und das Leerzeichen eingeben müssen, sondern es soll wenn ich 1234 eingeben dieser eintrag automatisch ausgewähltwerden. Ich hoffe es kann mit jemand helfen!
Anzeige

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

Betreff
Datum
Anwender
Anzeige
wie wird die Combobox gefüllt ... ? owT
03.04.2017 23:05:14
Matthias
AW: wie wird die Combobox gefüllt ... ? owT
04.04.2017 03:14:44
Stefan
Die Combobox fülle ich mit diesem Befehl:
Z = Worksheets("DailySTR").Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.List = Worksheets("DailySTR").Range("B2:B" & Z).Value
hier mal mit ListFillRange
04.04.2017 04:54:17
Matthias
Hallo
Bedingung ist natürlich der 7 stellige String.
https://www.herber.de/bbs/user/112605.xlsm
Gruß Matthias
Anzeige
mit Worksheets("DailySTR") ...
04.04.2017 05:02:05
Matthias
Mit Deinem Registernamen so:
In DieseArbeitsmappe: 
Option Explicit
Private Sub Workbook_Open()
Dim Z
With Worksheets("DailySTR")
Z = .Cells(.Rows.Count, 2).End(xlUp).Row
.ComboBox1.ListFillRange = "DailySTR!B2:B" & Z
End With
End Sub
Ins Blatt der Combobox: 
Option Explicit
Private Sub ComboBox1_Change()
Dim rng As Range
For Each rng In Range(ComboBox1.ListFillRange)
If Right(rng.Value, 4) = ComboBox1.Text Then
Application.EnableEvents = False
ComboBox1.Value = rng.Value
Application.EnableEvents = True
End If
Next
End Sub
Gruß Matthias
Anzeige
ComboBox1_Change, kleine Änderung ...
04.04.2017 12:10:27
Matthias
Hallo
Option Explicit
Private Sub ComboBox1_Change()
Dim rng As Range
If Len(ComboBox1.Text) = 4 Then
For Each rng In Range(ComboBox1.ListFillRange)
If Right(rng.Value, 4) = ComboBox1.Text Then
Application.EnableEvents = False
ComboBox1.Value = rng.Value
Application.EnableEvents = True
Exit For
End If
Next
End If
End Sub
Gruß Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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