Hallo zusammen,
Ich "kopiere" Zellbereiche von einem Tabellenblatt zu einem Anderen mittels einer Schleife. Die Schleife funktioniert perfekt nur leider wird zum Beispiel die Schrift in Fett nicht übertragen.
If CheckBox1 = True Then
With Sheets("ZW")
lngLR = IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
.Cells(lngLR + 1, 1).Resize(3, 2).Value = Sheets("Daten").Range("A4:B6").Value
End With
End If
Vielen Dank !
Gruß der Jani