Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1008to1012
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

302 Forumthreads zu ähnlichen 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
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
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
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
Userform Combobox füllen
snore

Hallo Excelprofis,
ich hab ein "hoffentlich" keines Problem, ich benutze folgenden Code in meiner Userform um Daten in eine Combobox einzulesen.
soweit so gut, funktioniert auch sehr gut, nur ich muss das Tabellenblatt offen haben um die Daten einzulesen, ich will aber auf einen Anderen...
20.08.2012 17:28:33
Thread-ID: 1275770
3 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
Anzeige

Links zu Excel-Dialogen

ComboBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
10
4
3
8
4
2
2
10
2
1
5
2
5
4
4
6
4
1
10
1
9
2
6
2
3