Office: VBA: Drop-Downs in einer Zelle zusammenfassen

Hi,

also vorab: ich bin absoluter VBA-Laie. Uns hat hier auf der Arbeit ein Verwandter meines Chefs eine Eingabemaske mit VBA gebaut und sollte mir das innerhalb eines Tages beibringen! Natürlich habe ich nicht wirklich etwas gelernt, ich konnte die Maske bisher aber immer etwas umwandeln oder verändern indem ich mir ähnliche Muster in dem Vorgegebenen gesucht habe.

Nun aber möchte ich etwas einfügen, wofür ich bisher kein Beispiel gefunden habe: ich möchte gerne, dass die Inhalte mehrere Dropdowns in eine Zelle zusammengefasst werden. Als Beispiel sollte dann drin stehen: "Anschrift hat sich geändert, Postleitzahl wurde korrigiert, Telefonnummer existiert nicht mehr". Falls in den Dropdowns nichts ausgewählt wird, soll auch nichts drin stehen.

Ich denke, es ist etwas utopisch mich mit solch einer Bitte an euch zu wenden, aber bevor ich mir das ganz kompliziert zusammenbaue (eine Idee hätte ich ja), dachte ich, ich trau mich einfach mal die Profis zu fragen :-?

Vielen Dank schon mal und LG

 

Hallo!

Das könnte theoretisch in etwa so funktionieren:

Range("A1") = ComboBox1.Text & "," & ComboBox2.Text & "," & ComboBox3.Text

Das musst du dann über eine If-Abfrage abfangen.

 

Super, ein wenig hilft mir das schon weiter, vielen Dank, aber hier die peinliche Frage: wofür steht "A1"?

 

Hi,

:?:

meinst du vielleicht so in einer Zelle:

Dropdown1 Dropdown2 Dropdown3


Mein Lösungsvorschlag wäre:

Aktivierst den Entwurfsmodus

wählst die erste Kombinationsfeld aus und gehst in die Eigenschaften

unter "LinkedCell" gibst eine freie Zelle an. (z.B. A1)
Wenn an den Tabellen nichts ändern willst fügst eine neue Tabelle ein (z.B. Tabelle11) und gibst bei "LinkedCell" dann zuerst die Tabelle an und dann die Zelle. (z.B.: Tabelle11!A1)

Das gleiche wiederholst mit den anderen Kombinationsfelder, nur nicht wieder A1 angeben, am besten fortsetzen mit A2, A3 usw.

Wenn mit allen durch bist hast jetzt in Tabelle11 alle Ausgewählte angaben aus der Dropdowns untereinanderstehen.

Jetzt must du nur noch in Zelle C1
suchst erst einmal die Zellen raus du du verbinden willst
und gibst es so ein
=1.Zelle&" "&2.Zelle&" "&3.Zelle usw.

Hoffe das Funktioniert bei dir auch so, denn so hab ich es bei mir gelöst und bis jetzt ohne Problemen geklappt.

Gruß Emi

edit:

Oh, war etwas zu langsam...
und du wolltest es in VBA haben...


Das A1 steht für die einzelne Zelle.

Das wäre auch die Spalte A und Zeile 1 => A1

 

Hallo!

Na, für die Zelle A1, also deine Ausgabezelle.

 

Danke schatzi, das hab ich mir schon fast gedacht.

Ich bin gerade am überlegen, ob nicht doch Checkboxes sinnvoller wären. Ich dachte mir auch gerade, dass ich es mithilfe des Vorschlages von schatzi auch selber hinbekommen könnte, das hat natürlich nicht geklappt.

Vielleicht hilft es ja, wenn ich das ganze etwas genauer beschreibe, was ich machen möchte.

Also, ich habe z.b. einen Firmennamen, eine Strasse und eine Telefonnummer, die jeweils in einem eigenen Feld in einer Maske aufgerufen werden. Jede Veränderung, die ich an einem dieser Felder vornehme, muss in der Excelzeile zu dieser Adresse in Spalte xy festgehalten werden.

Was meint ihr, wären hier Combos oder CheckBoxes besser? Und hättet ihr vielleicht noch mal einen Vorschlag zur "Schreibweise"?