ich habe ein kleines Problem. Ich habe eine Excel Mappe in welcher ich Spalten habe die bedingt formatiert sind, eine Formel enthalten und zwei Zeilen mit einer Dropdown Liste, die ueber die Data Validation erstellt wurden. Ich wuerde gerne mithilfe eines Buttons, der mit einem Makro versehen ist, eine neue Zeile einfuegen, die sowohl die bedingte Formatierung, die Formeln als auch die Dropdown Listen uebernimmt. Ich habe einen VBA Code gefunden, der die Formeln und die Formatierung uebernimmt, das klappt auch ganz gut, es uebernimmt aber nicht die Dropdown Liste.
Der Code sieht so aus:
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
Application.CutCopyMode = False
'Werte löschen
Intersect(.Rows(Zeile), .UsedRange).SpecialCells(xlCellTypeConstants).ClearContents
'Nummer in Spalte A:
.Cells(Zeile, 1).Value = .Cells(Zeile - 1, 1).Value + 1
'Datum in Spalte B:
.Cells(Zeile, 2).Value = Date
End With
End Sub
Habe sehr wenige VBA Kenntnisse, daher traue ich mich nicht so wirklich damit rumzuspielen. Vielen Dank schonmal.