ScrollBars erscheinen nicht automatisch
Thomas
ich habe zu diesem Thema schon einige Beiträge gefunden, allerdings bisher noch nicht die Lösung zu meinem Problem.
Ich verwende folgenden Code als Teil von von Worksheet_SelectionChange, um beim Klick in eine bestimmte Spalte die Werte aus einer anderen Spalte in einer TextBox (UserForm) anzuzeigen.
ScrollBars in der TextBox sind auf Vertical gesetzt.
Die TextBox erscheint wie sie soll, ich muss jedoch immer erst hinein klicken, damit die Scrollbalken sichtbar werden.
Hat jemand eine Idee, woran das liegen könnte ?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
If Cells(Target.Row, 24).Value "" Then
UserForm1.TextBox34 = Cells(Target.Row, 23)
UserForm1.TextBox35 = Cells(Target.Row, 24)
UserForm1.Show
UserForm1.MultiPage1.Value = 1
UserForm1.TextBox35.SetFocus
End If
End If
End Sub
VG,
Thomas
Anzeige