Ich habe bis jetzt diesen Code :
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("B2").Value = "Electronics" Then
With Range("C2").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$M$3:$M$13"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End If
er bewirkt, dass, wenn im dropdownfeld in B2 "electronics steht, soll in C2 ein Dropdwonfeld von M3:M13 erscheinen. Der Code funktioniert auch, ich will nur dass der Code bis zur zeile 300 geht, will aber nicht 300 mal copy paste machen.
gibt's ne Möglichkeit, den Code für die range C2:C300 sowie B2:B300 "runterzuziehen"?
Grüße, Dominic