Das Kopierte nach ClearContents auch gelöscht
17.01.2017 20:18:29
StopWatch
Könnte mir jemand vielleicht helfen? Hier ist der Code:
Sub Loeschen_einfuegen()
Sheets("Tabelle1").Select
Range("A1:B2").Select
Selection.Copy
Sheets("Tabelle2").Select
Cells.Select
'Application.CutCopyMode = False ' Wofür ist das?
Selection.ClearContents
Range("A1").Select
ActiveSheet.Paste ' hier ist Fehler: "Nichts kopiert!"
' zuerst löschen und danach kopieren,
' und danach einfügen ist schlechte Lösung!
End Sub
' Vielen Dank! Übrigens, ich finde, dass ist die beste Seite für Excel Fragen!