Ich habe mal wieder ein Problem wo ich selber keine Lösung dazu finde.
Ich möchte aus den vorgegebenen Werten in einer ComboBox (diese befindet sich auf dem Tabellenblatt) einen Wert auswählen können (Dieser Wert kann ein Datum, aber auch ein Text sein. Diesen Wert möchte ich über einen CommandButton der sich im selben Tabellenblatt befindet über ein Makro in eine Liste fortlaufend eintragen lassen. (Wie gesagt das kann ein Datum aber auch ein Text sein) Mit dem Datum funktioniert dies auch soweit.
Wenn ich aber den TextWert auswähle funktioniert dies nicht mehr. Es erscheint der Debugger und meckert mir die Codezeile ComboBox1.Value = CDate(ComboBox1.Value) an.
Private Sub CommandButton1_Click()
Const cstrRange As String = "B5,B6,B7,B8,B9,B12,B13"
Dim lngZeile As Long
Dim intSpalte As Long
Dim rngCell As Range
With Worksheets("Neuanträge")
lngZeile = .UsedRange.Row + .UsedRange.Rows.Count
intSpalte = 1
For Each rngCell In Range(cstrRange)
.Cells(lngZeile, intSpalte) = rngCell.Value
intSpalte = intSpalte + 1
Next
End With
End Sub
Private Sub ComboBox1_Change()
ComboBox1.Value = CDate(ComboBox1.Value)
hier meckert mir der Debugger
End Sub
Wie muß ich das Makro ändern, damit ich Datumswerte sowohl Textwerte verwenden kann?Für Eure Hilfe bedanke ich mich bereits im voraus recht herzlich
Liebe Grüße Andreas