will aber nur die werte kopieren nicht die Formatierungen
Dim i
With Sheets("bum")
For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
.Range("a" & i).Copy Sheets("bam").Range("a5")
.Range("b" & i).Copy Sheets("bam").Range("i5")
Next i
End With
End Sub
danke im vorraus