ich habe folgende Programmteile:
Private Sub CommandButton1_Click()
i = 1
Preise.Show
End Sub
Private Sub CommandButton2_Click()
i = 2
Preise.Show
End Sub
Private Sub TextBox1_Change()
Dim Txt
Txt = TextBox1.Text
If Txt = "" Then Exit Sub
If IsNumeric(Txt) = False Then GoTo ErrorHandler
If Len(Txt) = 4 Then
Txt = Left(Txt, 1) & "." & Right(Txt, 3)
'SK700_Testeinstellungen.Controls("Textbox" & i) = Txt <- so möchte ich das haben
SK700_Testeinstellungen.TextBox1 = Txt <- so funktioniert das
Unload Me
End If
Exit Sub
ErrorHandler:
Beep
MsgBox "Keine Zahl!", vbCritical
TextBox1.Text = ""
End Sub
Ich rufe mit 2 unterschiedlichen Buttons ein und dieselbe Prozedur auf. Hier gebe ich einen Preis ein.
Wenn ich mit Button1 die Prozedur starte, will ich damit den Preis in Textbox1 ändern. (i=1)
Wenn ich mit Button2 die Prozedur starte, will ich damit den Preis in Textbox2 ändern. (i=2)
hier folgt dann noch Button3, 4, ... (habe ich oben nicht berücksichtigt)
Aber das führt immer zu einem Fehler. Was mache ich falsch??
Danke
Norbert