Hallo,
ich habe ein „Laufzeitfehler Problem, da ich in einer Userform Zeitweise ein leeres Feld übergeben möchte
Hier ein Ausschnitt vom Code
---------------------------------------------------------------------------------
With Worksheets("VerbrauchStrom2018")
'als Beispiel wird hier ein geänderter Name übernommen
'.Cells(raFund.Row, 4) = Me.TextBox2
'.Cells(raFund.Row, 9) = CDbl(Me.TextBox3)
.Cells(raFund.Row, 10) = CDbl(Me.TextBox4.Value)
.Cells(raFund.Row, 11) = CDbl(Me.TextBox5.Value)
.Cells(raFund.Row, 25) = Me.TextBox6
.Cells(raFund.Row, 26) = Me.TextBox7
'Eingabefelder leeren für weitere Suche/Eingabe
Me.TextBox1 = ""
Me.TextBox2 = ""
Me.TextBox3 = ""
Me.TextBox4 = ""
Me.TextBox5 = ""
Me.TextBox6 = ""
Me.TextBox7 = ""
Me.TextBox1.SetFocus
End With
Set raFund = Nothing
End Sub
Ich rufe die Userform auf, fülle TextBox 4 aus und die Textbox 5 soll teilweise nicht ausgefüllt werden, wie kann ich das ohne Fehlermeldung "Laufzeitfehler 13 - Typen unverträglich" beheben. Welchen Code muß ich da wo einfügen :-). Fülle ich alle Felder aus, gibt es kein Problem.
Vielen Dank für Eure Hilfe