Datensatz an letzte Stelle einer Tabelle kopieren
17.01.2017 21:11:02
Jürgen
ich würde gerne aus einer Tabelle einer Excel Datei eine Zeile kopieren und in eine andere Datei in einer Tabelle in der schon Datensätze stehen an die letzte Stelle kopieren. Dafür habe ich auch beriets einen VBA Code mir fehlt allerdings die Anpassung, dass die Daten an die lezte Stelle der Datei kopiert werden und nicht immer die erste Zeile der Tabelle überschreiben.
Kann mir hier jemand helfen?
Danke und Grüße
Jürgen
Sub Tagesabrechnung_Uebertrag()
' Macro für den Übertrag der Tagesabrechnungen in die Jahresdatei
Dim wbTag As Workbook
Dim wksKonsolidierung As Worksheet
Dim strFileZiel As String
Dim wbZiel As Workbook, wksZiel As Worksheet
strFileZiel = "C:\Users\GBRJahr2017.xlsm"
Set wbTag = ActiveWorkbook
If wbZiel Is Nothing Then
'Zieldatei öffnen
Set wbZiel = Application.Workbooks.Open(Filename:=strFileZiel)
End If
'Tabellenblatt in Zieldatei setzen
Set wksZiel = wbZiel.Sheets("Jahreskonsolidierung")
With wbTag
.Activate
Set wksKonsolidierung = .Sheets("Konsolidierung")
End With
With wksKonsolidierung
.Range("B6:G6").Copy
With wksZiel
.Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
End With
End With
wksKonsolidierung.Activate
Set wbTag = Nothing: Set wbZiel = Nothing
Set wksKonsolidierung = Nothing: Set wksZiel = Nothing
End Sub