Problem: Eintrag in einer Listbox anwählen

Hi,
...ich habe eine Listbox in einer Userform, diese enthält ca. 8.000 Artikel. Der User kann dann per Doppelklick auf einen Eintrag - diesen Datensatz in eine Auswahlbox (Listbox2) übernehmen, zur weiteren Verwendung.
Dabei wird er zeitgleich in der ersten Listbox (Artikelliste) per removeitem entfernt und steht dem User nicht mehr zur Verfügung.
Alles klappt super - aber:
Nach dem Doppelklick und dem "verschwinden" aus der Liste1, wird diese wieder mit Datensatz 1 beginnend angezeigt. Was lästig ist, wenn man schon weiter unten in der Liste war-denn nun muss man wieder erst scrollen um weiter in der Liste zu machen.
Ich dachte, wenn ich mir die aktuelle Position des ausgewählten Datensatzes in eine Variable merke und am Ende der Prozedur diese mit -1 (den Datensatz davor) wieder an die Listbox übergebe...sollte es funktionieren. Aber leider stimmt es nicht, es wird immer ein Artikel markiert, der um einige Zeilen davor liegt...

Mein Code:
Dim Klickzeile as long
Klickzeile = objLBBMKontakte.ListIndex ' Merken der Position (Zeile in der Box)
' Dann der Code der übergabe an die Listbox 2
' entfernen aus Listbox 1
' Listbox1 erneut anzeigen
' Dann Position wieder aufnehmen...
objLBBMKontakte.ListIndex = Klickzeile - 1
Warum, worin liegt mein Denkfehler ?
Gruß und Danke
Kay

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Kay,
es ist problematisch das Klick- und das DoubleKlick-Ereignis bei einer Listbox auszuwerten.
Es laufen bei einem DoubleKlick verschiedene Sachen ab.
A) Ein bereits selektierter Eintrag wird doppelt geklickt
1. Doubleklick-Ereignis
B) Ein noch nicht selektierter Eintrag wird doppelt geklickt.
1. Klick-Ereignis
2. Doubleklick-Ereignis
Außer beim Mausklick auf einen Listeneintrag wird das Klickereignis wird auch ausglöst:
- wenn der Listindex per Makro gesetzt wird,
- wenn per RemoveItem ein Eintrag gelöscht wird,
- wenn mit den Positioniertasten PfeilUp, PfeilDown, BildUp, BildDown, Pos1 oder Ende ein Eintrag gewählt wird.
Je nachdem was in den Klick- und Doubleklick-Ereignis-Prozeduren an Anweisungen steht, kann es dann zu unerwünschten Ergebnissen kommen. Die Klick-Ereignis-Prozedur sollte also keine Anweisungen enthalten, die den ListIndex verändern.
Damit die Klick-Ereignisprozedur nicht unerwünscht in die DoubleKlick-Prozedur eingreift muss über eine Varianble, der Ablauf entsprechend gesteuert werden. Events Ein-/Ausschalten nützt im Userform nichts.


'Auf Userform-Modulebene Variable deklarieren
Private boolDoubleClick  as Boolean
Private Sub ListBox1_Click()
If boolDoubleClick = True Then Exit Sub
'iCount = iCount + 1                                                          'TestZeile
'Debug.Print iCount & " | SingleClick " & Now & " | " & Me.ListBox1.ListIndex 'TestZeile
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
boolDoubleClick = True
' iCount = iCount + 1                                                          'TestZeile
'Debug.Print iCount & " | DoubleClick " & Now & " | " & Me.ListBox1.ListIndex 'TestZeile
Dim Spalte As Long
ZeileIndex = Me.ListBox1.ListIndex  'gewählten Eintrag Merken
With ListBox2
.AddItem Me.ListBox1.List(ZeileIndex, 0)
For Spalte = 1 To .ColumnCount - 1
.List(.ListCount - 1, Spalte) = Me.ListBox1.List(ZeileIndex, Spalte)
Next
End With
With Me.ListBox1
'Letzte Auswahl in Textbox schreiben
'Me.TextBox2 = .List(ZeileIndex, 0)                            'TestZeile
'gewählten Eintrag in Liste löschen
.RemoveItem ZeileIndex
End With
boolDoubleClick = False
End Sub

Dann ist es auch nicht erforderlich, dass nach dem löschen eines Eintrags der ListIndex erneut gesetzt wird.
Im Debug-Modus (Haltepunkte + mit F8 weiter ausführen) hängt das Ergebnis dann auch davon ab wie selektiert wird. Dann wird ggf. das Double-Klick-Ereignis zunächst garnicht erst ausgeführt, da schon nach dem 1. Klick das VBA-Fenster im Debug-Modus ausgeführt wird. Der 2. Klick endset dann meist im irgendwo im VBA-.Fenster. Das Double-Klick-Ereignis wird im Debug-Modus nur ausgeführt, wenn ein bereist per Einzel-Klick oder anders gewählter Eintrag doppelt geklickt wird.
Gruß
Franz

Beliebteste Forumthreads (12 Monate)

Problem: Eintrag in einer Listbox anwählen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Problem: Eintrag in einer Listbox anwählen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread