Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

spalten kop. ohne select!

spalten kop. ohne select!
27.10.2007 08:49:27
lisa
Hallo zusammen
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen kop. ohne select!
27.10.2007 08:58:46
Hajo_Zi
Hallo Lisa,

Option Explicit
Sub Lisa()
Workbooks("Quelle.xls").Range("A4:A25").copy Workbooks("Ziel.xls").Sheets("Tabelle3").Range( _
"A2")
Workbooks("Quelle.xls").Range("G4:G26").copy Workbooks("Ziel.xls").Sheets("Tabelle3").Range( _
"C2")
End Sub



AW: Zellen kop. ohne select!
27.10.2007 09:05:00
lisa
Hallo Hajo
Danke für die schnelle Antwort.
So läuft es sauber und schnell durch
Ein schönes WE
Gruss Lisa
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige