Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

mit VBA - Dropdownfelder erstellen

mit VBA - Dropdownfelder erstellen
08.03.2022 19:22:40
Jürgen
Hallo liebe Experten,
möchte mittels Makro einen Tabellenbereich mit DropDownfelder versehen
Die Daten befinden sich im Blatt : Drop Down
"
Habe mit mit dem Makrorecorder aufgenommen was auch funktioniert.
Nun habe ich den Bereich der dynamisch sein soll gegen eine Variable ausgetauscht.......
Aber ich erhalte jetzt einen: Laufzeitfehler 1004 Anwendungs oder objektorientierter Fehler
Dim dropdownformel As String
For x = 1 To 4
Select Case x
Case 1
beginn = "H"
Ende = "H"
Range("J" & ersteZeileZiel & ":" & "N" & zeile - 1).Select
dropdownformel = "=Drop Down!$H$6:$H$14"
Case 2
Range("G" & ersteZeileZiel & ":" & "G" & zeile - 1).Select
dropdownformel = "=Drop Down!$F$6:$F$13"
Case 3
Range("AD" & ersteZeileZiel & ":" & "AD" & zeile - 1).Select
dropdownformel = "=Drop Down!$A$1:$A$3"
Case 4
Range("AE" & ersteZeileZiel & ":" & "M" & zeile - 1).Select
dropdownformel = "=Drop Down!$A$5:$A$30"
End Select
'formel = "=Drop Down!$" & beginn & "$6:$" & Ende & "$14"
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=dropdownformel
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Danke schon mal im voraus.
"
Gruß Jürgen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit VBA - Dropdownfelder erstellen
08.03.2022 19:37:33
Jürgen
Update:
Habe den Fehler anscheinend gefunden. Exel kam anscheinend nicht mit dem Leerzeichen im Blattnamen klar.
Umbenannt und schon funktionierte es.
Gruß Jürgen
Genau: Hochkommas setzen
09.03.2022 15:43:26
Yal
..und wenn Du es besonder kompakt magst:

Dim E, X
For Each X In Array("J|N|$H$6:$H$14", "G|G|$F$6:$F$13", "AD|AD|$A$1:$A$3", "AE|M|$A$5:$A$30")
E = Split(X, "|")
With Range(E(0) & ersteZeileZiel & ":" & E(1) & zeile - 1).Validation
.Delete
.Add Type:=xlValidateList, Formula1:="='Drop down'!" & E(2)
End With
Next
VG
Yal
Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige