|
Hallo
Das wäre vielleicht noch eine schlaue idee:)
Also den Code für das Datum nehme ich wiefolgt in die Combobox auf.
UserForm1.ComboBox14.RowSource = "C2:C9"
Nach diesem Befehl wird das Datum in der Combobox nur als Zahlen wiedergeben und nicht als aufgelöstes Datum.
Anschliessend wird das Datum (in meinem Fall die Zahlen) mit folgendem Befehl in die Tabelle zurückgeschrieben
Private Sub CommandButton1_Click()
Dim last As Integer
Worksheets("J&S JLTC").Activate
last = Sheets("J&S JLTC").Cells(Rows.Count, 1).End(x1up).Row + 1
Cells(last, 3).Value = ComboBox14
Nun zum zweiten Problem
Um die Combobox mit Zahlen zu füttern benutze ich folgenden Befehl
Dim i As Integer
With ComboBox4
For i = -100 To 100
.AddItem CInt (i)
Next
End With
Anschliessend werden die Zahlen wieder mit folgendem Befehl in die Tabelle eingefügt.
Private Sub CommandButton1_Click()
Dim last As Integer
Worksheets("J&S JLTC").Activate
last = Sheets("J&S JLTC").Cells(Rows.Count, 1).End(x1up).Row + 1
Cells(last, 5).Value = ComboBox4
Vielen Dank
|