Office: Suchtreffer in Testboxen aus Listbox anzeigen???- VBA

Hallo,
ich möchte gerne den Suchtreffer des Datums in den einzelnen Textboxen angezeigt bekommen wenn ich in der ListBox das gefundene Datum anklicke.
Leider klappt das nicht so wie ich will- kann sich das mal jemand angucken???

MfG, Marius

 

Hallo Marius,

ca 98% benutzen Windows als Betriebssystem und ca. 70% größer,gleich XP. Seit XP ist Zip Bestandteil des Betriebsystems. Da würde ich eine RAR Datei als falschen Download ansehen. Warum soll ich ein Packprogramm installieren, wenn das Betriebssystem schon eins enthält.

Gruß Hajo

 

zip

Hallo,
hab die Datei nochmal als ZIP bereitgestellt.

 

Hallo Marius,

ich habe das Makro Start ausgeführt, bei mir wird nichts in der Listbox angezeigt. darum kann ich nicht

Gruß Hajo

 

Hallo,

also nachdem man das start makro ausgeführt hat und dann auf das suchen symbol (fernglas) klickt soll das datum (28.12.1982) gefunden werden und in der listbox angezeigt werden- das klappt auch soweit- nur dann möchte ich das wenn ich auf das datum in der listbox klicke die werte die in der tabelle stehen in der userform wieder ausgegeben werden.. da kommt bei mir der Laufzeitfehler 94- unzulässige verwendung von null

MfG, Marius

 

Hallo Marius,

ich hatte die Lösung fertig, ich habe aber nicht damit gerechnet das Du Excel schließt ohne zu speichern. Da ich die Zeit schon investiert habe um die Lösung zu erstellen, mache ich das nicht noch mal.
Schreibe lng auf Listbox1.tag und schreibe Exit For dazu bei gefunden.
Bei Click auf die Listbox benutzt Du nun diese geschriebene Eigenschaft um die Werte zuzuordnen.
Das hast Du Dir selber zuzuordnen das Du das jetzt selbstr erstellen mußt.
Solche Anwendungen lasse ich bei mir sonst nicht laufen.

Gruß Hajo

 

Ups, das hätte ich vielleicht erwähnen sollen.. sorry

Verstehe aber leider deine anweisung nicht...

MfG, Marius

 

Hallo Marius,
solche wichtigen Sachen nicht nur vielleicht.

Code:

Sub suchen()
    'Datensatz suchen
    Dim lng As Long
'    Dim i As Integer
    With Sheets("Tabelle1").Activate
        ListBox1.ColumnCount = 1
        ListBox1.Clear
        'Sheets("Tabelle1").Activate
        'i = 0
        For lng = 6 To .UsedRange.Rows.Count
            If InStr(LCase(.Cells(lng, 1).Value), _
                LCase(TextBox1.Value)) > 0 Then
                ListBox1.AddItem .Cells(lng, 1).Value
                ListBox1.Tag = lng
                Exit For
                'ListBox1.Column(1, i) = Cells(5, 1).Value
                'ListBox1.Column(1, i) = Cells(letzteZeile, 4).Value
                'ListBox1.Column(2, i) = Cells(letzteZeile, 6).Value
                'i = i + 1
            End If
        Next lng
    End With
End Sub

Private Sub ListBox1_Click()
    'gefundenen Datensatz im Listenfeld anzeigen
'    Dim lng As Integer
    With Sheets("Tabelle1")
'    lng = UserForm1.ListBox1.Column(1)
'    With UserForm1
        TextBox1.Value = .Cells(ListBox1.Tag, 1).Value
        TextBox2.Value = .Cells(ListBox1.Tag, 2).Value
        TextBox3.Value = .Cells(ListBox1.Tag, 3).Value
        TextBox4.Value = .Cells(ListBox1.Tag, 4).Value
        TextBox5.Value = .Cells(ListBox1.Tag, 5).Value
        TextBox6.Value = .Cells(ListBox1.Tag, 6).Value
        TextBox7.Value = .Cells(ListBox1.Tag, 7).Value
        TextBox8.Value = .Cells(ListBox1.Tag, 8).Value
    End With
End Sub

Gruß Hajo

 

Hey,

vielen vielen Dank! Das ist genau das was ich brauche!

MfG, Marius