kopieren in geschlossene datei

th.heinrich · 2003-09-25T17:43:41+00:00

hallo beste helfer, folgender CODE von Hans CD funzzt super in einer MAPPE. der zu kopierende BEREICH ist nicht zusammenhaengend. Sub auslesen() Dim rngAct As Range Dim intRow As Integer, intCol As Integer 'Workbooks.Open FileName:="C:\Lab_FE\VBA\Reisebericht\DB.xls" 'Worksheets("auslesen").Activate With Worksheets("Tabelle2") If IsEmpty(.Cells(1, 1)) Then intRow = 1 Else intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1 End If For Each rngAct In Range("A1,C2,C6,E5,A6").Cells intCol = intCol + 1 rngAct.Copy .Cells(intRow, intCol) Next rngAct End With Application.CutCopyMode = False End Sub wie klappt das aber mit dem kopieren in eine andere DATEI die geschlossen ist, s. auskommentierten pfad. also: aus der geoeffneten mappe AUSLESEN soll in die geschlossene mappe DB kopiert werden. danke fuer hilfe thomas

Hallo Thomas,

wenn du dir den geänderten Code ansiehst müsste es deutlich werden. Im Code ist lgRow (Variable für die Zeile) durch iCol (Variable für die Spalte) ersetzt. Mit Cells(Zeile, Spalte) wird jetzt nicht mehr der Zeilenzähler erhöht sondern der Zähler für die Spalte. Im Gegensatz zur Anordnung untereinander würde ich hier noch eine Sicherheit einbauen, wenn die Gefahr besteht, dass mehr als 256 Werte in die Zieltabelle geschrieben werden.


Sub auslesen()
Dim rngAct As Range
Dim iCol As Integer
Dim wksZiel As Worksheet
Dim wksQuell As Worksheet
Set wksQuell = ThisWorkbook.Sheets("Quelltabelle")
Workbooks.Open Filename:="C:\Lab_FE\VBA\Reisebericht\DB.xls"
Set wksZiel = ActiveWorkbook.Sheets("Zieltabelle")
With wksZiel
If IsEmpty(.Cells(2, 1)) Then
iCol = 0
Else
iCol = .Cells(2, Columns.Count).End(xlToLeft).Column
End If
For Each rngAct In wksQuell.Range("A1,C2,C6,E5,A6").Cells
iCol = iCol + 1
.Cells(2, iCol) = rngAct
Next rngAct
End With
ActiveWorkbook.Close savechanges:=True
End Sub

Gruß
Peter

hallo Peter,

nun ist es jetzt doch samstag geworden. klappt leider noch nicht ganz.

das auslesen in eine zeile klappt bestens, aber beim AUSLESEN soll der ausgelesen RANGE in der 1. freien ZEILE der SPALTE A stehen.

mit Deinem CODE


Sub auslesen()
Dim rngAct As Range
Dim iCol As Integer
Dim wksZiel As Worksheet
Dim wksQuell As Worksheet
Set wksQuell = ThisWorkbook.Sheets("Quelltabelle")
Workbooks.Open Filename:="C:\Lab_FE\VBA\Reisebericht\DB.xls"
Set wksZiel = ActiveWorkbook.Sheets("Zieltabelle")
With wksZiel
If IsEmpty(.Cells(2, 1)) Then
iCol = 0
Else
iCol = .Cells(2, Columns.Count).End(xlToLeft).Column
End If
For Each rngAct In wksQuell.Range("A1,C2,C6,E5,A6").Cells
iCol = iCol + 1
.Cells(2, iCol) = rngAct
Next rngAct
End With
ActiveWorkbook.Close savechanges:=True
End Sub

wird ALLES nebeneinander geschrieben.

ich habe schon versucht das prob zu loesen. natuerlich gescheitert.


Sub auslesen()
Dim rngAct As Range
Dim irow As Integer
Dim iCol As Integer
Dim wksZiel As Worksheet
Dim wksQuell As Worksheet
Set wksQuell = ThisWorkbook.Sheets("quelle")
Workbooks.Open FileName:="C:\test\mappe1.xls"
Set wksZiel = ActiveWorkbook.Sheets("ziel")
With wksZiel
If IsEmpty(.Cells(2, 1)) Then
iCol = 0
Else
iCol = .Cells(2, Columns.Count).End(xlToLeft).Column
End If
For Each rngAct In wksQuell.Range("A1,C2,C6,E5,A6").Cells
irow = .Cells(2, Row.Count).End(xlDown).Row + 1
'irow = .Cells(2, Row.Count).End(xlDown).Row '= rngAct
Next rngAct
End With
ActiveWorkbook.Close savechanges:=True
End Sub

vielen dank fuer Deine hilfe.

gruss thomas

Forumthread: kopieren in geschlossene datei

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Infobox / Tutorial

Daten aus einer geschlossenen Excel-Datei kopieren

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)