UserForm TextBox Währung fehler

Hallo
Ich brauche mal bitte Hilfe.
Ich habe eine Userform erstellt in der sich auch zwei TextBoxen für Währung befinden.
Diese läuft auch so wie sie jetzt ist.
Solange ich in diese TextBoxen etwas eingebe laufen diese durch und setzt auch alles ein.
Dieses ist auch OK
Nun mein Problem
Es soll auch durchlaufen, wenn nichts in diese beiden TextBoxen eingetragen wird.
Jetzt ist es so dass, wenn ich nichts eingebe das ich dann einen
Laufzeitfehler 13 Typen unverträglich erhalte.
Hier die Mappe so wie die UserForm
Ich hoffe das ich alles einiger maßen verständlich erklärt habe.
https://www.herber.de/bbs/user/140021.xlsm

Private Sub Boutton_Eingabe_Click()
'Erste freie Zeile ausfindig machen
Dim lngLast As String
lngLast = Cells(Rows.count, 7).End(xlUp).Row + 1
'Titel
Cells(lngLast, 6).Value = TextBox_Titel
'Titel
Cells(lngLast, 7).Value = TextBox_Name
'Titel
Cells(lngLast, 8).Value = TextBox_Straße
'Titel
Cells(lngLast, 9).Value = TextBox_Wohnort
'Titel
Cells(lngLast, 10).Value = TextBox_Mail
'Titel
Cells(lngLast, 13).Value = TextBox_Telefon
Cells(lngLast, 11).Value = CDbl(TextBox_Stundenlohn.Value)
Cells(lngLast, 12).Value = CDbl(TextBox_Kilometerpauschale.Value)
End Sub

hoffe es kann jemand helfen
Gruß speednetz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

If IsNumeric(TextBox_Stundenlohn) Then Cells(lngLast, 11).Value = CDbl(TextBox_Stundenlohn) Else Cells(lngLast, 11).Value = 0 End If If IsNumeric(TextBox_Kilometerpauschale) Then Cells(lngLast, 12).Value = CDbl(TextBox_Kilometerpauschale) Else Cells(lngLast, 12).Value = 0 End If

Option Explicit Dim lngLast As String Private Sub TextBox_Kilometerpauschale_Change() If Len(TextBox_Kilometerpauschale) = 1 Then lngLast = Cells(Rows.Count, 7).End(xlUp).Row + 1 End If If IsNumeric(Replace(TextBox_Kilometerpauschale, " ", "")) Then Cells(lngLast, 13) = TextBox_Kilometerpauschale ElseIf Left(TextBox_Kilometerpauschale, 1) = " " Then Cells(lngLast, 13) = TextBox_Kilometerpauschale Else TextBox_Telefon = "ungültige TelNr" End If End Sub

Private Sub Boutton_Eingabe_Click() 'Erste freie Zeile ausfindig machen Dim lngLast As String lngLast = Cells(Rows.count, 7).End(xlUp).Row + 1 ' Telefon prüfen, Abbruch bei ungültiger Eingabe If Len(TextBox_Telefon) > 0 Then If IsNumeric(Replace(TextBox_Telefon, " ", "")) Then Cells(lngLast, 13).Value = TextBox_Telefon Else MsgBox "Die Telefonnummer ist ungültig!" & vbCrLf & _ "Bitte keine oder eine gültige Nummer " & _ "(Ziffern mit Leerstellen getrennt) eingeben!" & vbCrLf & _ "Die Daten wurden nicht gespeichert.", _ vbCritical, "Telefon prüfen" Exit Sub End If End If 'Titel .... dein weiterer Code

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UserForm TextBox Währung fehler

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread