Erweitern einer dynamischen Tabelle in Excel. 3. Der große Vorteil an Dropdownmenüs die sich auf dynamische Listen beziehen ist, das diese sich automatisch an die Länge der Listeneinträge anpassen. Sobald wir einen Eintrag hinzufügen, steht dieser in der Auswahl zur Verfügung. Und wenn wir einen Eintrag entfernen verschwindet dieser auch genau so schnell wieder. Um uns auf das o. g. Beispiel zu beziehen müssten wir also um z. B. ein weiteres Bundesland hinzuzufügen eine neue Tabelle (erneut mit Namensvergabe) erstellen, und diese einfach in den Bezug der Dropdownauswahl mit einbeziehen. Um neue Städte zu den bereits vorhandenen hinzuzufügen, erweitern wir die Tabelle entweder durch: Drücken der TAB Taste in der letzten Zelle der Tabelle. Indem wir die Liste am rechten unteren (farblich verstärkten Rand) bei gedrückter linker Maustaste ziehen. Oder durch einen neuen Eintrag in einer leeren Zelle unterhalb der Tabelle. (hier wird i. Excel dropdown mehrfachauswahl ohne vba y. d. R. die Tabelle automatisch erweitert, und eine Abfrage erscheint ob dies so gewünscht war. )
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. EnableEvents = True Errorhandling: End Sub Allerdings benötige ich beim Optimieren noch etwas Hilfe. Klicke ich zweimal auf den selben Namen in der Dropdown, doppelt sich dieser in der Zelle. Das heisst eine Prüfung müsste rein, ob der Name vll. schon ausgewählt wurde. Und möchte ich z. Excel2016 - Dropdown mit Mehrfachauswahl durch Listenfunktion - MS-Office-Forum. B. von 3 Namen 2 händig löschen, schiebt das Makro einen Riegel vor und verhindert dies. Vll. kann mir jmd mit diesen 2 Problemen helfen. VG Berndt Betrifft: AW: Dropdown / Mehrfachauswahl von: GraFri Geschrieben am: 12. 2016 19:28:11 Hallo Für händisches löschen kenn ich keine Lösung. Würde alles löschen und neu eingeben. Doppelte Einträge vermeiden: If InStr(wertold, wertnew) = 0 Then Else = wertold mfg, GraFri Geschrieben am: 14.
Beispiel Um den Wert der MultiSelect -Eigenschaft für ein Listenfeld namens "Country" oder "Order Entry" zurückzugeben, können Sie Folgendes verwenden: Dim b As Byte b = Forms("Order Entry"). Controls("Country"). MultiSelect Zum Festlegen der MultiSelect -Eigenschaft können Sie Folgendes verwenden: Forms("Order Entry"). MultiSelect = 2 ' Extended. Benötigen Sie weitere Hilfe?