Hallo Torsten,
kann im folgenden Code was unrund sein?
Range("Eing_KB") = Int_aus_Text(TextBox_DX.Value)
Function Int_aus_Text(Text)
If Text = "" Then
Int_aus_Text = 0
Else
On Error GoTo Fehlerbehanlung:
If Not (IsError(CInt(Text))) Then
Int_aus_Text = CInt(Text)
Else
Int_aus_Text = 0
End If
End If
Exit Function
Fehlerbehanlung:
'MsgBox "Fehler bei Konvertierung des Wertes: " & Chr(10) & Text
Call Fehlerprotokoll(Err.Source, Err.Number, Error, "Textfeld in numerischen Wert konvertieren __CInt__ ")
End Function
Private Sub Fehlerprotokoll(Err_Source, Fehlernummer, Fehlerbez, Aktion)
On Error GoTo ende
Dim kanal As Variant
Dim Dateiname As String
Dim Nutzer As String
kanal = FreeFile()
Dateiname = "C:\Fehler_Protokoll_Eingabe_Form" & Year(Date) & Month(Date) & Day(Date) & ". _
txt"
Nutzer = Application.UserName
Close #kanal
Open Dateiname For Append As #kanal
Print #kanal, "--------------------------------------------------------------------------------- _
Print #kanal,
Print #kanal, "***** ***** E I N G A B E F O R M U L A R ***** ***** ***** _
Print #kanal, Year(Date) & "-" & Month(Date) & "-" & Day(Date) & " - " & Time & " - " & _
Nutzer
Print #kanal, ThisWorkbook.Path
Print #kanal, "Fehler bei: ", Aktion, Err_Source, Fehlernummer, " / " & Fehlerbez
Close #kanal
ende:
End Sub