Dynamische Textboxen ansprechen
20.12.2018 15:13:49
Stephan
ich möchte mit dem Sub UserForm_Activate dynamische Textboxen erzeugen und danach kopierte Werte mit dem Sub TextBoxK_Change in die erzeugten Textboxen einfügen leider bekomm ich es nicht hin die Textboxen anzusprechen.
Kann mir bitte jemand weiterhelfen?
Private Sub UserForm_Activate()
Dim c As MSForms.TextBox
Dim j As Integer
monat = Mid(Kapa1.KapaDatum.Value, 2, 1) 'Wird über vorherige Userform definiert
jahr = Right(Kapa1.KapaDatum.Value, 4)
If jahr = 2018 Then jahr = 37
If jahr = 2019 Then jahr = 25
If jahr = 2020 Then jahr = 13
For s = 1 To jahr - monat
Set c = Kapa3.Controls.Add("Forms.TextBox.1", "TextBoxK0" & s, True) 'Erzeugt textboxen in ä _
_
_
bhängigkeit des Datums
With c
.Name = "TextBoxK0" & s
.Height = 20
.Top = 35 * s
.Left = 12
.Text = "TextBoxK0" & s
End With
Next
End Sub
Private Sub TextBoxK_Change()
Dim t As String
t = TextBoxK.Text
TextBoxK01.Text = Split(t, vbTab)(0) 'First Word
TextBoxK02.Text = Split(t, vbTab)(1)
TextBoxK03.Text = Split(t, vbTab)(2)
TextBoxK04.Text = Split(t, vbTab)(3)
TextBoxK05.Text = Split(t, vbTab)(4)
TextBoxK06.Text = Split(t, vbTab)(5)
TextBoxK07.Text = Split(t, vbTab)(6)
TextBoxK08.Text = Split(t, vbTab)(7)
TextBoxK09.Text = Split(t, vbTab)(8)
TextBoxK010.Text = Split(t, vbTab)(9)
End Sub