nach wie vor Türmen sich immer wieder "riesige" in den Weg.
ich habe eine Userform mit einer Anzahl von Textboxen (10) in denen Daten angezeigt werden.
(eigentlich ganz normal) die unterschiedlichen Sätze werden mit einem Spibutton aufgerufen (eine Procedur DatenLaden) funktioniert prima.
Nun meine Frage.
Immer dann, wenn eine Information gößer ist als die Textbox anzeigen kann, soll eine Scollbar zu sehen sein (2=fmScrollbarsvertical).
Dies funktioniert aber nur dann, wenn ich die jeweilige Textbox betrete.
Wie kann man das "sofort" realisieren?
Ein Tipp von Timo funktioniert nicht wirklich:
Private Sub CommandButton1_Click()
TextBox1 = String(100, "A")
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Tag = ""
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As _
Single, ByVal Y As Single)
If TextBox1.Tag = "" Then
TextBox1.SelStart = 0
TextBox1.Tag = "1"
End If
End Sub
Private Sub UserForm_Initialize()
TextBox1 = String(100, "A")
TextBox1.SelStart = 0
TextBox1.Tag = "1"
End Sub
zumal bei mir die Daten nicht in Userform_Initialize in die Textbox geschieben werden.
Gibts hierzu eine Alternative?
Ich hoffe auf eine "lösende" Antwort
Gracias, muchísimas
Mit freundlichen Grüßen
Albrecht