Listbox dynamisch mit Daten füllen

Hallo Gemeinde,
nach Recherchen im Archiv, in der Literatur und in mehreren Foren wage ich es jetzt, meine Frage hier zu stellen in der Hoffnung, eine Lösung zu erhalten.
Ich dachte immer ich wäre sooooooooo schlecht nicht mit Excel und VBA, aber jetzt zweifle ich ein bisschen daran.
Mein Problem:
Ich habe (in worksheets("Tabelle1")) ein Zeit-Berichtssystem, das soweit personalisiert wird, dass Namen und Vornamen des Berichtenden eingegeben werden und daraus dann Stammdaten ermittelt werden wie z.B. Personalnummer, Kostenstelle, Bereich, e-Mail-Adresse, u.s.w....
Diese Daten finde ich in einem zweiten Worksheet, in dem eine alphabetisch aufsteigend nach Nachnamen sortierte Tabelle steht.
Tippt jemand seinen Namen falsch ein, oder wird im backoffice für einen Mitarbeiter berichtet, dessen NamensSchreibweise nicht genau bekannt ist , soll es ausreichen, den ersten Buchstaben des Nachnamens einzugeben und diesen dann als Suchparameter für alle Nachnamen mit diesem Buchstaben zu finden.
Diese gefilterten Namen will ich in einer Listbox ausgeben, so dass einfach nur der richtige Namen angeklickt zu werden braucht , damit ich daraus dann die richtigen Werte finden und zur Verfügung stellen kann.
Bestimmt ist die Lösung einfach, ich komme aber einfach nicht darauf.
(ich bin anscheinend tatsächlich nicht so gut, wir ich gerne von mir glauben möchte).
Das Ganze wird im "Worksheet_SelectionChange(ByVal Target As Range)" abgewickelt.
Herzlichen Dank im Voraus
...braleta

Hallo,
hier mal ein Beispiel.
Hier wird in Spalte A in der Tabelle2 gesucht, Gorß.- und Kleinschreibung wird beachtet.
Dialog UserForm1

Option Explicit 
'Benötigt Userform 
'ein Textfeld mit Namen TextBox1 
'ein Listenfeld mit dem Namen ListBox1 
'ein Befehlsschaltfleche mit dem Namen CommandButton1 
Private Sub CommandButton1_Click() 
Dim tempAdresse As String 
Dim Zelle As Range 
Dim A As Long 
Me.ListBox1.Clear 
With Tabelle2 'Tabelle wo Daten gesucht werden sollen 
    For A = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row 
        If A = 1 Then 
             Set Zelle = .Range("A:A").Find(TextBox1, , xlValues, xlPart, xlByRows, xlNext, True, False) 
             If Zelle Is Nothing Then Exit For 
             Me.ListBox1.AddItem Zelle 
             tempAdresse = Zelle.Address 
        Else 
             Set Zelle = .Range("A:A").FindNext(Zelle) 
             If Zelle.Address = tempAdresse Or Zelle Is Nothing Then Exit For 
             Me.ListBox1.AddItem Zelle 
        End If 
    Next A 
End With 
End Sub

Gruß Tino

Listbox dynamisch mit Daten füllen

Forumthread: Listbox dynamisch mit Daten füllen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial