Combobox Listindex

walter · 2008-12-03T10:07:00+00:00

Guten Morgen, ich lese über eine Combox die Auswahldaten aus der Spalte "D1:D" ein. Nun möchte ich gern, wenn ich z.b. Listindex 4 ausgewählt habe, das aus der Zelle "A2" der Wert z.b. 22 in die Spalte "E1:E" neben dem Listindexwert gesetzt wird also die 22 in E4. Zusatzfrage: Wie kann man beim aufklappen der Combobox das sofort nach oben gescrollt wird ? mfg walter mb

Hallo Walter,
habe noch ein wenig experimentiert.
Die Kombination der folgenden beiden Ereignismakros sollte deinen Wünschen nahekommen.
Meine Empfehlung LostFocus- statt Change-Ereignis zu benutzen war deshalb, weil es so nicht zu Fehlern bei versehentlichem Anklicken eines falschen Eintrags in der Auswahlliste kommt.
Gruß
Franz


Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex  -1 Then
Cells(Me.ComboBox1.ListIndex + 1, 5) = Range("A2").Value
End If
End Sub
Private Sub ComboBox1_GotFocus()
Dim varMerken
'Merken des Eintrags für 1. Eintrag in Spalte E
varMerken = Cells(1, 5)
Me.ComboBox1.ListIndex = 0 'Listbox auf 1. Wert setzen, scrollt auch Anzeige
Me.ComboBox1.ListIndex = -1 'Listbox auf keinn Wert setzen
'gemerkten Eintrag für 1. Zeile in Spalte E wieder eintragen
Cells(1, 5) = varMerken
End Sub

Halllo Walter,
durch den Autofilter und das Ändern der Komboboxwerte kam es beim Fokusieren zu mehreren Auslösungen des Change-Ereignis.
Da du Select-Anweisungen für Zellen in deinem Code hattest, verlor die Kombobox ihren Focus und das wàr's.
Ich hab es mal angepasst. Durch eine speziell gesetzte Variable wird verhindert, dass die Change-Prozedur während der Abarbeitung der Focus-Prozedur abgearbeitet wird. Das Setzen der Auswahlliste für die Kombobox muss in die Focus-Prozedur, sonst gibt es ein Problem beim 1. Aufruf der Fosus-Prozedur, da die Kombobox noch gar keine Daten hat.
Der Autofilter wird ggf. ebenfalls in der Focus-prozedur aktiviert.
Gruß
Franz


Option Explicit
Private bolFocus As Boolean
Private Sub ComboBox1_Change()
Dim FI$
If bolFocus = True Then Exit Sub
FI = Me.ComboBox1.Text
If FI = "ALLE" Then
Me.AutoFilter.Range.AutoFilter Field:=3
Else
Me.AutoFilter.Range.AutoFilter Field:=3, Criteria1:=FI & "*"
End If
'-- jetzt wird die Filterungszahl neben Namen gesetzt --------
If Me.ComboBox1.ListIndex  -1 Then
Cells(Me.ComboBox1.ListIndex + 1, 16) = Range("A4").Value
End If
End Sub
Private Sub ComboBox1_GotFocus()
Dim varMerken
On Error Resume Next
bolFocus = True
'Merken des Eintrags für 1. Eintrag in Spalte O
If Not ActiveSheet.AutoFilterMode Then
Range(Cells(5, 1), Cells(Cells.SpecialCells(xlCellTypeLastCell).Row, 13)).AutoFilter
Else
Me.ShowAllData
End If
varMerken = Cells(1, 15)
Me.ComboBox1.List = Me.Range("O1:O" & Me.Cells(Me.Rows.Count, 15).End(xlUp).Row).Value
Me.ComboBox1.ListIndex = 0 'Listbox auf 1. Wert setzen, scrollt auch Anzeige
Me.ComboBox1.ListIndex = -1 'Listbox auf keinn Wert setzen
'gemerkten Eintrag für 1. Zeile in Spalte E wieder eintragen
Cells(0 + 1, 15) = varMerken
bolFocus = False
End Sub

Forumthread: Combobox Listindex

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Excel VBA: Umgang mit der Combobox Listindex

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)