Ausdruck mehrerer Tabellen auf einer Seite.

Hallo Excel-Experten,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub tst() Dim lz As Long With Sheets("ausdruck") .UsedRange.Clear 'LZ1-Inhalt Sheets("Tabelle1").Range("A141:B154").Copy .Range("a1") 'LZ2-Inhalt lz = .Range("a65536").End(xlUp).Row + 2 Sheets("Tabelle2").Range("A129:B140").Copy .Range("a" & lz) End With End Sub Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Gert,
spricht etwas dagegen, das Blatt "ausdruck" einfach als Kopie der ersten Tabelle anzulegen? Dann werden auch die Textboxen mitkopiert und müssen nur noch positioniert werden:

Option Explicit
Sub tst1()
Dim lz As Long
Application.DisplayAlerts = False
On Error Resume Next
Sheets("ausdruck").Delete
On Error GoTo 0
Application.DisplayAlerts = True
'LZ1-Inhalt
'  statt: Sheets("Tabelle1").Range("A141:B154").Copy .Range("a1")
Sheets("Tabelle1").Copy before:=Sheets(1)
With ActiveSheet
.Name = "ausdruck"
Range(Rows(155), Rows(Rows.Count)).Delete
Range(Rows(1), Rows(140)).Delete
Range(Columns(3), Columns(Columns.Count)).Delete
'LZ2-Inhalt
lz = Range("a65536").End(xlUp).Row + 2
Sheets("Tabelle2").Range("A129:B140").Copy .Range("a" & lz)
'LZ2-Inhalt
.Shapes(1).Top = Rows(2).Top
.Shapes(2).Top = Rows(lz + 1).Top
.Shapes(1).Left = Columns(3).Left + 10
.Shapes(2).Left = Columns(3).Left + 10
End With
Cells(1, 1).Select
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

Ausdruck mehrerer Tabellen auf einer Seite.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Ausdruck mehrerer Tabellen auf einer Seite.

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread