Supportnet Computer
Planet of Tech

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...

Option Explicit

Private Sub TextBox9_Change()
If Left(Me.TextBox9.Text, 1) = "," Then _
Me.TextBox9.Text = "0" & Me.TextBox9.Text
End Sub


Gruß

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: