Sub Auswertung1()
With Worksheets("Ausw 12_04").Cells.Clear
Worksheets("12_04").UsedRange.Copy _
Destination:=.Range("A1")
Application.CutCopyMode = False
End With
End Sub
Aus "12_04" sollen alle Daten kopiert und in "Ausw 12_04" eingefügt werden. Vorher noch alles in "Ausw 12_04" löschen. Klappte mal, ich weiss auch nicht, woran es jetzt liegt. Jemand eine Idee?
Herzlichen Dank im Voraus.
Gruß, Fabek