Dynamischer Seitenumbruch bei Bedingung in Spalte A

26.03.2025 09:15:56

hkoepp63

Hallo Zusammen,
ich versuche einen sinnvollen Dynamischen Seitenumbruch hinzubekommen.
In der Tabelle werden je nach Anzahl der Muffen, die entsprechenden Zeilen ausgeblendet.
Damit die Seitenumbrüche vernünftig sind, sollen der Code in Spalte A suchen, ob hier ein "xx" steht.
Wenn ja, soll er immer nach dem "xx" umbrechen. Dies aber so, daß es trotzdem Seiten bleiben, und nicht jede Gruppe eine Seite abbildet.
Ich habe gestern schon den halben Tag verschiedene Codes ausprobiert. Alle haben nur bei den ersten beiden Seiten funktioniert.

Das Beispiel habe ich hochgeladen:
https://www.herber.de/bbs/user/176428.xlsm

Vielen Dank im Voraus für Eure Hilfe.

Beste Grüße
Hinnerk

AW: Dynamischer Seitenumbruch bei Bedingung in Spalte A

26.03.2025 10:46:51

daniel

Hi
hebe bitte in den Beispieldateien, die du hochlädst, alle Schutzfunktionen mit Passwort auf, sonst können wir da nicht rein schauen und dir nicht helfen.
Gruß Daniel

AW: Dynamischer Seitenumbruch bei Bedingung in Spalte A

26.03.2025 10:54:21

hkoepp63

Hallo Daniel,
sorry, ich dachte ich hätte alles rausgenommen.
Stimmt der VBA Teil war gesperrt. :-(

Hier noch einmal der Upload:
https://www.herber.de/bbs/user/176430.xlsm

Vielen Dank.
Grüße
Hinnerk

AW: Dynamischer Seitenumbruch bei Bedingung in Spalte A

26.03.2025 14:58:54

daniel

naja, etwas Futter sollte die Beispieldatei schon haben.
wenn sowieso nur eine Seite vorhanden ist, dann kann man da schlecht mit den Seitenumbrüchen was machen.
du solltest die Datei so aufbereiten, dass da schon ein paar Seiten vorhanden sind, so dass du zeigen kannst:
a) wo setzt das System die Seitenumbrüche
b) wo hättest du gerne die Seitenumbrüche
das fehlt halt noch in der Beispieldatei.

AW: Dynamischer Seitenumbruch bei Bedingung in Spalte A

26.03.2025 17:09:55

hkoepp63

Wenn Du bei der Anzahl 8, 9 oder 10 eingibst, dann siehst Du die Zeilenumbrüche.
Bei 3 - 8 Muffen sind es 2 Seiten uns der 1. Umbruch sollte nach Zeile 37 sein.
Bei 9 Muffen sind es 3 Seiten, der 1. Umbruch sollte nach Zeile 37 und der 2. Umbruch ist Mitten im Trafofeld nach Zeile 97, sollte nach Zeile 85 in diesem Fall sein.
Bei 10 Muffen sind es 3 Seiten, der 1. Umbruch sollte nach Zeile 37 und der 2. Umbruch ist mitten in der 10. Muffe nach Zeile 89, sollte nach Zeile 85 in diesem Fall sein.
Ich habe in jede Zeile in Spalte A ein Kennzeichen "xx" gesetzt.
Die Funktionliät des Beispieles ist in vollem Umfang gegeben. Du musst nur die Zahl der Muffen (mit grünem Hintergrund B6) ändern.

Nochmals Vielen Dank für Eure Unterstützung.
Beste Grüße
Hinnerk

AW: Dynamischer Seitenumbruch bei Bedingung in Spalte A

26.03.2025 18:21:01

daniel

Anzah?
wo ist Anzahl?
wir kennen deine Datei und deine Aufgabe nicht. Du musst das schon beschreiben.
Wenn ich das alles selber rausfinden soll, würde ich dir gerne meine Zeit in Rechnung stellen.
Da du das aber wahrscheinlich nicht machen willst, nimm uns bitte so viel Arbeit ab wie möglich.

ansonsten, probier mals das:
der Code ermittelt im ersten Schritt, wie viel von eine Tabelle auf ein Blatt Papier passt und fügt dann die Seitenwechsel ein, dabei wird dann ein fälliger Seitenwechsel durch die innere Do-Schleife nach oben verschoben, bis er auf den genannten Text in Spalte A trifft:

Sub test()

Dim z As Long

Dim Seitenhöhe As Double

Dim LetzterSeitenwechsel As Double



ActiveSheet.ResetAllPageBreaks

Seitenhöhe = ActiveSheet.HPageBreaks.Item(1).Location.Top



For z = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

    If Cells(z, 1).Top >= LetzterSeitenwechsel + Seitenhöhe Then

        Do Until Cells(z - 1, 1).Value = "xx"

            z = z - 1

        Loop

        ActiveSheet.HPageBreaks.Add Rows(z)

        LetzterSeitenwechsel = Rows(z).Top

    End If

Next



End Sub

Gruß Daniel

AW: Dynamischer Seitenumbruch bei Bedingung in Spalte A

27.03.2025 09:44:08

hkoepp63

Hallo Daniel,
Danke für Deine Lösung. Klappt auf Anhieb hervorragend.

Du hast sicherlich Recht, ich hätte es ausführlicher beschrieben können. Mea Culpa.
Manchmal setzt man Dinge voraus, ohne darüber nachzudenken, daß Dein Gegenüber, ja gar nicht nachvollziehen kann, was man erreichen will.
Trotz allem finde ich es Wichtig, daß man höflich und respektvoll miteineander umgeht.
Die Leute die hier um Hilfe bitten, haben in den meisten Fällen einen Bruchteil der Kenntnisse, die ihr Profis habt. Müssen aber aus den verschiedensten Hintergründen eine Lösung für ihre Arbeit bzw. Probleme finden...

Nachmals herzlichen Dank für Deine Hilfe und auch an die anderen Profis die Leien wie mir täglich helfen. Danke auch herzlichen Dank an Hans Werner Herber für die Bereitstellung dieses Forums.

Beste Grüße und eine schöne Woche
Hinnerk

AW: Dynamischer Seitenumbruch bei Bedingung in Spalte A

27.03.2025 09:50:30

hkoepp63

Hallo Daniel,
zu früh gefreut. Der Seitenumbruch funktioniert super wenn ich die Anzahl erhöhe. Wenn ich aber zum Beispiel von 5 auf 3 Muffen reduziere, dann habe ich nur nich eine Seite und bekommen einen Debug fehler:

Seitenhöhe = ActiveSheet.HPageBreaks.Item(1).Location.Top

Kannst Du das bitte noch einmal prüfen.

Vielen Dank für Deine Mühen. Gern PM.
Grüße
Hinnerk

Dynamischer Seitenumbruch bei Bedingung in Spalte A

Forumthread: Dynamischer Seitenumbruch bei Bedingung in Spalte A

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Dynamischer Seitenumbruch bei Bedingung in Spalte A

Forumthread: Dynamischer Seitenumbruch bei Bedingung in Spalte A

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread