---

Hallo Experten!

Ich hab in einer Userform zwei Comboboxen.
Jetzt soll sich wenn ich die linke Combobox nach unten scrolle die rechte automatisch mitbewegen.
Ist sowas möglich? Wenn ja wie? Was brauch ich dafür?

Vielen dank für euere Hilfe!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi jonnyw79,

wenn beide Combos gleich viele Einträge haben sollte sowas gehen.

CU, Bernd
--
Private Sub ComboBox1_Change()
  ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Tag zusammen,
@Bernd: und damit scrollen die gleichzeitig? Glaub ich erstmal nicht  die Einträge sind nach Auswahl der gleiche Index, ja, aber mitscrollen?

@jonnyw: Warum nimmst Du denn keine ListBox mit zwei Spalten? Ich denke mal, Du brauchst es aus Übersichts- / Info-Gründen?

Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Nicole,

stimmt natürlich, ich hatte das halt so verstanden.

Mitscrollen während der Auswahl ist M.E. nicht möglich.

CU, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

jonnyw79,

die Eigenschaft TopIndex gibt den Index der obersten angezeigten Zeile zurück.

HTH
pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo pablo,

Zitat:

---

die Eigenschaft TopIndex gibt den Index der obersten angezeigten Zeile zurück.

---

zeig' mir bitte (Code), wie man das hierfür verwenden kann, ich hab' mir nämlich schon die Ohren dran gebrochen, aber ich krieg's nicht gepackt...
die ComboBox hat keine Aktion, die es Dir erlaubt diese Eigenschaft auszulesen. Die wird einmal beim Aktivieren gelesen und dann beim Verlassen, nicht zwischendrin.
Korrigier' mich bitte, wenn's nicht stimmt!!

Gruß,
Nicole

------------------
Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hab mal als Denkanstoss etwas zusammengebaut, wie ich deine Anforderungen vertehe.
Du brauchst ein Formular und zwei Kombinationsfelder 'ComboBox1' und 'ComboBox2' .. den Rest macht der Code.
Konnt auch noch nicht ersehen, in welcher Umgebung und in welcher Sprache Du das machen willst.

Code:

---

'' wenn ohne maus gearbeitet wird
Private Sub ComboBox1_Change()

    Dim iIndex As Integer
    iIndex = Me.ComboBox1.ListIndex

    Me.ComboBox2.ListIndex = iIndex
   
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    If Y >= 0 And Y <= 9 Then
        Me.ComboBox2.ListIndex = 0
    ElseIf Y >= 9.75 And Y <= 18.75 Then
        Me.ComboBox2.ListIndex = 1
    ElseIf Y >= 19.5 And Y <= 28.75 Then
        Me.ComboBox2.ListIndex = 2
    ElseIf Y >= 29.25 And Y <= 38.25 Then
        Me.ComboBox2.ListIndex = 3
    ElseIf Y >= 39 And Y <= 48 Then
        Me.ComboBox2.ListIndex = 4
    ElseIf Y >= 48.75 And Y <= 57.75 Then
        Me.ComboBox2.ListIndex = 5
    End If
   
End Sub

Private Sub UserForm_Initialize()
   
    ComboBox1.Enabled = True
    ComboBox2.Enabled = False

    ComboBox1.AddItem ("Eintrag1")
    ComboBox1.AddItem ("Eintrag2")
    ComboBox1.AddItem ("Eintrag3")
    ComboBox1.AddItem ("Eintrag4")
    ComboBox1.AddItem ("Eintrag5")
    ComboBox1.AddItem ("Eintrag6")
       
    ComboBox2.AddItem ("Eintrag1")
    ComboBox2.AddItem ("Eintrag2")
    ComboBox2.AddItem ("Eintrag3")
    ComboBox2.AddItem ("Eintrag4")
    ComboBox2.AddItem ("Eintrag5")
    ComboBox2.AddItem ("Eintrag6")

End Sub

---

PS: Das funktioniert noch nicht einwadfrei, das merkst, wenn Du über das eigentliche Kombinationsfeld mit der Maus fährst. Es gibt leider zwei NullPunkte und das Event MouseOver funktioniert sowohl in der eigentlichen List als auch in dem Kombinationsfeld selber.

Grüssle Lars

[Edit]Funktioniert nur in VBA (Word und AutoCAD)! VB .Net 2003 funktioniert es schon nicht mehr. VB 6.0 kann ich hier nicht testen.[/Edit]

------------------

"Soll es funktionieren oder darf es auch etwas von Siemens sein?" ...

http://validator.w3.org/check?uri=http://ww3.cad.de/cgi-bin/ubb/Ultimate.cgi

[Diese Nachricht wurde von BloodyMess am 15. Aug. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Morgen Lars,

das funktioniert auch nicht wenn Du die Schriftgröße änderst.

CU, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Bernd,

sicher funktioniert es dann auch nicht mehr. ..  .. Erschwert wird das ganze nochmals, wenn ein Benutzer den Schriftgrad auf "Grosse Schriftarten" eingestellt hat. Dann musst Du Dir halt die Schriftgrösse holen und danach die Abstände dynamisch berechnen. Sollte ja auch nur ein Denkanstoss sein!

Grüssle Lars

------------------

"Soll es funktionieren oder darf es auch etwas von Siemens sein?" ...

http://validator.w3.org/check?uri=http://ww3.cad.de/cgi-bin/ubb/Ultimate.cgi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Lars,

vermutlich geht das nur mit Subclassing, siehe:

http://www.xtremevbtalk.com/showthread.php?t=233954&goto=nextoldest

Da ich sowas bisher nicht gemacht habe und nicht genügend Zeit dafür habe überlasse ich das mal jemandem anderen ;-)

cu, Bernd
--
zu Subclassing:
http://vb-tec.de/subclass.htm
http://www.activevb.de/tutorials/tut_subcls/subcls.html
http://www.shadoware.de/vb/tutorials/subclassing.html
http://www.it-academy.cc/content/article_browse.php?ID=996
http://support.microsoft.com/?scid=kb%3Ben-us%3B327866&x=20&y=15
http://support.microsoft.com/default.aspx?scid=kb%3Bde%3B507481

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

[QUOTE]
zeig' mir bitte (Code), wie man das hierfür verwenden kann, ich hab' mir nämlich schon die Ohren dran gebrochen, aber ich krieg's nicht gepackt...
QUOTE]

Nicole,

ich hab es einmal in VB gemacht, da geht es einfach. Leider hat die Combobox aus den MSForms kein Scroll-Event, da wird es dann natürlich sehr schwierig.

Gute Heilung für die Ohren :-))

pablo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ok danke für die Tips.

Hab jetzt einiges probiert und bin zu dem Schluss gekommen, dass die ganze Scrollgeschichte für mein Programm nicht so das Wahre ist. Es funktioniert zwar ansatzweise, finde die Lösung aber unschön!

Trotzdem danke für die Hilfe!!

Gruss Jens

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

tip0047.zip

Es geht und das hab ich auch schon oft verwendet.

Das Beispiel habe ich von www.vb-fun.de,  die Seite hat mir schon oft geholfen.
Hier ist das zwar eine Listbox, aber mit einer Combobox sollte das genauso funktionieren.

Ciao

------------------
Klaus

www.al-ko.com | Pssst...unbedingt hier klicken!!! | mein Gästebuch | privat...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi Klaus,

Sehr Nett, was es denn nicht so alles gibt ;-)

Ich bin per Zufall hier reingestolpert:

http://www.aboutvb.de/khw/artikel/khwcontrolsync.htm

cu, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP