So hier der Anfang, tut mir leid das es etwas länger gedauert hat als ich angekündigt habe: dieser code in die Userform, und natürlich die Items dazu anlegen. Ich kann auch gerne die Datei hochladen wenn dir das hilft.
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub
Private Sub ListBox1_Click()
Dim x As Integer
For i = 0 To 10
If ListBox1.Selected(i) Then
x = i
End If
Next i
If x = 1 Or x = 2 Then
TextBox1.Visible = True
Label2.Visible = True
Else
TextBox1.Visible = False
Label2.Visible = False
End If
End Sub
Private Sub UserForm_Activate()
TextBox1.Visible = False
Label2.Visible = False
ListBox1.Clear
ListBox1.AddItem "Land 0"
ListBox1.AddItem "Land 1"
ListBox1.AddItem "Land 2"
ListBox1.AddItem "Land 3"
End Sub