wie kann ich den wert der momentan in a1 geschriebn wir in Variable schreiben und wo muß ich die quelltabelle angeben?
Danke Andy
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