Ich beschäftige mich gerade eben zum ersten Mal mit UserForms in VBA und habe dabei folgendes erstellt:
Nach Eingabe in eine Zeile wird überprüft, ob alle Werte eingegeben wurden. Sollte in einer Spalte kein Wert eingegeben werden, erscheint eine Inputbox, in welcher der entsprechende Wert einzutragen ist. Dieser wird dann in die Zeile nacherfasst.
In einer Spalte gibt es eine Auswahl an Werten, die einzutragen sind (also DropDown). Deshalb habe ich hier eine Userform erstellt. Aus der Subroutine wird die Userform mit Userform1.Show aufgerufen. Funktioniert auch wunderbar, sobald ein Wert ausgewählt wurde, wird dieser in der jeweiligen Zelle nachgetragen. Aber nachdem der Wert aus der Userform ausgewählt und mit OK bestätigt wurde, wird nicht nur die Userform sondern gleich alles beendet. Ich möchte allerdings mit der Subroutine (also von wo ich auf die Userform weggesprungen bin) fortsetzen.
Kann mir da irgendwer weiterhelfen?
Hier der Code, den ich für die Userform verwendet habe:
Private Sub UserForm_Initialize()
Dim x As String
Sheets("Tabelle2").Select
Range("A2").Select
Do Until IsEmpty(ActiveCell)
x = ActiveCell.Value
ListBox1.AddItem x
ActiveCell.Offset(1, 0).Select
Loop
ListBox1.ListIndex = 0
Sheets("Tabelle1").Select
End Sub
Private Sub CommandButton1_Click()
ActiveCell.Value = ListBox1.Text
Unload UserForm1
End Sub
Danke im voraus!
LG, Martin