Ich habe (mit Eurer Hilfe) den untenstehenden Code "gebastelt".
Zu meiner Freude funktioniert er auch.
Der Code spricht eine Userform an, in welcher sich eine Listbox befindet.
Die Listbox ist nach dem Wert von Textbox2 gefiltert. Die gefundenen Werte werden in der Listbox1 angezeigt.
Nun die Frage:
Wie kann ich erreichen das der erste Wert der Listbox1 selektiert wird,so
als ob man mit der Maus daraufklickt?
Hierdurch sollen die restlichen Spalten der Listbox in die Textboxen übernommen werden.
In der langen Recherche zum Thema Listbox habe ich nichts passendes gefunden, oder überlesen.
Hier der Code:
Sub prüfen()
Sheets("Materialübersicht").Activate
For i = 2 To 7
If Cells(i, 11) <= 3 And Cells(i, 12) = 0 Then
Msg = "Medikament:" & Chr(10) & Chr(10) & (Sheets("Materialübersicht").Cells(i, 13)) & Chr(10) & Chr(10) & "Bestand nähert sich dem Ende!" & Chr(10) & "Soll bestellt werden?"
Ans = MsgBox(Msg, vbQuestion + vbYesNo, "Achtung !")
End If
Select Case Ans
Case vbYes
Sheets("Material").Activate
UserForm3.Show
UserForm3.ListBox1.SetFocus
UserForm3.TextBox2 = (Sheets("Materialübersicht").Cells(i, 13))
UserForm3.CommandButton1 = True
UserForm3.TextBox1 = ""
Exit Sub
Case vbNo
Sheets("Materialübersicht").Activate
End Select
Next i
End Sub
Danke
Gruß
Volker