Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
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
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ComboBox-Additem

ComboBox-Additem
31.03.2005 10:30:22
Andreas
Hallo zusammen,
habe ein Formular mit einem Kundenfeld, jetzt will ich dass bei auf dieses Feld eine Combobox aufgeht die meine Kundennamen beinhaltet. Bei Auswahl eines Kunden soll dieser in Zelle "A6" eingetragen werden.
Sollte der Kunde nicht in der Liste sein, muss ein Eingabefeld öffnen, dass es ermöglicht neue Kunden zuzufügen.
Die Kundenliste soll in der Combobox auch Alphabetisch geordnet sein.
Bin leider erste soweit:

Private Sub ComboBox1_Click()
ComboBox1.AddItem "Kunde1"
ComboBox1.AddItem "Kunde2"
ComboBox1.AddItem "Kunde3"
ComboBox1.AddItem "Kunde4"
ComboBox1.AddItem "Kunde5"
End Sub

Wer hat dazu Lösungen?
Schönen Gruss vom Bodensee Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: ComboBox-Additem
31.03.2005 10:37:21
Tobias
Servus!
Also erst einmal wollte ich loswerden, dass du in eine ComboBox auch etwas eigenes eintragen kannst, also nicht zwingend ein neues Eingabefeld brauchst, sondern es sofort in die ComboBox eintragen kannst.
Wenn du die Kunden eintraegst, kannst du sie ja gleich alphabetisch sortieren, hier muss also kein spezieller Sortier-Algorithmus herhalten.
Nun aber der Code:




Private Sub ComboBox1_Change()
Range("A6").Value = ComboBox1.Value
End Sub



'naechste Prozedur



Private Sub UserForm_Activate()
ComboBox1.AddItem ("Kunde1")
ComboBox1.AddItem ("Kunde2")
End Sub

Gruss

Tobias
Anzeige
AW: ComboBox-Additem
31.03.2005 10:53:33
Tobias
Servus!
Noch eine etwas groessere Aktion, mit Umweg ueber eine extra Datei (kunden.xls), die die Kundendatenbank beinhaltet, und die Werte auch dort rein schreibt und von dort ausliest.

Private Sub ComboBox1_Change()
'Bei jedem aendern der ComboBox veraendert sich der Wert in A6
Range("A6").Value = ComboBox1.Value
End Sub
Private Sub CommandButton1_Click()
'hier benuetze ich einen CommandButton, um Namen hinzuzufuegen
'sortiert wirds auch gleich alphabetisch
normbook = ActiveWorkbook.Name
Windows("kunden.xls").Activate
Worksheets("Tabelle1").Select
endup = Range("A65536").End(xlUp).Row
Range("A" & endup).Activate
ActiveCell.Value = ComboBox1.Value
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Windows(normbook).Activate
End Sub
Private Sub UserForm_Activate()
'Beim Aktivieren der Userform wird die Kundenliste automatisch eingelesen
'Die "kunden.xls" muss dazu aber geoeffnet sein!
normbook = ActiveWorkbook.Name
Windows("kunden.xls").Activate
Worksheets("Tabelle1").Select
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
ComboBox1.AddItem (ActiveCell.Value)
Next i
Windows(normbook).Activate
End Sub

Hab leider grad keine Moeglichkeit, es zu testen, wenns Fehler gibt, meld dich einfach nochmal.
Gruss

Tobias
Anzeige
AW: ComboBox-Additem
31.03.2005 11:07:40
Tobias
Boeser kleiner Fehler:
Range("A" & endup).Activate
muss
Range("A" & endup + 1).Activate
heissen.

Gruss

Tobias
AW: ComboBox-Additem
31.03.2005 11:29:53
Andreas
Hallo Tobias,
danke für deine schnelle Hilfe, aber irgenwie läuft das bei mir nicht, bekomme Typenunverträglichkeit bei"normbook = ActiveWorkbook.Name".
Habe ein Workbook mit Name Kunden.XLS geöffnet, wobei eine Lösung mit einem Tabellenblatt mit Namen Kunden wäre auch möglich.
Gruss Andreas
AW: ComboBox-Additem
31.03.2005 11:37:23
Tobias
Servus!
So sollts gehen, diesmal mit einer Tabelle im selben Workbook. Wie gesagt, is halt untested, wenn Fehler da sind, einfach nochmal melden!

Private Sub ComboBox1_Change()
'Bei jedem aendern der ComboBox veraendert sich der Wert in A6
Range("A6").Value = ComboBox1.Value
End Sub
Private Sub CommandButton1_Click()
'hier benuetze ich einen CommandButton, um Namen hinzuzufuegen
'sortiert wirds auch gleich alphabetisch
Worksheets("Kunden").Select
endup = Range("A65536").End(xlUp).Row
Range("A" & endup + 1).Activate
ActiveCell.Value = ComboBox1.Value
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Worksheets("Tabelle1").Select
End Sub
Private Sub UserForm_Activate()
'Beim Aktivieren der Userform wird die Kundenliste automatisch eingelesen
'Die "kunden.xls" muss dazu aber geoeffnet sein!
Worksheets("Kunden").Select
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
ComboBox1.AddItem (ActiveCell.Value)
Next i
Worksheets("Tabelle1").Activate
End Sub

Gruss

Tobias
Anzeige

141 Forumthreads zu ähnlichen Themen

ComboBox1.AddItem automatisch
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
- die...
12.09.2008 09:28:00
Thread-ID: 1009278
3 Beiträge
Anzeige
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
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
Anzeige
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
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

Links zu Excel-Dialogen

ComboBox CommandButton

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
2
10
4
3
8
4
2
2
10
2
1
5
2
5
4
4
6
4
1
10
1
9
2
6
2