KlausF hat mir nachfolgenden Code geschrieben
Wie kann ich diesen ändern das nur die Werte kopiert werden, ohne Formatierung?
Vielen Dank für eure Hilfe
Sub Kopieren()
Dim wksTitel As Worksheet
Set wksTitel = Worksheets("Titel")
Dim firstFree As Long
With Worksheets("Auswertung")
firstFree = .Cells(Rows.Count, 1).End(xlUp).Row + 1
wksTitel.Range("A1").Copy Destination:=.Range("A" & firstFree)
wksTitel.Range("C1").Copy Destination:=.Range("C" & firstFree)
wksTitel.Range("E1").Copy Destination:=.Range("E" & firstFree)
End With
Set wksTitel = Nothing
End Sub