VBA: Tausenderpkt-Funktion aus anderen Modul?

Computer: Software & Programmierung Visual Basic
#1

Hi,

eine Frage zum Wochenende.

die Prozedur:

Private Sub cboTestTausend_Change()
cboTestTausend = Format(cboTestTausend, „###,##“)
End Sub

wandelt 1200 in 1.200 um. Ich möchte nun, da die Umwandlung in vielen Comboboxen erforderlich ist, die Umwandlungsfunktion in einem anderen Modul speichern, etwa so:

Public Sub Tausenderpunkt() '*** Fügt Tsd.-Punkt ein ***
i = Format(i, „###,##“)
End Sub

Was muß ich an den beiden Subs verändern, damit’s funktioniert?

Danke und Gruss
Wilhelm

#2

Na, wenn dann ja wohl als Function:

Public Function Tausenderpunkt(i)
'\*\*\* Fügt Tsd.-Punkt ein \*\*\*
Tausenderpunkt = Format(i, "###,##")
End Function

aber dann musst du halt die Funktion in alle Ereignisprozeduren einbasteln - womit wenig gewonnen sein dürfte.

Gruß aus dem Norden
Reinhard Kraasch

(http://www.dbwiki.de - das Datenbank-Wiki)

#3

Danke, Reinhard owT

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]