Es sind zwei Dinge gleichzeitig: ein Wert und eine Benutzeroberflächenpräsentation dieses Werts. Eine Tabellenkalkulationszelle kann eine Möglichkeit zur Bestimmung eines Wertes enthalten (Dropdown-Liste, Formel usw. ), aber welcher Wert auch immer erreicht wird, ist der Wert, den sie anzeigt. Excel dropdown mehrfachauswahl ohne vba 2017. Excel unterstützt Formulare wie Kombinationsfelder, aber ich glaube, dass der Wert immer noch in einer anderen Zelle ausgegeben wird. Der übliche Ansatz besteht darin, mithilfe der Datenvalidierung eine Dropdown-Liste zu erstellen und eine separate Spalte mit SVERWEIS für den Code zu verwenden. Wenn Sie wirklich keine andere Spalte haben können, die den Code enthält, weiß ich nicht, was ich Ihnen sagen soll. Es hängt davon ab, wie die Daten konsumiert werden sollen; Versuchen Sie, einen Ausdruck zu erhalten, oder wird das Blatt von einem anderen Programm bearbeitet? Update 2 Wenn Sie wirklich keine separate Code-Spalte verwenden möchten, können Sie möglicherweise eine Combo-Box-Technik verwenden, die hier teilweise beschrieben wird: Es wäre kompliziert.
B4:B14) durchführen If Not ersect(Target, Range("B4:B14")) Is Nothing Then '**Range definieren Set rngDV = Target. SpecialCells(xlCellTypeAllValidation) If rngDV Is Nothing Then GoTo Errorhandling '** Prüfen, ob eine gültige Zelle ausgewählt wurde und Werte eintragen If Not ersect(Target, rngDV) Is Nothing Then Application. EnableEvents = False wertnew = wertold = = wertnew If wertold <> "" Then If wertnew <> "" Then = wertold & ", " & wertnew End If Application. Erstellen mehrerer Dropdown-Listen in Excel ohne Wiederholung. EnableEvents = True Errorhandling: End Sub Wenn Sie den Code eingefügt haben, steht die Funktion der Mehrfachauswahl wie gewünscht zur Verfügung, siehe Abbildung 3. Abbildung 3 Sie können nun beliebig viele Auswahlmöglichkeiten zu einer einzigen Zellen hinzufügen. Die einzelnen Begriffe werden mit Kommata getrennt. Wenn Sie ein anderes Trennzeichen wie Semikolon (;) oder Schrägstrich (/) verwenden möchten, so können Sie den VBA-Code in folgender Zeile einfach anpassen, siehe rotes Zeichen. If wertnew <> "" Then = wertold & " / " & wertnew End If Die Beispieldatei können Sie über über den folgenden Download-Link herunterladen.
Mehrfachauswahl in Dropdown-Liste Helfe beim Thema Mehrfachauswahl in Dropdown-Liste in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, ich benötige eure Hilfe. Ich möchte in einer Zelle per Drop-Down-Menü Daten auswählen. Über DAtenüberprüfung-Liste habe ich mir eine... Dieses Thema im Forum " Microsoft Excel Hilfe " wurde erstellt von Badmade, 13. Mai 2018. Hallo zusammen, Ich möchte in einer Zelle per Drop-Down-Menü Daten auswählen. Über DAtenüberprüfung-Liste habe ich mir eine vordefinierte Liste erstellt. Jetzt kommen wir zu meinem Problem, ich möchte jetzt aus dieser Liste mehrere Elemente auswählen und mittels einem ", " zum Beispiel getrennt in die Zelle geschrieben bekommen. Excel dropdown mehrfachauswahl ohne vba 1. Ist das ohne VBA (Formular) möglich? Grüße:) Hi, in einer Gültigkeitszelle kannst du immer nur 1 Element auswählen - du müsstest stattdessen ein Listenfeld aus den ActiveX-Steuerelementen verwenden und per VBA die ausgewählten Elemente mit einem ", " als Trenner zusammenfügen. Das ist nicht ganz das was ich benötige, ich habe ein Projektplan und in einer Spalte möchte ich Personen (das ist meine vordefinierte Liste) ein Projekt zuordnen.
du msstest jetzt fr den Fall, dass in WertAlt vorkommt, eben das Target aus WertAlt entfernen und dann wieder das neue WertAlt in zurckschreiben. Dazu kannst du die Replace-Funktion benutzen: Code: WertAlt = Replace(WertAlt,, "") Viel Spass beim Programmieren Gru Danie Verfasst am: 11. Excel 2007/2010 - Mehrfachauswahl in Dropdown-Liste - MS-Office-Forum. Apr 2014, 10:54 Rufname: Mit deinem Tipp habe ich es hinbekommen, nur leider bleiben die Semikola nach dem Entfernen eines Eintrags stehen und die Zelle sieht dann im Extremfall so aus [;;;;]. Code: If WertAlt <> "" Then If InStr(WertAlt, ) = 0 Then = WertAlt & "; " & Else = Replace(WertAlt,, "") End If Um das zu umgehen htte ich jeden Eintrag in einen neuen Absatz eingefgt: = WertAlt & vbLf & Nur leider bleiben dann anstelle der Semikola leere Zeilen stehen. Ich knnte damit leben, dass eines oder mehrere Semikola stehen bleiben. Wenn du einen Tipp httest, wie ich das Prblem behoben komme, wre ich jedoch auch nicht abgeneigt;) Verfasst am: 11. Apr 2014, 11:09 Rufname: nochmal ein Replace einsetzen und zwei aufeinander folgende Trennzeichen durch eines ersetzen.