"S" (warum können Leute ihre E-Mail nicht mit mindestens einem Vornamen unterschreiben?) Schrieb die heutige Frage.
Ich versuche, Seitenumbrüche automatisch in eine Tabelle in Excel einzufügen. Ich habe versucht, Daten - Zwischensummen, aber das zwingt mich, eine Summe oder eine Anzahl hinzuzufügen. Ich möchte keine Zwischensummen, nur einen Seitenumbruch, wenn sich der Wert in Spalte A ändert.
Dieses Makro löst das Problem. Aus irgendeinem Grund dauert die Ausführung von Makros, die Seitenumbrüche oder Seiteneinstellungen ändern, lange, aber dies ist sicherlich schneller als die manuelle Ausführung des Vorgangs. Das Makro geht davon aus, dass sich Ihre Daten in Spalte A befinden und in Zeile 2 beginnen.
Sub AddBreaks() StartRow = 2 FinalRow = Range("A65536").End(xlUp).Row LastVal = Cells(StartRow, 1).Value For i = StartRow To FinalRow ThisVal = Cells(i, 1).Value If Not ThisVal = LastVal Then ActiveSheet.HPageBreaks.Add _ before:=Cells(i, 1) End If LastVal = ThisVal Next i End Sub
