Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1008to1012
1008to1012
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ComboBox1.AddItem automatisch

Forumthread: ComboBox1.AddItem automatisch

ComboBox1.AddItem automatisch
12.09.2008 09:28:00
Vera
Hallo liebe Excelfreunde
ich möchte die ComboBox einer Userform mit den letzten 20 unterschiedlichen Bemerkungen füllen.
Vieleicht hat jemand ein Beispiel rumliegen welches:
- die Bemerkungsspalte von unten nach oben durchgeht
- 20 unterschiedlich!! Bemerkungen findet
- diese alphabetisch sortiert
und dann mit AddItem der ComboBox übergibt.
Was ich bisher zustande gebracht habe, ist mir umständlich.
Vielleicht hat jemand ein Codeschnipsel für mich?
Liebe Grüße
Vera
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ComboBox1.AddItem automatisch
12.09.2008 10:43:00
Rudi
Hallo,
die Bemerkungen in Tab1!A:A
in der UF:

Private Sub ComboBox1_DropButtonClick()
Dim colTmp As New Collection, arrList(), n As Integer
Dim iRow As Long
ReDim arrList(1 To 20)
With Sheets(1)
For iRow = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
Err.Clear
On Error Resume Next
colTmp.Add .Cells(iRow, 1), .Cells(iRow, 1)
If Err = 0 Then
n = n + 1
arrList(n) = Cells(iRow, 1)
End If
If n = 20 Then Exit For
Next
End With
ReDim Preserve arrList(1 To n)
QuickSort arrList
ComboBox1.List = arrList
End Sub

in ein Modul:


Sub QuickSort(ByRef VA_Array, Optional V_Low1, Optional V_High1)
On Error Resume Next
Dim V_Low2 As Long, V_High2 As Long
Dim V_Val1, V_Val2 As Variant
If IsMissing(V_Low1) Then
V_Low1 = LBound(VA_Array, 1)
End If
If IsMissing(V_High1) Then
V_High1 = UBound(VA_Array, 1)
End If
V_Low2 = V_Low1
V_High2 = V_High1
V_Val1 = VA_Array((V_Low1 + V_High1) / 2)
While (V_Low2  V_Val1 And _
V_High2 > V_Low1)
V_High2 = V_High2 - 1
Wend
If (V_Low2  V_Low1) Then Call _
QuickSort(VA_Array, V_Low1, V_High2)
If (V_Low2

Gruß
Rudi

Anzeige
[Erledigt] ComboBox1.AddItem automatisch
12.09.2008 13:20:14
Vera
Hallo Rudi!
Toll! Super! Klasse!
Das hat auf Anhieb funktioniert und sofort genau das gewünschte Ergebnis geliefert.
Gegenüber meiner Spagettilösung ist sie zusätzlich blitzeschnell!
Vielen, vielen Dank, Rudi
Vera
;

Forumthreads zu verwandten Themen

Combobox - additem oder so ?
k

Hallo,
habe ein Combobox in einer Userform, die dem User helfen soll "Standard-Einträge" zu verwenden.
Der Bereich der Daten enthält aber ca. 1500 Datensätze mit ca. 800 Einträgen und viele sind doppelt, bzw. enthalten eben keinen Eintrag.
Wie kann ich nun die Combobox so füllen, d...
11.08.2009 12:15:53
Thread-ID: 1094970
11 Beiträge
UserForm ComboBox füllen
chrissey

Hallo Excel-Volk,
hab mal wieder ein Problemchen:
Ich habe ein UserForm mit einer ComboBox1 jetz möchte ich diese mit einem Datensatz füllen.
Den Namen des Datenbreichs habe ich bereits als DD1 definiert. Normalerweise müsste ich dies
doch unter Eigenschaften ListFillRange eintr...
18.08.2009 11:43:39
Thread-ID: 1096692
5 Beiträge
Anzeige
Combobox aus immer größer werdende Tabelle füllen
Ralf

Hallo!
Ich habe eine 6 Spaltige Tabelle.
Die Spalten B D und F füllen die Comboboxen 1-3 und die Spalten C E und G füllen die Bezeichnungsfelder.
Die Datenfelder sind über Listindex verbunden, so dass immer alles aus derselben Zeile gezogen wird.
Nur habe ich aber das Problem da...
03.10.2009 14:52:21
Thread-ID: 1106973
4 Beiträge
ComboBox verliert AddItem nach Speichern
Björn

Hallo,
nun brauch ich auch mal Eure Hilfe.
Ich habe ein Berechnungsprogramm mit mehreren ComboBoxes.
Eine ComboBox wird in Abhängigkeit von der Auswahl in der ersten mit möglichen Einträgen über AddItem befüllt.
Beispiel:
In ComboBox1 ist als ListFillRange ein Bereich markie...
14.10.2009 10:27:17
Thread-ID: 1109519
9 Beiträge
ComboBox3.AddItem
Heinz

Hallo Leute
Ich habe 18 Comboboxen 3-20
Üverall sollte der selbe Wert wie unten erscheinen. Gibt es eine Möglichkeit diese ComboBoxen vereinfacht zu füllen?
Gruß
Heinz
ComboBox3.AddItem "311" ComboBox3.AddItem "312" ComboBox3.AddItem "321" ComboBox3.AddItem "321" Combo...
16.10.2010 16:11:46
Thread-ID: 1182753
5 Beiträge
Anzeige
Combobox füllen bei Auswahl des Tabellenblatts
Frank

Hallo Zusammen,
erst mal möchte mich nochmals bedanken.
Dieses Forum ist einfach klasse.
Nun zu meinem Problem.
Ich habe eine Arbeitsmappe mit zwei Tabellen.
Soll immer mit Tabelle1 geöffnet werden.
Die Combobox die gefüllt wird liegt auf einer Userform die beim öffnen d...
25.02.2011 10:28:20
Thread-ID: 1202874
3 Beiträge
ComboBox befüllen aus mehreren Tabellen
Mister

Guten Morgen,
wer kann mir auf der Sprunge helfen? Ich habe 5 Tabellen (Gruppe1 bis 5) mit Namen jeweils in den Zellen C5 bis C41. Ich möchte diese Namen in einem ComboBox in einer UserForm auflisten und nach Möglichkeit sortiert.
Hat jemand eine Idee?
Danke und Gruß
Martin
07.09.2011 11:11:02
Thread-ID: 1228908
3 Beiträge
Anzeige
Füllen von Combobox in Userform
Combobox

Hallo Zusammen
Ich hätte eine Frage zum Thema füllen von einer Combobox in einer Userform.
Ausgangslage:
Userform in Tabelle 1 (inkl. Combobox)
Combobox ist zweispaltig
Daten in Tabelle 3 A2: B10
Problem:
Die Daten werden nicht eingefüllt. Was ist falsch?
Private...
03.12.2011 17:27:43
Thread-ID: 1240516
11 Beiträge
Dropdownliste leeren und neu befüllen
Alex

Hi
Folgendes Problem habe ich. Ich will abhängig vom Eintrag in einer anderen Comandbox
den Eintrag in "dieser Comandbox" festlegen,einmalig funktioniert das auch jedoch wenn ich in der ersten Box die Auswahl ändere fügt er nur den Eintrag hinzu.
Select Case cmbrbt Case "KUKA" cmbty...
28.11.2012 11:56:22
Thread-ID: 1288410
2 Beiträge
Dropdownliste und Autoausfüllen
Michael

Hallo !
Wahrscheinlich schon hundertemal angefragt, aber leider habe ich die richtige Lösung noch nicht gefunden.
Ich habe eine kleine Tabelle (Ex-Geraete) diverse Geräte aufgeführt.
Nun möchte ich auf dem Sheet "Startseite" die Liste ausgefüllt haben, wobei ich die Felder:
Her...
04.01.2013 09:27:47
Thread-ID: 1292843
6 Beiträge
Autoausfüllen mit Werten aus Liste VBA
Alex

Guten Morgen Leute!
Ich benötige mal wieder eure Hilfe.
Um die Arbeitsabläufe bei mir zeitl. zu optimieren habe ich folgende Vorstellung:
In einem Sheet - welches Namentlich bezeichnet ist - (z.B. "Namen")
sind von Zelle A1 bis ... Namen aufgelistet.
Diese Namen sollen nun p...
06.02.2013 08:02:16
Thread-ID: 1297868
3 Beiträge
ComboBox füllen aus nicht aktiven Tabelle
chandler

Hallo Forum,
trotz intensiver Recherche habe ich nichts gefunden was mir weiter hilft.
Was muss im nachfolgenden Code geändert werden damit die ComboBox mit Werten aus nicht aktiven "Tabelle2" gefüllt wird?
Habe versucht mit With Worksheets("Tabelle2") leider ohne Erfolg. Es wird im...
25.02.2013 19:57:06
Thread-ID: 1300942
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige