Keypress Befehl in Klassenmodul

Hallo Experten,

In meiner UF habe ich 27 Textboxen.
In diese dürfen nur Zahlen eingegeben werden.

Habe dies nun mal getestet mit:

Private Sub TB2\_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
' 0 - 9
Case 48 To 57
' Komma
' Case 44
' Punkt
Case 46
'
Case Else
Beep
KeyAscii = 0
MsgBox String(5, 32) & "Hier dürfen nur Zahlen eingegeben werden. ", -8
End Select
End Sub

Nun ist dies aber nur für die TB2 (Textbox 2) aktiviert.
Wie erstelle ich ein Klassenmodul in dem ich alle 27 TB`s anspreche und allen diesen Code zuweise?

Liebe Grüsse
Sascha

Hallo Sascha,

jetzt mal aber langsam mit den jungen ungestümen Pferden :smile:

Priorität sollte doch da dies Milchablademappe sein das die funktioniert.
Und das ist schon eine gewaltige Aufgae für dein Wissen auch wenn ich zugebe daß du schnell und gut lernst :smile:

Aber du vergisst leider die Basics. Selbstverständlich könnte ich dir ein Klassenmodul für TextBoxen basteln. Und dann?
Beim Geringsten was da schiefgeht durch Änderungen o.ä. stehste wieder auf dem Schlauch.

D.h. du kannst alleine nicht ergründen aus welcher Codezeile und warum der Fehler auftritt.

Die Basics mit F5,F8, Haltepunkt, Debug.Print, Msgbox mußt du beherrschen sonst wird das nix.

Auch, weil mir ist da noch nie passiert *glaub*, wie man in UFs Objekte einfügt und dann wieder löscht.
Wenn ich lösche sind sie weg.
Was normal ist bei Excel, wenn ich drei TBs einfüge, die wieder lösche, dann wieder einfüge heißt die Neue TextBox 4,

Insofern mußt du üben Objekte auf der UF einzufügen und wieder zu löschen, denn irgendwas läuft da bei dir falsch.

Jetzt zu deinen 27 Textboxen.
Duhast keine Lust da 27mal das Gleiche zu schreiben, verständlich.
Wärest du in den Basics besser wäre das kein Akt.
Dann schreibst du ein makro mit 8-10 zeilen was dir da die 27 Prozeduren als Textzellen in Excel erstellt und kopierst das ins Modul und Fertig.

Korrekt ist, mit einem Klassenmodul für TextBoxen ginge es eleganter.
Aber das ist nur eine Verbesserung für die Zukunft.
Erstmal müssen da gewaltige baustellen in deiner Mappe gelöst werden.
Setze bitte da die Prioritäten darauf.

Gruß
Reinhard

Hallo Reinhard,

jetzt mal aber langsam mit den jungen ungestümen Pferden :smile:

*:smile:

Priorität sollte doch da dies Milchablademappe sein das die
funktioniert.

So ist es auch. Habe es einigermassen hinbekommen. Es läuft soweit alles, bis auf die noch fehlenden „Wunsch“-Sachen die ich selbst nich hinkriege…
Hatte heute Morgen ein ziemliches Tief und hatte keinen Kopf für das ganze, habe es aber wieder hingekriegt.

Und das ist schon eine gewaltige Aufgae für dein Wissen auch
wenn ich zugebe daß du schnell und gut lernst :smile:

Ich habe schon etliches gelernt in den letzten Wochen. Bin auch ein wenig *stolz* auf mich.
Wobei ich ganz ehrlich zugeben muss, dass ich nicht wirklich alles was in den Codes steht, verstehe… :frowning:

Aber du vergisst leider die Basics. Selbstverständlich könnte
ich dir ein Klassenmodul für TextBoxen basteln. Und dann?
Beim Geringsten was da schiefgeht durch Änderungen o.ä.
stehste wieder auf dem Schlauch.

Da bin ich Deiner Meinung!.. Sorry auch, wenn ich hier im Forum nerve…

D.h. du kannst alleine nicht ergründen aus welcher Codezeile
und warum der Fehler auftritt.

Stimmt halbwegs. Ich habe heute Morgen die Mappe ziemlich verändern wollen, hatte bereits ohne Sicherung abgespeichert, und nix ging mehr resp. stimmte mehr…
habs aber wieder in Griff bekommen, und es läuft wieder. Ziemliches Chaos in den Codes. (wird halt immer mehr und relativ unübersichtlich für mich)

Die Basics mit F5,F8, Haltepunkt, Debug.Print, Msgbox mußt du
beherrschen sonst wird das nix.

Deine Info von heute Morgen hat mir echt geholfen (F8)

Auch, weil mir ist da noch nie passiert *glaub*, wie man in
UFs Objekte einfügt und dann wieder löscht.
Wenn ich lösche sind sie weg.
Was normal ist bei Excel, wenn ich drei TBs einfüge, die
wieder lösche, dann wieder einfüge heißt die Neue TextBox 4,

Ja genau, kann mir auch nicht erklären wie das passiert ist.
Vielleicht weil ich Textboxen gelöscht habe, die neuen erstellt und diese wiederum in Textbox 1 usw umbenannt habe?

Insofern mußt du üben Objekte auf der UF einzufügen und wieder
zu löschen, denn irgendwas läuft da bei dir falsch.

Jetzt zu deinen 27 Textboxen.
Duhast keine Lust da 27mal das Gleiche zu schreiben,
verständlich.

Kein Thema. ob ich Lust habe oder nicht, bei 27 ist das nicht so ein Ding. Frage mich nur wie e bei 100 sein würde…
Habe die 27 Codes nun auch eingebunden

Wärest du in den Basics besser wäre das kein Akt.
Dann schreibst du ein makro mit 8-10 zeilen was dir da die 27
Prozeduren als Textzellen in Excel erstellt und kopierst das
ins Modul und Fertig.

Korrekt ist, mit einem Klassenmodul für TextBoxen ginge es
eleganter.
Aber das ist nur eine Verbesserung für die Zukunft.
Erstmal müssen da gewaltige baustellen in deiner Mappe gelöst
werden.
Setze bitte da die Prioritäten darauf.

Hier mal meine aktuelle Mappe (die auch gut läuft)
http://www.uploadagent.de/show-178177-1317304490.html

Ich habe da schon noch 2 Sachen die noch nicht so sind wie ich will, aber ich getraue mich jetzt auch nicht mehr so viel zu fragen *verlegen*

Schau es Dir bitte mal an.
Das mit dem Errorhandler habe ich noch nicht genau angeschaut, (Priorität war die Mappe wieder zum laufen zu bringen und eigentlich möchte ich die Sache mit dem Speichern und neuer Monat zuerst beenden)
Und die UF Datenmaske habe ich auch noch nicht erneut gezeichnet.
Aber am nächsten freien Tag setze ich mich daran.
Hatte nur heute frei in dieser Woche. Morgen wieder arbeiten…

Liebe Grüsse
Sascha