Ich habe Probleme mit meinem Code. Irgendwie funktoniert der Verweis auf "lRow" nicht, sobald ich die Range-Methode wähle, um ein InCell Dropdown zu definieren.
Freue mich über jede Hilfe. Besten Dank im Voraus.
Liebe Grüsse
AB
Sub NeueZeileZusatzVollmandat()
Dim ws As Worksheet
Dim ws2 As Worksheet
Dim eRow As Long
Dim lRow As Long
Set ws2 = Worksheets("VollmandatNormal")
Set ws = Worksheets("Lookup_VM_normal")
eRow = ws2.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:= _
_
xlValues).Row + 1
lRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, SearchDirection:=xlPrevious, LookIn:= _
_
xlValues).Row
ws.Rows(27).Copy ws2.Rows(eRow)
With ws2.Range(lRow).Validation
.Add xlValidateList, xlValidAlertStop, xlBetween, "=Lookup_VM_normal!$A$17:$A$22"
.InCellDropdown = True
End With
End Sub