variable Zellbereiche in neue Datei kopieren
26.10.2015 01:10:19
robin
ich verzweifel aktuell an einer Kopierfunktion.
Ausgangslage: In gleichaufgebauten täglichen Dateien müssen die unterschiedlich langen Tabellen in eine Masterdatei kopiert werden.
Zunächst wird in der unterschiedlich langen Tabelle das Erstelldatum eingefügt. Dies klappt wunderbar, anschließend kann ich nicht die variable Tabelle kopieren. Dies klappt nur wenn ich eine feste Range angebe. Der Rest funktioniert auch, es wird die erste leere Zeile in der Masterdatei überprüft und dann die Tabelle eingefügt.
Also habt ihr Tipps wie ich die Zeile verändern kann?
Sheets("Tabelle1").Range("A1:C6").Copy
mein Ansatz war:
Sheets("Tabelle1").Range("A" + startzeile + ":C" + laufindex).Copy
Hier der gesamte Code:
Sub CreationDate()
startzeile = 1
laufindex = startzeile
spalte = 1
Dim a
While Sheets("Tabelle1").Cells(laufindex, spalte) ""
Sheets("Tabelle1").Cells(laufindex, 3).Value = Format(ThisWorkbook. _
BuiltinDocumentProperties("Creation Date"), "short date")
laufindex = laufindex + 1
Wend
Sheets("Tabelle1").Range("A1:C6").Copy
Dim wb As Workbook
Set wb = Workbooks.Open("C:\...\...\Master.xlsx")
wb.Sheets("Tabelle1").Select
a = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1 'Erste freie Zeile in Tabelle 1 Spalte A _
_
_
finden
If Sheets("Tabelle1").Range("A1") = "" Then b = 1 'Fehler abfangen... Tritt nur in Kraft, wenn _
_
_
Zelle A1 leer ist
Sheets("Tabelle1").Range("A" & a).Select 'Leere Zelle auswählen
ActiveSheet.Paste 'Kopierte Zellen einfügen
Sheets("Tabelle1").Select 'Tabelle 1 auswählen
Application.CutCopyMode = False 'Kopierspeicher leeren
Application.ScreenUpdating = True 'Aktualisierungen einschalten
End Sub
Vielen Dank für eure Hilfe! :)
Anzeige