ich bitte um Unterstützung bei dem nachgenannten Problem :
es werden Textboxen für eine Userform erstellt :
Public Const ZEAB01 As Single = 30 ' Zeilenabstand für
' Boxen usw.
analog werden SP02 , BOXW01 , BOXH01, TxtAbs1 mit Daten versorgt.
...
For TxtAnz1 = 1 To ANZBOX ' Textboxen erstellen
' ANZBOX Konstante aus mod_Const
' ANZBOX = 10
ReDim Preserve Txtbox1(1 To TxtAnz1)
Set Txtbox1(TxtAnz1) = Frmbox1(2).Controls.Add _
("Forms.TextBox.1", "MyTextBox1") ' Erstellung der Textboxen
' Name ist Txtbox1(1-ANZBOX)
With Txtbox1(TxtAnz1)
.Left = SP02 ' Abstand links
.Top = TxtAbs1 ' Abstand oben
.Width = BOXW01 ' Breite
.Height = BOXH01 ' Höhe
.MousePointer = 1 ' Mausansicht
End With
TxtAbs1 = TxtAbs1 + ZEAB01 ' Berechnen Abstand
Next
...
in der Userform sind die Textboxen da und auch das füllen mit dem folgenden Bsp. klappt auch :
Txtbox1(1).Value = Date & " " & Time ' Textbox Datum & Zeit
nur wenn ich dann z.B. folgendes einsetzen möchte :
Sub Txtbox1(1)_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' nur Text zulassen und automatisch Grosschreiben
If Chr(KeyAscii) Like "[a-z A-Z]" = False _
Then KeyAscii = 0
If KeyAscii >= Asc("a") And KeyAscii
dann erhalte ich die Fehlermeldung :Fehler beim Kompilieren
Syntaxfehler
, dass liegt sicher an Txtbox1(1)
Nur wie müussen diese dann angesprochen werden oder was muss da als Zusatz noch rein ?
Vielen Dank für Eure Hilfe und Unterstützung im Voraus !
MfG ERIC