wenn ich in meiner Combobox eine Zahl auswähle, klappt alles wunderbar.
Private Sub UserForm_Initialize()
'Temperatur
ComboBox_Temperatur.AddItem "ohne Wert"
For a = 20 To 28.1 Step 0.1
ComboBox_Temperatur.AddItem Format(a, "0.0")
Next
End Sub
Über einen Eingabebutton wird der Wert in die Letzte freie Zeile übertragen.Private Sub CommandButton_Eingabe_Click()
'Erste frei Zeile ausfindig machen
Dim Last As Integer
Last = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row + 1
'Temperatur
Cells(Last, 7).Value = CDbl(ComboBox_Temperatur.Value)
Wähle ich jetzt aber in der Combobox "ohne Wert" aus, dann bekomme ich einen Fehler.
und zwar wird dieser Bereich Gelb angezeigt
Cells(Last, 7).Value = CDbl(ComboBox_Temperatur.Value)
Ich habe auch keine Idee und schon einiges versucht.
Würde mich freuen wenn mir jemand helfen könnte
MfG
Daniel