DAS genügt:
Dim lz, sh1, sh2
Set sh1 = Sheets("Lagerauftrag")
Set sh1 = Sheets("Übersicht_Lageraufträge")
lz = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
If lz > 1 Then lz = lz + 1
sh2.Cells(lz, 1) = sh1.Range("C2")
sh2.Cells(lz, 2) = sh1.Range("C3")
sh2.Cells(lz, 3) = sh1.Range("C5")
sh2.Cells(lz, 4) = sh1.Range("C7")
sh2.Cells(lz, 5) = sh1.Range("C9")
sh2.Cells(lz, 6) = sh1.Range("C11")
sh2.Cells(lz, 7) = sh1.Range("C13")
sh2.Cells(lz, 8) = sh1.Range("C15")
sh2.Cells(lz, 9) = sh1.Range("C16")
sh2.Cells(lz, 10) = sh1.Range("C17")
sh2.Cells(lz, 11) = sh1.Range("C18")
sh2.Cells(lz, 12) = sh1.Range("C19")
sh2.Cells(lz, 13) = sh1.Range("C20")
sh2.Cells(lz, 14) = sh1.Range("C22")
|