Mit Makro kopieren - kleine Änderung
15.09.2008 21:09:00
WalterK
den Code zum Kopieren von einer Mappe zur anderen Mappe habe ich in der Recherche gefunden. Folgende Änderung kann ich aber nicht umsetzen:
1.) Die Quelldatei soll durch das Makro geöffnet und wieder geschlossen werden. Die Datei ist auch nicht im gleichen Ordner wie die Zieldatei, also muss vermutlich der gesamte Pfad vorgegeben werden.
2.) Den Namen der Zieldatei sollte man nicht vorgeben müssen, weil er sich ändern könnte.
Vielleicht kann mir jemand dabei behilflich sein.
Sub Uebertragen()
Dim wkbQ As Workbook
Dim wkbZ As Workbook
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim lngQ As Long
Dim lngZ As Long
Dim lngZeile As Long
Set wkbQ = Workbooks("Test-EINS.xls") 'name der quell-datei
Set wkbZ = Workbooks("Testaus2Dateienkopieren-4.xls") 'name der ziel-datei
Set wksZ = wkbZ.Sheets("KopievonEINS") 'name der ziel-tabelle
lngZ = wksZ.Range("A65536").End(xlUp).Row + 1 'erste freie zelle in ziel-blatt
For Each wksQ In wkbQ.Sheets
With wksQ
lngQ = .Range("B65536").End(xlUp).Row 'letzte gefüllte zeile in quell-blatt
For lngZeile = 1 To lngQ
If .Cells(lngZeile, 1) "" Then
.Range(.Cells(lngZeile, 1), .Cells(lngZeile, 20)).Copy _
wksZ.Cells(lngZ, 1)
lngZ = lngZ + 1
End If
Next
End With
Next
End Sub
Besten Dank und Servus, Walter