Werte von Bereich Blatt 1 nach Blatt 2 Kopieren
20.09.2023 21:47:05
mablu
ich habe mit Goggeln ein Makro zusammengestellt das mir erlaubt einen Bereich von Tabelle 1 nach Tabelle 2 unten anschliessend zu Kopieren.
Mein Problem es kopiert auch leerzellen und alle Formate!
Ich möchte nur die Werte Kopieren (bei Feldern mit Formeln nur den angezeigten Wert!
Wie müsste ich mein Makro anpassenm?
Sub Kopieren()
Dim Wb As Workbook
Dim WsQ As Worksheet
Dim WsZ As Worksheet
Set Wb = ThisWorkbook
With Wb
Set WsQ = .Worksheets("Programm")
Set WsZ = .Worksheets("Archiv")
End With
With WsQ
.Range("D2").Copy _
Destination:=WsZ.Range("A" & WsZ.Cells(WsZ.Rows.Count, 2).End(xlUp).Row + 1)
End With
With WsQ
.Range("A5:A65").Copy _
Destination:=WsZ.Range("B" & WsZ.Cells(WsZ.Rows.Count, 2).End(xlUp).Row + 1)
End With
End Sub
Hier die Beispieldatei
https://www.herber.de/bbs/user/163005.xlsm
Vielen Dank für eure Hilfe
Mablu