Füge alle n etwas ein solange Text in Zellen

Forumthread: Füge alle n etwas ein solange Text in Zellen

11.11.2024 15:52:52

SonjaT

Hallo,
ich habe ein Excel Dokument, in dem ich immer nach 24 Zeilen eine Kopfzeile einfügen möchte. Sie besteht aus 3 Zeilen und den Spalten A bis I.
Oberhalb dem eingefügten möchte ich eine Leerzeile haben.
In den einzelnen Zeilen der Kopfzeile soll der Text im Prinzip immer gleich bleiben, aber daneben noch eine gewisse Bezugnahme stattfinden, wie in der Originaldatei zu erkennen ist.
Leider bekomme ich es nicht hin, diese Kopfzeile so oft einzufügen, wie auch Zahlen vorhanden sind. D. h. immer nach 24 Orginaldatensätzen die Kopfzeile und dann eine Leerzeile Vielleicht kann mir jemand helfen.
Ich bin heillos überfordert.
Die Datei ist hier zu finden: https://www.herber.de/bbs/user/173521.xlsx

Danke

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Page-SetUp: Kopfzeilen

11.11.2024 16:14:51

Fennek
AW: Page-SetUp: Kopfzeilen

11.11.2024 16:26:48

SonjaT
AW: Page-SetUp: Kopfzeilen

11.11.2024 19:40:06

Piet
AW: Page-SetUp: Kopfzeilen

11.11.2024 21:56:13

SonjaT
AW: Page-SetUp: Kopfzeilen

12.11.2024 09:45:12

MCO
AW: Page-SetUp: Kopfzeilen

12.11.2024 12:48:34

SonjaT
AW: Page-SetUp: Kopfzeilen

12.11.2024 13:21:59

MCO
AW: Page-SetUp: Kopfzeilen

12.11.2024 14:49:58

SonjaT
AW: Page-SetUp: Kopfzeilen

13.11.2024 09:14:03

MCO
AW: Page-SetUp: Kopfzeilen

13.11.2024 19:05:35

SonjaT

AW: Page-SetUp: Kopfzeilen

11.11.2024 16:14:51

Fennek

Hallo,

für den Ausdruck kann eine oder mehrere Zeilen als Kopf-Zeile(n) für jede Seite festgelegt werden.

mfg

AW: Page-SetUp: Kopfzeilen

11.11.2024 16:26:48

SonjaT

Hallo,

danke für die Info, dass muss hingegen später in andere Dokumente eingefügt werden und die Bezugnahme vorhanden sein, wie mache ich das da?
Man lernt ja nie aus.

Danke

AW: Page-SetUp: Kopfzeilen

11.11.2024 19:40:06

Piet

Hallo Sonja

in dieser Beispieldatei findest du einen Button.
Wenn du ihn anklickst fragt er wie viele Kopien erstellt werden sollen.
Die werden unten angefügt. Die Kategorie und Tage musst du bitte von Hand ändern.
Die Formel habe ich umgestellt, sonst gab es beim kopieren Fehlermeldung #Name
Brauchst du für die Tage 24 Zeilen?? Reicht da nicht eine Zeile aus für die formel??
https://www.herber.de/bbs/user/173531.xlsm

mfg Piet

AW: Page-SetUp: Kopfzeilen

11.11.2024 21:56:13

SonjaT

Hallo,
erstmal vielen Dank.
Der Ansatz ist gut, aber jetzt sind ja die Inhalte, die ich im ersten Blatt im Prinzip in den einzelnen Zellen stehen habe, leider nicht im zweiten Blatt, was eben wichtig wäre.
Die Werte sind im Prinzip außer bei Schichtdauer und Anzahl Tage überall unterschiedlich und ich hätte unterhalb der "grauen" Bereiche halt gerne genau den Inhalt von den Zeilen 2-25 aus dem Blatt "Rohdaten" in den dazugehörigen Zellen in den Zeilen 4 bis 26 in Blatt Wunschdesign und das eben so fortgesetzt in allen Zellen.
Vielleicht kann mir da nochmal jemand helfen?

Danke

AW: Page-SetUp: Kopfzeilen

12.11.2024 09:45:12

MCO

Hallo Sonja!

Folgender Code macht was du willst. Die Bezüge und Formeln hab ich dabei nicht geändert.
Schau mal ob du klarkommst:



Sub Daten_aufbereiten()



    Dim kopf_rng As Range

    Dim data_row As Single

    Dim data_max_row As Single

    

    Set kopf_rng = Range("1:3")

    Set sh_dat = Sheets("Rohdaten")

    data_max_row = sh_dat.Range("B" & Rows.Count).End(xlUp).Row

    

    For data_row = 2 To data_max_row Step 23



        Set cpy_rng = sh_dat.Range("A" & data_row & ":K" & data_row + 22)

        

        max_row = Range("B" & Rows.Count).End(xlUp).Row 'letze Zeile  z. Einfügen

        If data_row > 2 Then kopf_rng.Copy Range("A" & max_row + 2) 'Kopfdaten kopieren / einfügen

        cpy_rng.Copy Range("A" & Range("B" & Rows.Count).End(xlUp).Row + 2)   'Daten kopieren / einfügen

        

    Next data_row

End Sub

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

Gruß, MCO

AW: Page-SetUp: Kopfzeilen

12.11.2024 12:48:34

SonjaT

Hallo,
herzlichen Dank an dieser Stelle schon einmal.
Trotzdem noch 2 Fragen, Zeile 4, 33, 62 usw. sind jetzt leerzeilen, wie kann ich den Code abändern, dass das Problem nicht mehr auftritt?
Dann sollte ich es soweit haben.

Danke

AW: Page-SetUp: Kopfzeilen

12.11.2024 13:21:59

MCO

Hey,

die beiden Zeilen

If data_row > 2 Then kopf_rng.Copy Range("A" & max_row + 2) 'Kopfdaten kopieren / einfügen

 cpy_rng.Copy Range("A" & Range("B" & Rows.Count).End(xlUp).Row + 2)

stellen jeweils den Versatz zur letzten Zeile her. Die "+2" sind dabei der Abstand, also 1 Leerzeile. 1x für den kopf u. 1x für die Daten
Ändere die 2 in 1 und alles ist wieder gut.

Gruß, MCO

AW: Page-SetUp: Kopfzeilen

12.11.2024 14:49:58

SonjaT

Danke, Danke,

jetzt stellt sich mir jedoch noch immer eine ganz dumme Frage, warum er die letzte Zeile im Bericht immer auch in die erste Zeile des neuen Berichts schreibt und wie ich das verhindern kann. Auch hier habe ich den Fehler noch nicht gefunden.
Datei ist hier: https://www.herber.de/bbs/user/173545.xlsm

Zudem habe ich den "Fehler" mit der leeren Zeile 4 usw. noch nicht behoben, aber das ist wahrscheinlich das kleinere Problem.

Grüße und einen so herzlichen Dank

AW: Page-SetUp: Kopfzeilen

13.11.2024 09:14:03

MCO

Hallo Sonja!

Wie beschrieben hab ich für die Leerzeile den Versatz des Datensatzes um 1 herabgesetzt.
Für die Mengen an Datensätzen hab ich die Schleife um 1 heraufgesetzt.

Schau mal, ob es so passt.

Sub Daten_aufbereiten()



    Dim kopf_rng As Range

    Dim data_row As Single

    Dim data_max_row As Single

    

    Set kopf_rng = Range("1:3")

    Set sh_dat = Sheets("Rohdaten")

    data_max_row = sh_dat.Range("B" & Rows.Count).End(xlUp).Row

    

    For data_row = 2 To data_max_row Step 24

        Set cpy_rng = sh_dat.Range("A" & data_row & ":K" & data_row + 23)

        

        max_row = Range("B" & Rows.Count).End(xlUp).Row 'letze Zeile  z. Einfügen

        If data_row > 2 Then kopf_rng.Copy Range("A" & max_row + 2) 'Kopfdaten kopieren / einfügen

        cpy_rng.Copy Range("A" & Range("B" & Rows.Count).End(xlUp).Row + 1)  'Daten kopieren / einfügen

        

    Next data_row

End Sub

Gruß, MCO

AW: Page-SetUp: Kopfzeilen

13.11.2024 19:05:35

SonjaT

Ganz ganz lieben Dank

Füge alle n etwas ein solange Text in Zellen

Forumthread: Füge alle n etwas ein solange Text in Zellen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread