Herbers Excel-Forum - das Archiv

Combobox Werte trennen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ComboBox ListBox
Bild

Betrifft: Combobox Werte trennen
von: Yilmaz H.

Geschrieben am: 24.03.2005 16:22:37
Hallo zusammen,
ich habe eine Combobox mit 2 Spalten. In der erste Spalte ist der Artikelnummer und in zweiten der Artikelname.
Mein Problem ist: Ich möchte die Artikelnummer in eine Zelle wie. z.B K4 schreiben. Leider schaffe ich das nicht.
Den zweiten Wert konnte ich mit große mühe und recherche Tätigkeiten lösen.
Hier der Beispiel Code:
Dim pos As Integer
post = Instr(1, Combobox2.text, " ")
Workbooks("PC01.xls").sheets("Rechnung").Range("E4") = Mid(combobox2.text, pos + 1)
so geht es, aber wie bekomme ich den ersten wert. Bitte schnell um Hilfe.
Danke und Gruß
Yilmaz
Bild

Betrifft: AW: Combobox Werte trennen
von: Hajo_Zi

Geschrieben am: 24.03.2005 16:29:52
Hallo Yilmaz,
das Dürfte genauso sein wie bei der Listbox
TXT_Menge = ListBox1.List(ListBox1.ListCount, 1)
TXT_Preis = ListBox1.List(ListBox1.ListCount, 2)

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: Combobox Werte trennen
von: Yilmaz H.
Geschrieben am: 24.03.2005 18:15:25
Hallo,
leider komme ich mit dem o.g. Code nicht weiter.
Kannst Du das bitte nächer erläutern, bzw. den tatsächlichen Code aufschreiben.
Danke und Gruß
Yilmaz
Bild

Betrifft: AW: Combobox Werte trennen
von: Hajo_Zi

Geschrieben am: 24.03.2005 19:27:58
Hallo Yilmaz,
das Wort TXT_Menge ersetzen durch Range("A1") , ListBox1 durch Combobox1 und TXT_Preis durch Range("A2") dürfte docch nicht das Problem sein. Ich habe nun natürlich keine Ahnung welche Zellen Du haben willst und welchen Namen Dein Steuerelement hat. Ich will nicht auf Deinen Rechner schauen.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
 Bild
Excel-Beispiele zum Thema "Combobox Werte trennen"
ComboBox als Symbol Alle ComboBoxes auf Position 1
Werte in eine ComboBox einer UserForm übernehmen ComboBox in Abhängigkeit einer 2. ComboBox ein-/ausblenden
ComboBox mit Monatsnamen füllen Mehrspaltige ComboBox
ComboBox2 in Abhängigkeit von ComboBox1 bestücken Nur Zellen mit Inhalt in ComboBox listen
Neue UserForm bedingt nach ComboBox-Auswahl aufrufen Neues Element in ComboBox