Wo liegt der blöde Fehler?
Sheets("Aufschlag").Range("A300").Activate
Sheets("Aufschlag").Range("A300").Select
Beides geht nicht komme einfach nicht drauf.
MfG
Stephan
Private Sub CommandButton2_Click()
Range("J2").ClearContents
Range("A1").Select
Sheets("Aufschlag").Select
Range("A300").Select
End Sub
?