Office: Combobox: Mehrere Spalten auslesen

Hallo zusammen,

ich habe folgendes Problem, welches mich noch in den Wahnsinn treibt:

Ich habe eine Combobox mit mehreren Spalten
Nach Auswahl einer Zeile möchte ich mehrere Spalten auslesen. Ich schaffe es aber immer nur einen Wert in eine Zelle zu schreiben.

Bsp:
Vorname Nachname Telefonnummer
Max Muster 564654
Melanie Muster 897986

Wenn ich in der Combobox folgendes auswähle
Max Muster 564654


Dann kann ich mit BoundColumn und LinkedCell einen Wert auslesen.
z.B. in Zelle A1 den Wert „Muster“

Ich will aber in Zelle A1 den Wert „Muster“ und in Zelle A2 den Wert „564654“

Codebeispiel

Code:

Die Liste zum Füllen der Combobox befindet sich hier auf dem Tabellenblatt „Nebenrechnung“
Das Ergebnis (Wert aus Spalte 1) wird in die aktive Zelle geschrieben.

Wie schaffe ich es, dass auch der Wert aus der 2. Spalte in eine Zelle neben der aktiven Zelle geschrieben wird?

Bonusfrage:
Die Combobox wird bei mir bei bestimmten Bedingungen (ActiveCell.Offset(0, -2) = "(-)" And Target.Cells.Count = 1) dynamisch erzeugt und nach Auswahl des Wertes wieder entfernt. Das lief bis vor ein paar Wochen noch gut. Neuerdings bleibt die Combobox aber auf dem Bildschirm bestehen und wird erst wieder gelöscht, wenn der Bildausschnitt außerhalb des sichtbaren Bildschirms gescrollt wird. Ich vermute der Bildschirm wird an dieser Stelle nicht automatisch "refreshed"

Kann mir jemand bei meinen Problemen helfen?

Gruß
Oliver

:)

 

Hi Oliver,

zu Frage 1: Ich will aber in Zelle A1 den Wert „Muster“ und in Zelle A2 den Wert „564654“

Weshalb liest du diesen Wert nicht per Formel SVERWEIS() aus deiner Quellliste?

 

Das hatte ich gemacht und es lief solange gut bis ich solche Fälle bekam wie:
Max Muster 32141324
max muster 1241544
Hier versagte meine SVerweis-abfrage.

Gruß
Oliver

 

Hi Oliver,

dann benutze den ListIndex: ComboBox.List(ComboBox.ListIndex, 2)

 

Irgendwie krieg ich es nicht hin...

Code:

Wirft mir nur einen Laufzeitfehler aus.

Gruß
Oliver

 

Hi Oliver,

mit deinem Code erstellst du die ListBox - in die Zelle kann doch erst dann etwas eignetragen werden, wenn du in der erstellten ListBox etwas auswählst. Dazu müsstest du dann das Change-Ereignis der ListBox verwenden.

 

Hallo Beverly,

Ich kriegs nicht hin.

Wie kann ich die cb_change Abfrage in meine Sub zur Erzeugung der Combobox einbauen?
Ich würde das Change Ereignis über eine Sub abfragen. (Sub cb_change ())
Nur existiert in meinem Fall die Combobox dann nicht mehr.
Die Combobox erzeuge ich dynamisch an bestimmten Stellen und lösche sie nach Gebrauch wieder.

Code:

Danke für deine Geduld


Gruß
Oliver

 

Hi Oliver,

du musst eine eigene Prozedur für das Change-Ereignis benutzen:

Code:

 

Hallo Beverly,

leider erhalte ich für die neue Prozedur einen Laufzeitfehler.

"Eigenschaft List konnte nicht aufgerufen werden. Ungültiges Argument"
Vielleicht da die Combobox in der Prozedur zur Erzeugung der Box und deren Befüllung auch wieder entfernt wird?

Gruß
Oliver

 

Hab mich vertan,
jetzt klappt es!

DANKE!