Seitenüberschrift erstellen

Forumthread: Seitenüberschrift erstellen

24.01.2025 12:04:32

Swen Kay

https://www.herber.de/bbs/user/175096.xlsm

Hallo liebe Excel Gemeinde,

ich habe einen Code erzeugt der einfach für jede Zeile in Tabelle 3 in Tabelle 4 eine "Überschrift" generiert.
Wir nutzen es beruflich um Lieferscheine mit den entsprechenden Daten (Sendungsnummer, Barcode, Leitgebiet) zu beschriften, damit wir sie einscannen können.
In Modul 2 ist der entsprechende Code vermerkt, der ohne Probleme und in der gewünschten Art funktioniert.

Jetzt ist es aber manchmal so, dass der Lieferschein auch mal 2,3,4 Seiten hat.
Falls das so sein sollte, haben wir bisher umständlich diese Seiten vorher aussortiert.

Ich möchte nun in Tabelle 3 eine Seitenanzahl eingeben und er soll mir entsprechend eine 2. Überschrift in Tabelle 4 erstellen nur mit Sendungsnummer und Leitgebiet.
Ich hoffe das war verständlich.
Zur Vereinfachung hier ein kurzes Beispiel:
Tabelle 3
Sendungsnummer Seitenanzahl Barcode Leitgebiet
12345678 1 IIIIIIIIIIII KHX-999
87654321 2 IIIIIIIIIIII ZQM-999
45671234 1 IIIIIIIIIIII MUC-999

Tabelle 4
12345678 IIIIIIIIIIIIIII KHX-999
neue Seite
87654321 IIIIIIIIIIIIIII ZQM-999
neue Seite
87654321 ZQM-999
neue Seite
45671234 IIIIIIIIIIIIIIIII MUC-999

ich danke schonmal für eure Hilfe, ich habe bereits in Modul 3 ein solchen Code angefangen aber dann doch gescheitert.
Beste Grüße Euer Kamikaatze

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Seitenüberschrift erstellen

24.01.2025 12:41:30

UweD

AW: Seitenüberschrift erstellen

24.01.2025 12:41:30

UweD

Hallo

so?

Sub Kopieren()

    Dim Zeile As Long

    Dim MaxZeile As Long

    Dim n As Long

    

    'Reset

    Sheets("Tabelle4").Cells.Clear

    

    With Tabelle3

        ZeileMax = InputBox("Anzahl Seiten", "Eingabe", 2)

        n = 1

        

        For Zeile = 2 To ZeileMax + 1

            If .Cells(Zeile, 1).Value > "" Then

                .Rows(Zeile).Copy Destination:=Tabelle4.Rows(n)

                n = n + 29

            End If

        

        Next Zeile

    End With

    Sheets("Tabelle4").Select

    Application.CommandBars.ExecuteMso "PrintPreviewAndPrint"

End Sub

LG UweD

Forumthread: Seitenüberschrift erstellen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread