Automatisches Einfügen in andere Tabelle
27.06.2016 15:55:34
David
ich möchte die Daten aus einem Tabellenblatt in die Tabelle in einem anderen Tabellenblatt übernehmen. Soweit klappt das ganze auch, allerdings werden die Datensätze 56 Zeilen zu tief eingefügt. Die dazwischenliegenden Zeilen sind komplett leer! Ich bin daher etwas ratlos...
Mein Code lautet:
Sub KopiereBereich()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim lngZiel As Long
Dim Zaehler As Long
Zaehler = 1
Bereich = "B5:AJ1000"
Set Quelltab = ActiveWorkbook.Worksheets("Tabelle1")
Set Zieltab = ActiveWorkbook.Worksheets("Tabelle2")
With Zieltab
lngZiel = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
Quelltab.Range("B5:AJ200").Copy
.Range("B6" & lngZiel).PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
End Sub
Anstatt also in B8 in der zweiten Tabelle mit dem Einfügen zu beginnen, wird in B64 eingefügt.
Ich würde mich riesig über eine kurze Hilfe freuen! VBA scheint noch nicht so meine Stärke zu sein.
LG,
David