Daten in intelligente Tabelle kopieren
16.10.2020 22:21:10
whats
ich möchte Daten aus mehreren Bereichen von versch. Tabellenblättern in eine anfänglich leere intelligente Tabelle auf einem anderen Tabellenblatt kopieren. Excel sagt: Es wird mind. ein Datensatz benötigt. D.h. die Tabelle besteht aus einer Überschrift und einer leeren Zeile (Datensatz). Wenn ich in diesem Tabellenblatt die letzte Zeile ermittle, bekomme ich diesen leeren Datensatz ausgewiesen. Jedoch möchte ich immer in die darauf folgende freie Zeile meine Daten eintragen (letzte Zeile +1). Damit würde diese leere Zeile übersprungen und die Daten außerhalb der Tabelle eingetragen. Wie kann ich aus mehreren Bereichen Daten in diese Tabelle kopieren ohne dass eine Zeile frei bleibt oder der Inhalt der letzten Zeile gelöscht wird.
Anbei noch eine Beispieldatei und der Code dazu.
https://www.herber.de/bbs/user/140920.xlsm
Danke vorab für eure Hilfe.
whats up
Option Explicit
Sub Transfer()
Application.ScreenUpdating = False
Dim SourceLastRow As Integer
Dim DestLastRow As Integer
SourceLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
DestLastRow = Worksheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.Range("A2:E" & SourceLastRow).Copy
Sheets("Tabelle1").Range("A" & DestLastRow).PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Application.ScreenUpdating = True
End Sub
Anzeige