Private Sub CommandButton21_Click()
Dim LRow As Integer
LRow = Sheets("Tracking Liste").Cells(Rows.Count, 3).End(xlUp).Row + 1
Range("C" & LRow).Select
Selection.EntireRow.Insert
Range("C9:N9").Copy
Range("C" & LRow).Select
ActiveSheet.Paste
ThisWorkbook.Worksheets("Tracking Liste").Cells(8, 3).Select
End Sub
Ich war der Meinung das ich das mit dem unten aufgeführten Befehl umgehen kann aber leider hat das nicht funktioniert. Danke schon mal an alle.
ThisWorkbook.Worksheets("Tracking Liste").Cells(8, 3).Select