ich möchte mit nachfolgendem Code den Inhalt von zwei Tabellen kopieren
und in der dritten Tabelle (Ausdruck) ausdrucken.
Es werden jedoch in Ausdruck die Felder überschrieben und zwar vom wert des
zweiten LZ-Inhalts.
In der Ausdruck-Tabelle sollte zwischen dem Inhalt LZ1 und LZ2 jeweils eine
Leerzeile sein.
Vor der Kopiererei sollte die Tabelle (Audruck) komplett geleert werden
'LZ1-Inhalt
lz = Sheets("tabelle1").Range("a65536").End(xlUp).Row + 1
Sheets("ausdruck").Range("A141:B154").Copy _
Sheets("tabelle1").Range("a" & lz)
'LZ2-Inhalt
lz = Sheets("tabelle1").Range("a65536").End(xlUp).Row + 1
Sheets("ausdruck").Range("A129:B140").Copy _
Sheets("tabelle1").Range("a" & lz)
Wo ist in meiner Funktion der Fehler?
Viele Grüsse
Gert