Office: (Office 2010) Erste Zeile ListBox reagiert erst bei zweimaligem klicken

Hallo.

Ich sitze seit 3 Tagen an folgendem Problem fest (Darstellung auf das wesentliche beschränkt):

- Userform mit zwei Listboxen
- Es kann entweder ein Eintrag aus ListBox1 ODER ListBox2 gewählt werden
- der Eintrag wird ber Button-Klick in die aktive Zelle des Tabellenblattes geschrieben
- wenn die aktive Zelle nicht leer ist, soll der Eintrag in der entsprechenden Listbox markiert sein

Bis hier funktioniert alles.

Aber:
- wenn die aktive Zelle nicht leer ist, und der Eintrag in einer ListBox markiert ist, ist der ERSTE Eintrag der anderen ListBox nicht auswählbar.
(bzw. kann ausgewählt werden, wird aber nicht in die Zelle geschrieben)
- mit den darunterliegenden Einträgen funktioniert es. Es geht NUR um die 1.Zeile der jeweils anderen ListBox.

Ich habe für jede ListBox ein "Change"-Ereignis, das bei Auswahl eines Eintrages in einer ListBox, die Markierung der anderen ListBox zurücksetzt.

Muß ich danach irgendwas aktualisieren, oder aktivieren, in der ListBox zu einer bestimmten Zeile springen.....oder, oder...ich hänge fest.
Ich würde mich über jeden Hinweis freuen.....


Ich muß allerdings zugeben, dass ich das schon in einem anderen Forum gefragt habe, allerdings konnte mir dort leider nicht geholfen werden.
http://www.ms-office-forum.de/forum/showthread.php?t=335767


Vielen Dank.


B Y E,
John Doe

 

Hi John,



wenn ich das richtig sehe, solltest du dein Ziel erreichen, wenn du anstelle des Change-Ereignisses das Exit-Ereignis der ListBoxen verwendest:

Code:

Private Sub ListBox_Land_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.ListBox_Stadt.ListIndex = -1
End Sub

Private Sub ListBox_Stadt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Me.ListBox_Land.ListIndex = -1
End Sub

Private Sub bn_eintragen_Click()
    If Me.ListBox_Land.Value <> "" Then
      ActiveCell.Value = Me.ListBox_Land.Value
      Me.ListBox_Land.ListIndex = -1
    End If
    If UserForm1.ListBox_Stadt.Value <> "" Then
      ActiveCell.Value = Me.ListBox_Stadt.Value
      Me.ListBox_Stadt.ListIndex = -1
    End If
    Unload Me
End Sub

Übrigens: da sich der Code ja im Codemodul des UserForms befindet, kannst du es einfach mit Me anstelle von UserForm1 ansprechen.

Bis später,
Karin

 

Hallo Karin.

Vielen Dank erstmal, dass Du dir mal mein Problem angesehen hast.
Leider hat mich Dein Vorschlag auch nicht weiter gebracht.
Ich kann dann zwar die erste Zeile der zweiten Listbox auswählen (und wird auch übernommen), aber der Eintrag aus der ersten Listbox bleibt markiert.

Ich habe wirklich schon einiges versucht, und konnte mein Problem auch eingrenzen:
Das muß mit dem Auslesen der aktiven Zelle, und dem Eintragen in die jeweilige ListBox zu tun haben. Jedesmal wenn ein Eintrag (aus der aktiven Zelle) in einer Listbox beim Starten der Userform markiert ist, wird die erste Zeile der anderen ListBox deaktiviert(?), und nur durch klicken eines anderen als den ersten Eintrag, wird danach auch der erste Eintrag angenommen....


Pfffftt...ich habe schon Flasche leer und versuche eine Alternative zu den ListBoxen....

Trotzdem vielen Dank.


B Y E,
John Doe

P.S. Danke auch für den Tipp mit .Me :-)

 

Hi John,

deine Frage war:

Und genau das löst der von mir gepostete Code - ich verstehe also nicht, wo jetzt plötzlich das Problem ist.

Bis später,
Karin

 

Hi Karin.

Bitte nicht auf die Füße getreten fühlen. Ich bin dir ja dankbar.
Ich sollte vielleicht zur Erklärung noch ein, zwei Sätze zufügen:

Ich habe, bevor und nachdem ich diesen Thread eröffnet habe, mit meinem sehr begrenzten Wissen über VB, an diesem Code herumgebastelt, aber auch nicht jede Test-Version gespeichert. Während meiner Bastelei hatte ich das Script (nicht so schön wie deins) auch soweit, daß die erste Zeile der Listbox augewählt werden kann, allerdings blieben immer die Einträge von beiden ListBoxen markiert (gut, nur ein Schönheitsmakel, aber für den Benutzer ein "irritierender" Schönheitsmakel, und ich find´s auch nicht gerade "Professionell" Aussehend).

Ich habe folgende Versionen zur Auswahl:

1.) Der erste Eintrag wird nicht übernommen, bzw. erst nach "herumklicken" in der ListBox
(dazu noch eine Frage: Ich habe irgendwo gelesen, dass erst der Scrollbalken der ListBox kurz bewegt werden muß. Das wäre das einzige, was ich noch nicht ausprobiert habe. Wie müßte ich denn das kurze bewegen des Scrollbalkens im Script darstellen ?)

2.) Oder die erste Auswahl der anderen ListBox ist Auswählbar, und die Auswahl der ersten ListBox bleibt markiert.



Da ich erstmal mit meiner Mappe weiterkommen muß, habe ich mich jetzt für die schnelle Lösung 3. entschieden:

Auch nicht besonders schön, aber es funktioniert.
Die erste Zeile meiner Listboxen ist jetzt Leer.

Vielleicht hat ja doch jemand eine bessere Lösung...

Vielen Dank, Karin. Und nich böse sein....


B Y E,
John Doe