|
Hallo,
ich bin ein neuer VBA User und kenne mich noch nicht so gut aus.
Ich habe eine Tabelle in der ich per Sverweis aus einer anderen Tabelle Daten ziehe. Die Auswahl erfolgt per DropDow Feld. Jetzt habe ich mir eine ListBox gebaut die mir mit einem Suchfeld aus meiner Daenbak die passenden Daten anzeigt. Ich möchte jetzt gerne per z.B. Doppelklick auf eines der angezeigten Werte in der Listbox diese in eine andere Tabelle übertragen und dort berechnen.
Ic h hoffe ich konnte eseinigermassen verständlich beschreiben.
Kurz um:
Tabelle 1 lerr mit Formeln
Tabelle 2 gefüllt mit Daten
Userform wird per Button geöffnet
Dann erscheint Listbox mit Suchfeld.
Im Suchfeld wird passende Daten ausgewählt
PerDoppelklick soll dann der Wert in Tabelle 1 eingetragen werden.
Hier der bisherige Code:
Private Sub TextBox1_Change()
Dim Zeile As Long
'Listbox Leeren
Me.ListBox1.Clear
'Schleife uber alle Zeilen
For Zeile = 3 To Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, LCase(Tabelle3.Cells(Zeile, 1).Value), LCase(Me.TextBox1.Value)) <> 0 Then
'List Box füllen
Me.ListBox1.AddItem Tabelle3.Cells(Zeile, 1).Value
End If
Next Zeile
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Long
'Schleife uber alle Zeilen
For Zeile = 3 To Tabelle3.Cells(Rows.Count, 1).End(xlUp).Row
'List Box füllen
Me.ListBox1.AddItem Tabelle3.Cells(Zeile, 1).Value
Next Zeile
End Sub
Danke im voraus
|