Bei meinem Macro laufe ich immer beim Select auf einen Fehler.
Ich habe in der Recherche gelesen das es ganz ohne Select funktioniert (jedenfalls zu 99%)
Das Problem ist, das ich hier von einander getrennte Spalten kopieren will, aber dafür habe ich in der Recherche mit dem Worbookswechsel nicht finden können.
Hat jemand hierzu eine Idee?
Gruß Lisa
Windows("Quelle.xls").Activate
Range("A4:A25").Select
Selection.Copy
Windows("Ziel.xls").Activate
Sheets("Tabelle3").Select
Range("A2").Select
ActiveSheet.Paste
Windows("Quelle.xls").Activate
Range("G4:G26").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Ziel.xls").Activate
Range("C2").Select
ActiveSheet.Paste
Sheets("Tabelle2").Select
Range("A1").Select