Zeile mit Dropdown-Feldern kopieren

[Dubsepp]

Hallo zusammen!

ich habe vor einiger Zeit, danke der großartigen Hilfe hier im Forum, ein Dokument erstellt in dem per Button eine Zeile und deren Formeln kopiert und eine Zeile weiter unten wieder einfügt.

Code:

Sub NeueZeile()
Dim Zeile As Long

With ActiveSheet
  'Zeilennummer:
  Zeile = .Cells.Find("*", , , , xlByRows, xlPrevious).Row + 1
  'Kopieren:
  Intersect(.Rows(Zeile - 1), .UsedRange).Copy
  .Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormats            'Formate
  .Cells(Zeile, 1).PasteSpecial Paste:=xlPasteFormulas           'Formeln
  '.Cells(Zeile, 1).PasteSpecial Paste:=xlPasteValues            'Werte
 
 
  Application.CutCopyMode = False
 
  'Werte löschen
  'Intersect(.Rows(Zeile), .UsedRange).SpecialCells(xlCellTypeConstants).ClearContents
 
  'Nummer in Spalte B:
  .Cells(Zeile, 2).Value = .Cells(Zeile - 1, 2).Value + 1
 
 
 
End With
End Sub

Ich möchte dieses Dokument jetzt erweitern, in dem ich in einigen Feldern eine Dropdownliste erstelle, die ihre Werte aus einer anderen Tabelle erhält. Wie kann ich diese Dropdown-Felder jetzt in diesen VBA Code mit einbetten? xlPasteValues habe ich schon probiert, das kopiert mir nur den ausgewählten Inhalt des Dropdownfeldes.

Vielen Dank schonmal!

Gruß Dubsepp

[Kuwer]

Hallo DubSepp,

.Cells(Zeile, 1).PasteSpecial Paste:=xlPasteValidation

Gruß Uwe

[Dubsepp]

@Uwe

Super! Danke dir

Gruß Dubsepp