VBA: Zugriff auf eine Sub von div. Userformen

Computer: Software & Programmierung Visual Basic
#1

Hi,
Eure Hilfe ist wieder einmal gefragt:

Bestandteil einer Dokumentvorlage sind mehrere Dialogboxen, in denen wieder jeweils etliche Comboboxen eingebaut sind.
Mit dem KeyPress-Ereignis der jeweiligen Combobox wird mit:

On Error Resume Next
Call Datumsformat(ByVal KeyAscii) '*** Datum, also Zahlen und Pkte. ***

die folgende Prozedur angesprochen:

Public Sub Datumsformat(ByVal KeyAscii As Integer) ’ *** Ziffern, Punkt und Komma ***
On Error Resume Next
Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyBack, 46 '44, 46
Exit Sub
Case Else
MsgBox „Nur Zahlen und Punkte zulässig!“, vbExclamation
SendKeys „{BS}“
End Select
End Sub

Funktioniert. Jetzt meine Frage: Muß ich tatsächlich die Prozedur „Datumsformat“ auf jede einzelne Dialogbox übertragen, damit die Comboboxen auf sämtlichen Dialogboxen laufen, oder kann die Datumsformat-Sub irgendwo zentral gelegt werden, so dass sie für alle Dialogboxen nur insgesamt einmal vorhanden ist?

THX
Wilhelm

#2

Grauuuuuuus
Moien,

als erstes mal solltest du dir ein gescheites Errorhandling stricken - on error resume next ist bei Todesstrafe nur in äußerst seltenen Fällen erlaubt…

Desweiteren arbeitet man hier nicht mit sendkeys, sondern mit keyascii = 0.

Zuletzt kannst du natürlich das Programm am besten in einem modul als public abspeichern und von überall drauf zugreifen. Dieser Funktion übergibst du dann am besten keyascii und das objekt selbst und machst in der keypress-eigenschaft nur noch den aufruf dazu…

Gruß

Bernd

#3

b