Office: Sprung zur Auswahl aus Dropdownliste

Dagari · 27. Juli 2014

Hallo,

ich möchte eine Dropdownliste einfügen, so dass ich in der Liste die Werte aus dem Zellbereich "O3:O950" zur Auswahl habe.
Leere Zellen sollen nicht mit angezeigt werden.
Die Werte sind in diesem Zellbereich nicht sortiert, sollen aber in der Auswahlliste aufsteigend sortiert angezeigt werden.
Nach Auswahl eines Wertes soll der Cursor in die entsprechende Zeile, und Spalte E springen und das Blatt entsprechend runterscrollen.
Leider bin ich nicht so fit in VBA, dass ich das selber hinbekomme.
Weiß jemand, wie der Code in der Combobox dafür aussehen muss?

Vielen Dank für Eure Hilfe,
LG Dagari

:)

Hajo_Zi · 29. Juli 2014

Du hast Extra keine Datei verlinkt, da Du selber den Code an Deine Bedingungen anpassen möchtest. Viel Erfolg.
Code:

Option Explicit
'**************************************************
'* H. Ziplies *
'* 29.07.14 *
'* erstellt von HajoZiplies@WEB.de *
'* Homeseite - Hajo's Excelseiten *
'**************************************************

Private Sub ComboBox1_Change()
If ComboBox1 "" Then
Dim RaFound As Range
Set RaFound = Range("O3:O950").Find(ComboBox1, , , xlWhole, , xlNext)
If Not RaFound Is Nothing Then
RaFound.Select
End If
Set RaFound = Nothing
End If
End Sub

Private Sub Worksheet_Activate()
Dim StListe()
Dim LoI As Long
Dim LoZeile As Long
LoZeile = 0
'Array Dimensionieren
ReDim Preserve StListe(0 To 949)
For LoI = 3 To 950
If Cells(LoI, 15) "" Then
StListe(LoZeile) = Cells(LoI, 15)
LoZeile = LoZeile + 1
End If
Next LoI
' Liste sortieren
Sort_A_Z StListe, 0, LoZeile - 1
ComboBox1.Clear
For LoI = 0 To LoZeile - 1
ComboBox1.AddItem StListe(LoI)
Next LoI
End Sub

Public Sub Sort_Z_A(SortArray, L, R)
' sortieren von Z bis A
' von GerdZ Herber.de
Dim I, J, x, y
I = L
J = R
x = SortArray((L + R) / 2)
While (I L)
J = J - 1
Wend
If (I SortArray(J) And J > L)
J = J - 1
Wend
If (I
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dagari · 29. Juli 2014

Hallo Hajo,
puh das ist aber ein langer Code...
Vielen vielen Dank für deine Mühe.

Ich habe ihn auch sogleich eingesetzt und versucht zu verstehen. Soweit ich dazu in der Lage bin. Die Sortierung ist einmal von Z-A und A-Z. ich habe eine davon gelöscht. War das richtig?

Die Dropdownliste zeigt die absolut richtigen Werte an, klappt also super!
Nur springt die aktive Zelle dann nicht zu der ausgewählten Zeile wie oben beschrieben. Wenn das noch klappen würde, könnte ich dich knutschen, (wenn auch nur digital ;-)

Gruß Dagari

Hajo_Zi · 29. Juli 2014

falls Du sie nicht brauchst ja.
In meiner Datei geht es, Deine Sehe ich nicht und wie schon geschrieben wolltest Du das ja selber anpassen.

Dagari · 29. Juli 2014

Hallo Hajo,

jetzt habe ich die Datei doch mal eingefügt, damit du siehst, wie es bei mir aussieht.

Falls Du siehst, was ich noch verändern muss, freue ich mich sehr über eine Rückmeldung.

Danke und LG Dagari

xlph · 29. Juli 2014

Hallo,

die Find-Funktion sucht lediglich in eingeblendeten Zellen.

Hier noch eine weitere Möglichkeit:
- In Spalte P werden die Werte von Spalte O geschrieben, anschließend
sortiert und der ComboBox zugewiesen.

Code:

Private Sub ComboBox1_GotFocus()
Dim lngAnzahlProjekte As Long
ComboBox1.Clear
With Intersect(Rows("3:" & Rows.Count), Columns("O:O"), Me.UsedRange.Offset(1))
.Offset(, 1).ClearContents
.Offset(, 1).Value = .Value
With .Offset(, 1)
.Sort .Cells(1), xlAscending, Header:=xlNo
lngAnzahlProjekte = WorksheetFunction.CountA(.Cells)
If lngAnzahlProjekte > 0 Then
ComboBox1.List = .Cells(1).Resize(lngAnzahlProjekte).Value
End If
End With
End With
End Sub

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex > -1 Then
With Intersect(Rows("3:" & Rows.Count), Columns("O:O"), Me.UsedRange)
ActiveWindow.ScrollRow = WorksheetFunction.Match(ComboBox1.Value, .Cells, 0) + 1
End With
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 29. Juli 2014

von ausgeblendeten Spalten war nicht die Rede. Spalte E hatte ich überlesen.
Code:

Private Sub ComboBox1_Change()
If ComboBox1 "" Then
Dim RaFound As Range
Set RaFound = Range("O3:O950").Find(ComboBox1, Range("O950"), xlFormulas, xlWhole, , xlNext)
If Not RaFound Is Nothing Then
Cells(RaFound.Row, 5).Select
End If
Set RaFound = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

keine Ahnung warum er das nicht findet?

Hajo_Zi · 29. Juli 2014

Code:

Private Sub ComboBox1_Change()
If ComboBox1 "" Then
Dim RaFound As Range
Columns("O:O").EntireColumn.Hidden = False
Set RaFound = Columns(15).Find(ComboBox1, , xlValues, _
xlWhole, , xlNext)
Columns("O:O").EntireColumn.Hidden = True
If Not RaFound Is Nothing Then
Cells(RaFound.Row, 5).Select
End If
Set RaFound = Nothing
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi · 29. Juli 2014

ich habe mich jetzt nochmal informiert. es Geht ganz kurz auch in ausgeblendet.
Code:

Private Sub ComboBox1_Change()
If ComboBox1 "" Then
If Not IsError(Application.Match(ComboBox1, Columns(15), 0)) Then
Cells(Application.Match(ComboBox1, Columns(15), 0), 5).Select
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dagari · 29. Juli 2014

Hallo Hajo, hallo xlph,

ganz herzlichen Dank für Eure Mühe!
Es funktioniert ganz prima.
Eine schöne Restwoche und liebe Grüße
Dagari

Dagari · 31. Juli 2014

Ich habe dann doch noch einmal eine Frage.
Sie passt zwar nicht mehr zum Thema, bezieht sich aber auf die gleiche combobox.

Wie kann ich den Code erweitern, so dass in der Zelle T1 die jeweilige Zeilennummer erscheint, die in der combobox gerade ausgewählt wurde.
Über Code:

Range("T1")=Combobox1.listindex+1
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wird mir nämlich nicht die korrekte Zeile angezeigt sondern nur der Rang aus der sortierten liste.

Danke und Gruß Dagari

Hajo_Zi · 31. Juli 2014

If Not IsError(Application.Match(ComboBox1, Columns(15), 0)) Then
Range("T1")=Cells(Application.Match(ComboBox1, Columns(15), 0), 5).Select
End If

Dagari · 31. Juli 2014

Hallo Hajo,
damit wird der Wert "WAHR" in der Zelle T1 erzeugt.
Jedoch nicht die Zeilennummer.
Woran kann das Liegen?
Gruß Dagari

Hajo_Zi · 31. Juli 2014

Fehler vom Amt, beim Kopieren.
Range("T1")=Application.Match(ComboBox1, Columns(15), 0)

Dagari · 31. Juli 2014

D A N K E , D A N K E , D A N K E , ! ! !

Office: Sprung zur Auswahl aus Dropdownliste

Sprung zur Auswahl aus Dropdownliste

Sprung zur Auswahl aus Dropdownliste

Sprung zur Auswahl aus Dropdownliste

Sprung zur Auswahl aus Dropdownliste

Sprung zur Auswahl aus Dropdownliste

Sprung zur Auswahl aus Dropdownliste - Similar Threads - Sprung Auswahl Dropdownliste

Sprung nach Entertaste

Tabelle: Zelle einfügen. Sprung an Anfang nächster Zeile

Excel VBA: Sprung zu bestimmter Zelle

Tab Sprünge nach Steuerelementen

Datenüberprüfung führt zu ungewollten Sprüngen

Sprung zum heutigen Datum

senkrechten Sprung in Liniendiagramm darstellen