Listbox Markierte Zeile Anzeigen

Hallo Alle!
In meiner Userform habe ich eine einzeilige Listbox und darunter 1 Bild.
Dank Daniel kann ich die Listbox bei Bedarf mit der rechten Maus runterziehen also beliebig vergrößern.
Wenn ich auf das darunterliegende Bild klicke wird es auch in der Listbox angezeigt und markiert.
Aber wenn ich jetzt die Listbox mit der rechten Maus auf eine Zeile verkleinere, wird mir der markierte Eintrag nicht gezeigt. Dieser markierte Eintrag befindet sich unter der ersten Zeile in der Listbox.
Frage:
Wir kann ich der Listbox sagen das sie mir die markierte Zeile anzeigt wenn ich nur eine Zeile habe?
Also die Listbox soll nach oben scrollen in die Sichtbare Zeile
Name der Listbox=Lst_Treffer
'Mit rechter Maus ListBox nach unten oder oben ziehen


Private Sub Lst_Treffer_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Static Yalt As Single
If Button = 2 Then
If Yalt  0 Then
Lst_Treffer.Height = WorksheetFunction.Max(10, Lst_Treffer.Height + (Y - Yalt))
End If
Yalt = Y
End If
End Sub

Gruß
Oraculix

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub ToggleButton1_Click() Dim intPos As Integer If ToggleButton1.Value = -1 Then Lst_Treffer.Height = 170 Else Lst_Treffer.Height = 13 Call UserForm_Initialize 'das hilft erst nach dem ich auf das Bild klicke Repaint End If End Sub

Hallo Danke für Deine Antwort!
Ich verstehe zwar nicht wo Du einen Wiederspruch siehst aber versuche es nochmal zu Erklären da es unmöglich ist diese Arbeitsmappe hochzuladen ( kb300 )
Nachdem ich die Listbox wieder auf 1 Zeile mit der rechten Maus verkleinere ist die Markierte Zelle
schon Verschwunden .Die Markierung in der Listbox befindet sich irgendwo darunter . Also nicht mehr sichtbar für mich.
Ich habe mittlerweile Call UserForm_Initialize in den untenstehen Code eingefügt.
Und es funktioniert fast zu 99%.
Erst wenn ich ein Bild anklicke habe ich 100% und die markierte Zeile ist wieder sichtbar und bleibt auch sichtbar. Geht also nicht weiter nach unten wenn ich ein Bild anklicke.
Hier der VBA Code der das nächste Bild lädt!
' Klick auf Imagr24 in Userform1 zeigt nächstes Bild


Private Sub Image24_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Lst_Treffer.ListIndex

Gruß
Oraculix

Private Sub ToggleButton1_Click() 'Listbox per ToogleButton groß oder kleiner machen Dim intPos As Integer If ToggleButton1.Value = -1 Then Lst_Treffer.Height = 170 Else Lst_Treffer.Height = 13 'HIER, wenn die Listbox verkleinert wird, MUSST DU Lst_Treffer.ListIndex ZUM Lst_Treffer.TopIndex MACHEN! 'Lst_Treffer.Selected = Index Lst_Treffer.TopIndex gescheitert Lst_Treffer.ListIndex = Lst_Treffer.TopIndex 'tut sich nichts Repaint End If End Sub

Private Sub ToggleButton1_Click() If ToggleButton1.Value = -1 Then Lst_Treffer.Height = 170 Else Lst_Treffer.Height = 13 'Lst_Treffer.TopIndex = Lst_Treffer.ListIndex'Hunktioniert nur 1mal nach Bild klick ist er wieder nicht sichtbar For i = 0 To Lst_Treffer.ListCount - 1 If Lst_Treffer.Selected(i) Then Exit For Next If i

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listbox Markierte Zeile Anzeigen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread