Ich möchte in Tabelle "Basis" unterhalb des letzten Eintrages, den Dateninhalt (ab Zeile 2) von Tabelle "Berechnung" hinzufügen. Datenstruktur beider Tabellen ist identisch.
Mit den angefügten Code erhalte ich Laufzeitenfehler 13 "Typen unverträglich"
Was mache ich falsch?
Liebe Gruess
Richi
-------------------------
Sub anfuegen()
Dim Loletzte As Long
With Sheets("Basis")
Loletzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp). _
Row, .Rows.Count)
.Rows(Loletzte).Copy Sheets("Berchnung").Rows(Sheets("Berechnung").UsedRange. _
SpecialCells(xlCellTypeLastCell).Row + 1) = 1
End With
End Sub