Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
416to420
416to420
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Pull Down menü

Forumthread: Pull Down menü

Pull Down menü
26.04.2004 15:58:37
Mike
hi... beispiel und problembeschreibung findet ihr unter:
https://www.herber.de/bbs/user/5720.xls
vielen dank für eure hilfe.
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pull Down menü
26.04.2004 19:38:01
andre
hallo mike,
nimm folgenden code für die Auswahl. Rücksetzen kannst Du, wenn Du die Eingabe löschst.
Sortiert wird nichts - das kannst Du doch auch vorher oder?


Private Sub ComboBox1_Change()
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
  If ComboBox1.Value <> "" Then
    If Cells(i, 1).Value = CDbl(ComboBox1.Value) Then
      Rows(i).Hidden = False
    Else
      Rows(i).Hidden = True
    End If
  Else
    Rows.EntireRow.Hidden = False
    Exit For
  End If
Next
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5


Grüße, André ( andre)


Anzeige
AW: Pull Down menü
27.04.2004 09:15:24
Mike
danke für die hilfe
aber irgendwie funzt das nicht ganz... also bei den einstelligen zahlen gehts ab zehn gehts nicht mehr. und außerdem ist dieses pull down menü leer. ich brauch das aber voll. also mit der auswahl von spalte a.
vielleicht hat ja noch jemand eine elegantere lösung für mich...
trotzdem danke
Anzeige
AW: Pull Down menü
29.04.2004 06:06:23
Hans W. Herber
Hallo Mike,
mit Deiner Formulierung kam ich auch nicht so ganz klar. Gemäß ComboBox-Auswahl soll sortiert werden? Das macht keinen Sinn.
Vielleicht meinst Du aber das hier:

Private Sub ComboBox1_DropButtonClick()
Dim col As New Collection
Dim iRow As Integer
ComboBox1.Clear
Range("A1").CurrentRegion.Sort _
key1:=Range("A2"), order1:=xlAscending, header:=xlYes
iRow = 2
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 1))
col.Add CStr(Cells(iRow, 1).Value), CStr(Cells(iRow, 1).Value)
iRow = iRow + 1
Loop
On Error GoTo 0
For iRow = 1 To col.Count
ComboBox1.AddItem col(iRow)
Next iRow
End Sub

gruss hans
Anzeige
AW: Pull Down menü
29.04.2004 09:22:34
Mike
ich wills mal einfacher formulieren.
Ich brauche einfach die funktion, die auf a1 liegt (also die autofilter funktion)
aber die autofilterfunktion nicht auf der zelle a1 sondern als ein pull down menü (pull down ist doch das selbe wie combobox oder? - entschuldigt bitte die frage)
jedenfalls brauch ich die autofilterfunktion nicht in der zelle A1 sondern für so ein pull down menü, also so dass man die auswahl von den einzelnen zellen (a2-a16) hat und wenn man im pulldown menü etwas anklickt, soll nach diesem wert sortiert werden.
misst, jetzt ist es doch wieder etwas länger geworden. sorry. hoffe ich konnte mich diesmal etwas verständlicher ausdrücken..
dennoch vielen dank an alle.
Anzeige
AW: Pull Down menü
29.04.2004 09:39:50
Hans W. Herber
Hallo Mike,
wie meine Kunden sagen: Eine Beispielarbeitsmappe sagt mehr als 1000 Worte:
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige