Ich hoffe auf Eure Hilfe
Ich sollte von "Wareneingang" zur "Saldo" kopieren und jedesmal sollen die Daten von "Wareneingang" in die nächste Spalte von "Saldo" kopiert werden.
bis jetzt habe ich:
Sheets("Wareneingang ").Range("B16:B36").Copy
With Sheets("Saldo")
Dim LoLetzte As Integer
LoLetzte = IIf(IsEmpty(Range("IV19")), Range("IV19").End(xlToLeft).Column, 256)
If LoLetzte > 4 Then LoLetzte = 4
With .Cells(19, LoLetzte)
.PasteSpecial Paste:=xlPasteValues ' , Transpose:=True
End With
End With

Herzlichen Dank