Tabulator in Formular springt nicht
31.05.2007 15:52:38
Marc81
ich habe ein VBA-Formular mit mehreren Textboxen. "Normalerweise" springt mein Cursor von Feld zu Feld, wenn ich die Tab-Taste drücke. Jetzt ist es aber schon mehrmals passiert, dass mir Excel den Cursor nicht in das nächste Feld gesetzt hat sondern ein Tab IN das Textfeld einträgt (also ein Rechteck).
Da ich aus dem Inhalt der Textbox einen Dateinamen und Ordner erzeugen muss, bringt mir Excel natürlich einen Fehler, dass die Datei bzw. der Ordner nicht erzeugt werden kann. Der Fehler passiert aber sporadisch, eine Ursache konnte ich deshalb noch nicht finden. Was mir dabei aber auffiel, ist dass die gesperrten Sonderzeichen wieder möglich sind.
Die Sonderzeichen in den Textboxen fange ich wie folgt ab:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 57 And KeyAscii ?@ sperren
If KeyAscii = 34 Then KeyAscii = 0 '" Sperren
If KeyAscii = 42 Then KeyAscii = 0 '* Sperren
If KeyAscii = 47 Then KeyAscii = 45 '/ in - umwandeln
If KeyAscii = 92 Then KeyAscii = 0 '\ Sperren
If KeyAscii = 124 Then KeyAscii = 0 '| Sperren
If Chr(KeyAscii) = " " Then KeyAscii = 95 'Leerzeichen in "_" umwandeln
End Sub
Gruss Marc