Das Ziel ist es, dass ich eine Stückliste von A nach B kopieren kann. Vor jeder Stückliste soll dann die Artikelnummer stehen und die Beschreibung der Entsprechenden Artikelnummer.
Wie kann man das realisieren?
Danke und Grüße,
Torben
Sub Schaltfläche1_Klicken()
Dim loLetzte As Long
Application.ScreenUpdating = False
With Worksheets("BoM Import")
loLetzte = .Cells(.Rows.Count, "A").End(xlUp).Row
If loLetzte = 8 Then
MsgBox "Fehler: Es sind keine Daten vorhanden."
Exit Sub
End If
Worksheets("Ziel").Cells(2, "A").Resize(loLetzte - 8) = .Cells(1, "B")
Worksheets("Ziel").Cells(2, "B").Resize(loLetzte - 8) = .Cells(2, "B")
.Range("A9:D" & loLetzte).Copy
Worksheets("Ziel").Range("C2").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End Sub
Gruß Werner