Hallo Ralf,
tut mir leid ich habe das erste Mal ein Forum aktiv benutzt. Da muss man sich ertsmal zurecht finden. Hier ist also der fehlende code.
Hiermit öffne ich meine UserForm per Klick in meine Zelle (als Beispiel Zelle B6)
Sub UfLaden()
UserForm1.Show
End Sub
Dann suche ich in meiner UserForm den gewünschten Eintrag undlasse es in die Zellen eintragen. Hiernoch mal der Code dazu:
Private Sub CommandButton1_Click()
Tabelle3.Cells(6, 2).Value = ListBox1.Value
Tabelle3.Cells(6, 3).Value = TextBox_Menge * 1
Unload UserForm1
End Sub
Die Listbox hat folgenden Code:
Private Sub TextBox1_Change()
Dim Zeile As Long
'Listbox Leeren
Me.ListBox1.Clear
'Schleife uber alle Zeilen
For Zeile = 8 To Tabelle7.Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, LCase(Tabelle7.Cells(Zeile, 1).Value), LCase(Me.TextBox1.Value)) <> 0 Then
'List Box füllen
Me.ListBox1.AddItem Tabelle7.Cells(Zeile, 1).Value
End If
Next Zeile
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Long
'Schleife uber alle Zeilen
For Zeile = 8 To Tabelle7.Cells(Rows.Count, 1).End(xlUp).Row
'List Box füllen
Me.ListBox1.AddItem Tabelle7.Cells(Zeile, 1).Value
Next Zeile
End Sub
Ich hoffe so ist es verständlich
VG Marcello
|