ich brauche mal wieder euere Hilfe. Ich habe ein Makro geschrieben, welches auch genau so funktioniert hat, wie ich es mir vorgestellt habe. Bereich kopieren und immer in die letzte Zeile auf einen anderen Blatt einfügen.
Code:
Private Sub cmd1_Click()
Worksheets("Spoler").Visible = True
Sheets("Spoler").Select
Range("H2:K4").Select
Selection.Copy
Sheets("Test").Select
Ende = Range("E65536").End(xlUp).Row
Cells(Ende + 2, 1).Select
ActiveSheet.Paste
Worksheets("Spoler").Visible = False
End Sub
Jedoch habe ich nun die Tabelle erweitert von H2:K4 auf H2:N4.
Nun bekomme ich immer die Fehlermeldung 1004 " Select method of Range class failed"
Erweitere ich den Code von Range("H2:K4").Select auf Sheets("Spoler").Range("H2:K4").Select und das selbe bei Cells, kopiert er wohl wieder aber sucht sich nicht mehr die letzte Zeile.
Kennt jemand dieses Problem und könnte mir weiterhelfen ? (Wichtig: Der kopierte Bereich ist eine Tabelle)
Vielen Dank für euere Unterstützung.
Gruß