VBA: Select Case KeyAscii für Comboboxen zentral?

Computer: Software & Programmierung Visual Basic
#1

Hallo,
für viele Comboboxen einer Userform benötige ich den folgenden Code:

Select Case KeyAscii
Case vbKey0 To vbKey9, vbKeyBack
Case Else
KeyAscii = 0
MsgBox „Nur Ziffern zulässig!“, vbExclamation
End Select

Frage an Euch: Kann man diese Prüfroutine für alle Comboboxen der Useform (vielleicht über so etwas wie „Call KeyPressZahleneingabePrüfen“ o.ä. programmieren, vielleicht sogar zentral für meine sämtlichen Dokumentvorlagen?

Danke für Eure Hilfe.

Gruss
Wilhelm

#2

Versteh ich da was nicht? Warum machst du nicht einfach folgendes:

public sub test(byref KeyAscii as variant)
Select Case KeyAscii
 Case vbKey0 To vbKey9, vbKeyBack
 Case Else
 KeyAscii = 0
 MsgBox "Nur Ziffern zulässig!", vbExclamation
 End Select
end sub

Und rufst diese dann in jeder combobox-Routine auf? Alternativ kannst du die Comboboxen auch in ein Array packen, dann haben alle die gleiche Routine…

Ralph

#3

Hallo Ralph , dann soll er aber nur eine Combobox machen und dessen den index 0 geben und die anderen nachladen, so brauch er deine Routine nur einmal aufzurufen :smile:

LG Alex

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