Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
23.04.2024 14:59:21
Zellformel in VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
432to436
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

schnelles Kopieren von bestimmten Spalten

schnelles Kopieren von bestimmten Spalten
31.05.2004 12:12:14
bestimmten
Hallo,
ich wuerde geren schnell und moeglich kurz bestimmte Spalten aus einer Export Datei in eine Import Datein kopieren. Kann mir irgendwer helfen dass zu verkuerzen. Vielen Dank
Workbooks.Open Filename:= _
"C:\Program Files\Export.DBF"
Range("C:E").Select
Selection.Copy
Windows("IMPORT").Activate
Range("A1").Select
ActiveSheet.Paste
Windows("Export").Activate
Columns(i + 5).Select
Selection.Copy
Windows("IMPORT").Activate
Range("D1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Windows("Export").Close

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

Betreff
Datum
Anwender
Anzeige
AW: schnelles Kopieren von bestimmten Spalten
31.05.2004 12:38:27
bestimmten
Hallo Marion,
versuch es mal so:
Workbooks.Open Filename:="C:\Program Files\Export.DBF"
Range("C:E").Copy Workbooks("IMPORT.xls").Worksheets(1).Range("A1")
Columns(i + 5).Copy Workbooks("IMPORT.xls").Worksheets(1).Range("D1")
Workbooks("Export.DBF").Close SaveChanges:=False
Gruß
Nepumuk
AW: schnelles Kopieren von bestimmten Spalten
bestimmten
' Hallo, also ich haette es so gemacht.... Ja und hier nimmt man vor, dass die Datei Import schon geoeffnet ist! Gruss kdosi aus cz
Option Explicit

Sub Makro1()
Dim wrbExport As Workbook
Dim wrbImport As Workbook
Dim i
On Error GoTo ErrH
Set wrbExport = Workbooks.Open(Filename:="C:\Program Files\Export.DBF")
Set wrbImport = Workbooks("Import.xls")
'Range("C:E").Select
'Selection.Copy
'Windows("IMPORT").Activate
'Range("A1").Select
'ActiveSheet.Paste
wrbExport.Worksheets(1).Range("c:e").Copy Destination:=wrbImport.Worksheets(1).Range("a1")
'Windows("Export").Activate
'Columns(i + 5).Select
'Selection.Copy
'Windows("IMPORT").Activate
'Range("D1").Select
'ActiveSheet.Paste
wrbExport.Worksheets(1).Columns(i + 5).Copy Destination:=wrbImport.Worksheets(1).Range("d1")
Application.CutCopyMode = False
'Windows("Export").Close
wrbExport.Close
Exit Sub
ErrH:
MsgBox Err.Description & " ," & Err.Number, vbCritical, "Error"
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige