ComboBox
ABO
ich habe ein Problem bei dem ich ein wenig auf dem Schlauch stehe!
In meiner UserForm fülle ich die ComboBox mit Daten (Zahlen) der Spalte A
Private Sub ComboBox1_Click()
If ComboBox1.ListIndex 0 Then
TextBox3 = Cells(ComboBox1.ListIndex + 3, 12)
TextBox4 = Cells(ComboBox1.ListIndex + 3, 13)
Else
TextBox3 = ""
TextBox4 = ""
End If
End Sub
soweit alles OK
Private Sub Übernehmen_Click()
Dim xZeile As Long
If TextBox1 = "" Then Exit Sub
If ComboBox1.ListIndex = 0 Then
xZeile = [A65536].End(xlUp).Row + 1
Else
xZeile = ComboBox1.ListIndex + 3
End If
Cells(xZeile, 12) = TextBox1.Value
Cells(xZeile, 13) = Format(TextBox2.Text, "dd.mm.yyyy")
End Sub
Ist dies möglich und wenn ja wie?
im Vorraus vielen Dank!
mfg ABO
Anzeige