ich komm wieder mal nicht weiter.
wie kann ich mehrere Textboxen auf einmal auf Visible gleich true stellen.
z. B. Eingabe 5
dann sollen die Textboxen 1 bis 5 eingeblendet werden.
bei Eingabe 3 nur die Textbox 1 - 3
Gruss Ludicla
Sub Einblenden()
Dim i As Long
Dim x As Long
x = 5
On Error GoTo Fehler
For i = 1 To x
ActiveSheet.OLEObjects("TextBox" & i).Visible = True
Next
Fehler:
MsgBox "Es sind nur " & i - 1 & " Textboxen vorhanden"
End Sub
Sub Ausblenden()
Dim i As Long
Dim x As Long
x = 5
On Error GoTo Fehler
For i = 1 To x
ActiveSheet.OLEObjects("TextBox" & i).Visible = False
Next
Fehler:
MsgBox "Es sind nur " & i - 1 & " Textboxen vorhanden"
End Sub
Gruß Ewald
Sub Einblenden()
Dim i As Long
Dim x As Long
Dim y As Long
For i = 1 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects(i).Name = "TextBox" & i Then
y = y + 1
End If
Next
x = Application.InputBox("Geben Sie eine Zahl von 1 bis " & y & " ein")
If x > y Or x = 0 Then
MsgBox "sie haben sich nicht an die Vorgabe gehalten,oder abgebrochen,es werden keine _
Textboxen eingeblendet"
Exit Sub
Else
For i = 1 To x
ActiveSheet.OLEObjects("TextBox" & i).Visible = True
Next
End If
End Sub
Sub Ausblenden()
Dim i As Long
Dim y As Long
For i = 1 To ActiveSheet.OLEObjects.Count
If ActiveSheet.OLEObjects(i).Name = "TextBox" & i Then
y = y + 1
End If
Next
For i = 1 To y
ActiveSheet.OLEObjects("TextBox" & i).Visible = False
Next
End Sub
Gruß Ewald
Private Sub ComboBox1_Change()
Dim i As Long
Dim x As Long
Dim y As Long
Dim c As Control
For Each c In UserForm3.Controls
If LCase(TypeName(c)) = "textbox" Then
y = y + 1
End If
Next
If ComboBox1.Value = "" Then
For i = 1 To y
UserForm3.Controls("TextBox" & i).Visible = False
Next
Else
x = CDbl(ComboBox1.Value)
If x > y Or x = 0 Then
MsgBox " Es gibt keine " & x & " Textboxen"
Exit Sub
Else
For i = 1 To x
UserForm3.Controls("TextBox" & i).Visible = True
Next
End If
End If
End Sub
Gruß Ewald