Sub Makro1()
'
' Makro1 Makro
'

'
    Range("A1").Select
    Selection.Copy
    Sheets("Tabelle2").Select
    Range("A1").Select
    ActiveSheet.Paste
End Sub