dynamische Dropdowns - Eindeutiger Wert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Guten Morgen,
es scheint meinen Beitrag heute morgen nicht gespeichert zu haben. Hier daher der zweite Versuch.
In der folgenden Datei, hab ich mal ein Beispiel dargestellt. Die Drop Downs in den Zellen B3:B4 speisen sich aus den Arrays in den Spalten I bis K.
Diese Arrays beziehen sich wiederum auf die Tabelle unterhalb des Konfigurator. Das funktioniert wie gesagt auch problemlos.
Was wir uns nun noch wünschen würden ist, dass wenn ich wie in meiner Beispieldatei die Maschine C wähle und dadurch die folgenden Drop Downs nur noch einen Wert enthalten, dieser automatisch in die Zellen geschrieben wird.
Der Anwender darf die Drop Downs immer nur von oben nach unten füllen und in der Originaldatei gibt es auch eine Funktion alle Drop Downs zu leeren und auf Fehler zu prüfen. Aber an dem automatisch ausfüllen bin ich mit meinen geringen VBA Kenntnissen leider gescheitert.
Vielen Dank für eure Unterstützung.
Lg Nicole
https://www.herber.de/bbs/user/155336.xlsx

HI
1. definiere mit der Formel, die du für die DropDowns verwendest, einen Excel-Namen (neuen Namen anlegen und dann diese Formel bei bezieht sich auf)
2. diesen Namen kannst du dann auch statt der Formel im DropDown verwenden
3. erstelle das Change-Event für dieses Tabellenblatt.
in diesem Programmierst du dann für jedes DropDown folgendes, du zählst wievie Zellen der Zellbereich für das DropDown umfasst und wenn das 1 ist schreibst du den Wert in die Zelle mit dem DropDown
als erstes mal einen Namen definieren "Auswahl_Bauform" mit der Formel bei bezieht sich auf =_xlfn.ANCHORARRAY($J$4))
also die selbe Formel die du als Quelle des DropDowns verwendet hast (ich hab kein Excel 365, daher kann ich es dir nicht genauer sagen)
dann folgendes Makro


Private Sub Worksheet_Change()
application.EnableEvents = false
With Range("Auswahl_Bauform")
if .Cells.Count = 1 then Range("B4").value =.Cells(1, 1).value
End with
Application.EnableEvents = true
End Sub

die With-Klammer erstellst du für jedes betroffene DropDown
Gruß Daniel

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("B3:B5")) Is Nothing Then Exit Sub Application.EnableEvents = False With Range("J4#") If .Cells.Count = 1 Then Range("B4").Value = .Cells(1, 1).Value End With With Range("K4#") If .Cells.Count = 1 Then Range("B5").Value = .Cells(1, 1).Value End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

dynamische Dropdowns - Eindeutiger Wert

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread