Variable im Userform

Private Sub CommandButton1_Click()
If Cells(1, 1) >= 1 Then
Unload Me
End If
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "a1:b9999"
ListBox1.ControlSource = "A1"
'Place the ListIndex into cell a6
ListBox1.BoundColumn = 0
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
Cancel = 1
MsgBox "Bitte verlassen Sie das Dialogfeld mit den Schaltflächen.", _
vbOKOnly + vbInformation, "Bitte Schaltfläche betätigen."
End If
End Sub