Hallo Klaus-Dieter,
mehrfach gecheckt:
"TextBox208" existiert.
Habe die Methode jetzt mal aus dem Inizialize genommen und sie in eine MultiPage1_Change eingebaut.
So startet die Userform, aber sobald ich auf die Seite mit dem Index 4 komme bekomme ich wieder den gleichen Laufzeitfehler :(
Code:
Private Sub MultiPage1_Change()
If MultiPage1.SelectedItem.Index = 4 Then
TextBoxenAusblenden
End If
End Sub
Ich gehe jetzt nochmal alle 60 TextBoxen durch und schaue, ob auch keine dazwischen fehlt.
EDIT: Sind zweifelsfrei alle da
(22.01.2019, 13:28)StrammerMax schrieb: [ -> ]Ich gehe jetzt nochmal alle 60 TextBoxen durch und schaue, ob auch keine dazwischen fehlt.
ist das denn sooo schwer, einfach mal zu gucken, welche Nummer die Variable i gerade enthält, wenn der Fehler kommt? :17:
Gruß Uwe
Man muss auch nicht alle Textboxen durchschauen, das geht einfacher
Code:
Private Sub Textboxen_checken()
Dim ctrl As Control
Dim i As Integer
For Each ctrl In Me.Controls
i = i + 1
If TypeName(ctrl) = "TextBox" Then
Sheets("Testblatt").Cells(i, 1) = ctrl.Name
End If
Next ctrl
End Sub
Die Boxen sind alle da.
von textBox148 bis TextBox208
Wie kann man den Wert auslesen?
Wie kann man den Wert auslesen? zB so
Code:
Private Sub TextBoxenAusblenden()
Dim i As Integer
On Error GoTo fehler
For i = 148 To 208
Controls("TextBox" & i).Visible = False
Next
fehler: Debug.Print i
End Sub
@MisterBurns - Ergebnis kommt gleich.
Die Methode dient dazu, die namen aller Textboxen auf einer Userform rauszufinden und schön aufgelistet zu bekommen. Damit muss man nicht 60 Textboxen anklicken.
Hallo Max,
die Fehlermeldung ist eindeutig. Wenn du magst, stelle die Datei hier mal ein, dann kann man sich das ansehen. Ansonsten bleibt das hier beim Rätselraten.
Also:
Die Textboxen_checken Methode liefert mir:
TextBox148
TextBox149
TextBox150
TextBox151
TextBox152
TextBox153
TextBox154
TextBox155
TextBox156
TextBox157
TextBox158
TextBox159
TextBox160
TextBox161
TextBox162
TextBox163
TextBox164
TextBox165
TextBox166
TextBox167
TextBox168
TextBox169
TextBox170
TextBox171
TextBox172
TextBox173
TextBox174
TextBox175
TextBox176
TextBox177
TextBox178
TextBox179
TextBox180
TextBox181
TextBox182
TextBox183
TextBox184
TextBox185
TextBox186
TextBox187
TextBox188
TextBox189
TextBox190
TextBox191
TextBox192
TextBox193
TextBox194
TextBox195
TextBox197
TextBox198
TextBox199
TextBox200
TextBox201
TextBox202
TextBox203
TextBox204
TextBox205
TextBox206
TextBox207
TextBox208