Zellendropdown in Spalte per VBA

Forumthread: Zellendropdown in Spalte per VBA

27.11.2019 17:55:42

Wolfgang

Hallo,
im ausgeblendeten Tabellenbereich A2-A10 der Tabelle Admin befindet sich Text für "die Befüllung" von Zellendropdown. Die Zellendropdown würde ich gerne für die Spalte B per VBA generiert bekommen und der Text aus A2-A10 soll hierin eingebunden sein.- Wäre so etwas denkbar? - Herzlichen Dank schon jetzt für die Rückantwort und viele Grüße - Wolfgang

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellendropdown in Spalte per VBA

27.11.2019 17:57:44

Hajo_Zi
AW: Zellendropdown in Spalte per VBA

27.11.2019 19:09:51

volti
AW: Zellendropdown in Spalte per VBA

28.11.2019 09:41:27

Wolfgang
AW: Zellendropdown in Spalte per VBA

28.11.2019 11:09:31

volti

AW: Zellendropdown in Spalte per VBA

27.11.2019 17:57:44

Hajo_Zi

benutze Makrorecorder.

AW: Zellendropdown in Spalte per VBA

27.11.2019 19:09:51

volti

Hallo Wolfgang,
meinst Du so etwas in der Art?

Sub Set_Auswahl()

'Sub füllt das gewünschte Auswahlfeld mit den gewünschten Einträgen (nur, wenn nicht gesperrt)

 With ActiveSheet.Range("$B$1")

  Dim Eintraege As String, Obj As Range

  For Each Obj In ActiveSheet.Range("$A2:$A10")

      Eintraege = Eintraege & Obj.Value & ","

  Next Obj

  If .Locked = True Then Exit Sub

  With .Validation

   On Error Resume Next

   .Delete

   If Eintraege &LT;&GT; "" Then

    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _

    Operator:=xlBetween, Formula1:=Left$(Eintraege, Len(Eintraege) - 1)

    .IgnoreBlank = True

    .InCellDropdown = True

    .InputTitle = ""

    .ErrorTitle = ""

    .InputMessage = "MeineInfo"

    .ErrorMessage = "Diese Eingabe ist falsch!"

    .ShowInput = True

    .ShowError = False

   End If

  End With

 End With

End Sub

viele Grüße
Karl-Heinz

AW: Zellendropdown in Spalte per VBA

28.11.2019 09:41:27

Wolfgang

Hallo Karl-Heinz,
zunächst herzlichen Dank für Deine schnelle Rückmeldung und den Code. Ich versuche den Code gerade einzubinden, irgendwie passiert da aber nichts. Was würde ich mit dem Code erreichen bzw. wie gehe ich vor? - Danke und viele Grüße - Wolfgang

AW: Zellendropdown in Spalte per VBA

28.11.2019 11:09:31

volti

Hallo Wolfgang,
nimm diesen Part mal raus:
If .Locked = True Then Exit Sub
Dieses Beispiel hatte ich einfach mal bei mir rauskopiert und angepasst. Ich arbeitete dort mit schreibgeschütztem Blatt und dieser Part fragt ab, ob die Zelle schreibgeschützt ist.
Ansonsten ermittelt das Tool die DropDown-Einträge aus dem angegebenen Bereich "$A2:$A10" und erstellt in Zelle $B$1 eine DropDown-Liste. Eine evtl. alte Liste wird vorher weggelöscht.
Die Funktionsweise und Einstellmöglichkeiten kannst Du mit der Excelhilfe F1 zu ".Validation" einsehen.
Hoffe es geht jetzt.
viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Forumthread: Zellendropdown in Spalte per VBA

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread