Excel 2003: automatisch Seitenumbruch einfügen

Computer: Software & Programmierung Office Software
1

Excel 2003:
Hallo ins Forum mit der Bitte um Hilfestellung:
ich möchte in einer alphabetisch sortierten Tabelle mit ca 10.000 Zeilen immer dann einen Seitenumbruch automatisch einfügen, wenn sich der Wert in Spalte A (NAme) und Vorname (Spalte B) ändert.
Von VBA habe ich keine Ahnung und eine passende Formel habe ich nicht gefunden (farbige Markierung der jeweils neuen Namen kriege ich gerade noch hin!)
Danke
petsch

2

ich möchte in einer alphabetisch sortierten Tabelle mit ca
10.000 Zeilen immer dann einen Seitenumbruch automatisch
einfügen, wenn sich der Wert in Spalte A (NAme) und Vorname
(Spalte B) ändert.

Hallo petsch,

Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schließen.
in Excel Alt+F8, das makro ausführen lassen.

Option Explicit
'
Sub Seitenumbruch()
Dim Zei As Long, Anz As Long
With Worksheets("Tabelle1")
 Anz = .Cells(Rows.Count, 1).End(xlUp).Row
 For Zei = 2 To Anz
 If .Cells(Zei, 1).Value .Cells(Zei - 1, 1).Value Then
 If .Cells(Zei, 2).Value .Cells(Zei - 1, 2).Value Then
 .HPageBreaks.Add .Rows(Zei)
 End If
 End If
 Next Zei
End With
End Sub

Gruß
Reinhard

3

Danke Reinhard,
es klappt wunderbar (auch wenn ich das Makro nicht nachvollziehen und daraus lernen kann)
Gruß
petsch