Supportnet / Forum / Tabellenkalkulation
VBA code in Module aufteilen
Frage
hallo, ich versuche schon seid tagen meinen vba code
in verschiedene module aufzuteilen, aber ohne erfolg. kann mir bitte jemand helfe?!?!
VBA
in userform:
Private Sub TextBox9_Change()
call modul1.komma_und_null (textabc)
end sub
in modul:
Function komma_und_null(ByVal textabc2 As sring) As String
Dim ZF1, num, textabc, textabc2 As String
Dim komma As Boolean
ZF1 = textabc ´wenn komma ohne zahl vorher
If Left(ZF1, 1) = "." Then ´wird eine null davorgeschrieben
num = "0" & ZF1
komma = True
Else
num = ZF1
End If
textabc2 = num
userform1.Label2.Caption = userform1.TextBox9.TextLength ´zeigt die Textlänge an
End Function
ich möchte mit diesen code, bei eingegebenen komma in textbox eine 0 vorherschreiben um keine Rechenfehler zu verursachen.
Antwort 1 von Event
Hallo
etwas gekürzt...
Gruß
etwas gekürzt...
Option Explicit
Private Sub TextBox9_Change()
If Left(Me.TextBox9.Text, 1) = "," Then _
Me.TextBox9.Text = "0" & Me.TextBox9.Text
End Sub
Gruß