18.08.2023, 19:19
Ich habe 56 identische Tabellenblätter mit Zeilen von A3:N33
Diese Daten, will ich in ein Zentrales Tabellenblatt als Jahresübersicht kopieren um daraus eine pdf zu erstellen.
Code:
Wie kann ich die Sache automatisieren, dass er von Zeile zu Zeile automatisch kopiert
und danach das nächste Tabellenblatt anfängt zu kopieren?
Die Anordnung müsste allerdings von einer Zeile auf 4 zeilen bestehen bleiben, um es in A4 darstellen zu können!
Danke für Eure Hilfe
Diese Daten, will ich in ein Zentrales Tabellenblatt als Jahresübersicht kopieren um daraus eine pdf zu erstellen.
Code:
Code:
Sub zellkopie()
Dim lngLetzte As Long
lngLetzte = Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Row
If lngLetzte = "1" Then
Sheets("Jahresübersicht").Cells(lngLetzte + 1, 1).Value = "KW 1_NJ " & Sheets("Übersicht").Range("E1").Value 'Jahr
Sheets("Jahresübersicht").Range("A2").Font.Color = vbRed
End If
lngLetzte = Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Row + 2
Sheets("Jahresübersicht").Cells(lngLetzte, 1).Value = "Auftragsnummer:" 'Auftragsnummer
Sheets("Jahresübersicht").Cells(lngLetzte, 2).Value = Sheets("1_NJ").Range("B3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 2).Font.Color = vbBlue
Sheets("Jahresübersicht").Cells(lngLetzte, 4).Value = "Datum:" 'Datum Format((Sheets("1_NJ").Range("A2").Value), "dd.mm.yyyy")
Sheets("Jahresübersicht").Cells(lngLetzte, 5).Value = Format((Sheets("1_NJ").Range("A3").Value), "dd.mm.yyyy")
Sheets("Jahresübersicht").Cells(lngLetzte, 7).Value = "Destination:" 'Land
Sheets("Jahresübersicht").Cells(lngLetzte, 8).Value = Sheets("1_NJ").Range("C3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 10).Value = "Produkt:" 'Produkt
Sheets("Jahresübersicht").Cells(lngLetzte, 11).Value = Sheets("1_NJ").Range("D3").Value
lngLetzte = Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Row + 1 '2. Zeile
Sheets("Jahresübersicht").Cells(lngLetzte, 1).Value = "Menge:" 'Menge
Sheets("Jahresübersicht").Cells(lngLetzte, 2).Value = Sheets("1_NJ").Range("E3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 4).Value = "Charge:" 'Charge
Sheets("Jahresübersicht").Cells(lngLetzte, 5).Value = Sheets("1_NJ").Range("F3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 7).Value = "Fremd/Pentol:" 'Fremd/Pentol
Sheets("Jahresübersicht").Cells(lngLetzte, 8).Value = Sheets("1_NJ").Range("G3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 10).Value = "LKW Fremd:" 'LKW Fremd
Sheets("Jahresübersicht").Cells(lngLetzte, 11).Value = Sheets("1_NJ").Range("H3").Value
lngLetzte = Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Row + 1 '3. Zeile
Sheets("Jahresübersicht").Cells(lngLetzte, 1).Value = "Containernummer:" 'Containernummer
Sheets("Jahresübersicht").Cells(lngLetzte, 2).Value = Sheets("1_NJ").Range("I3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 4).Value = "Plombennummer:" 'Plombennummer
Sheets("Jahresübersicht").Cells(lngLetzte, 5).Value = Sheets("1_NJ").Range("J3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 7).Value = "Zollplombe:" 'Zollplombe
Sheets("Jahresübersicht").Cells(lngLetzte, 8).Value = Sheets("1_NJ").Range("K3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 10).Value = "Schiff:" 'Schiff
Sheets("Jahresübersicht").Cells(lngLetzte, 11).Value = Sheets("1_NJ").Range("L3").Value
lngLetzte = Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Row + 1 '4. Zeile
Sheets("Jahresübersicht").Cells(lngLetzte, 1).Value = "ETA:" 'ETA
Sheets("Jahresübersicht").Cells(lngLetzte, 2).Value = Sheets("1_NJ").Range("M3").Value
Sheets("Jahresübersicht").Cells(lngLetzte, 4).Value = "Status:" 'Status
Sheets("Jahresübersicht").Cells(lngLetzte, 5).Value = Sheets("1_NJ").Range("N3").Value
lngLetzte = Sheets("Jahresübersicht").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Jahresübersicht").Range("A2:N2000").HorizontalAlignment = xlLeft 'Zellenausrichtung
End Sub
Wie kann ich die Sache automatisieren, dass er von Zeile zu Zeile automatisch kopiert
und danach das nächste Tabellenblatt anfängt zu kopieren?
Die Anordnung müsste allerdings von einer Zeile auf 4 zeilen bestehen bleiben, um es in A4 darstellen zu können!
Danke für Eure Hilfe