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