ich raffs mal wieder nicht.
Wie kann ich die kopierten Felder nebeneinander in die Datenbank Spalten B2, C2, und D2 schreiben.
Neue Daten müssen lückenlos nach unten eingeschrieben werden.
Sub Datenbank()
Dim LZ As Long
Sheets("Anforderung").Range("F2:I3").Copy' verbunden
Sheets("Anforderung").Range("P1:Y2").Copy' verbunden
Sheets("Anforderung").Range("P3:Y4").Copy' verbunden
With Worksheets("Datenbank")
LZ = .Cells(Rows.Count, 1).End(xlUp).Row
.Cells(LZ + 1, 2).Select 'Spalte B = Referenzspalte
End With
Sheets("Datenbank").Range("B3").PasteSpecial Paste:=xlValues
End Sub
Mit freundlichen Grüßen
Manfred