Seitenumbruch nach best. Zellenwert

Forumthread: Seitenumbruch nach best. Zellenwert
5 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Seitenumbruch nach best. Zellenwert

20.05.2009 15:09:38

Jonathan

Hallo zusammen,
folgende Ausgangssituation:
In der Spalte E befinden sich die die Werte A und B. Die Anzahl beider Werte variiert. Die Spalte ist sortiert.
Ich möchte nun durch ein Makro erreichen, dass nach dem letzten Wert A bzw. vor dem ersten Wert B ein Seitenumbruch eingefügt wird.
Ist dies möglich? Wenn ja, wie?
Gruß und vielen Dank
Jonathan

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Seitenumbruch nach best. Zellenwert

20.05.2009 15:27:36

Rudi
AW: Seitenumbruch nach best. Zellenwert

20.05.2009 18:14:35

Jonathan
@ Rudi: Lösung?

20.05.2009 18:52:05

Peter
AW: @ Rudi: Lösung?

20.05.2009 22:37:51

Rudi
Rudi: Das klappt prima und

21.05.2009 00:06:26

Peter

AW: Seitenumbruch nach best. Zellenwert

20.05.2009 15:27:36

Rudi

Hallo,


Sub tt()
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
.ResetAllPageBreaks
.HPageBreaks.Add .Cells(Application.Match("B", .Columns(5), 0), 1)
End With
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Gruß
Rudi

AW: Seitenumbruch nach best. Zellenwert

20.05.2009 18:14:35

Jonathan

Hallo Rudi,
wunderbar, vielen Dank.
Funktioniert einwandfrei.
Gruß
Jonathan

@ Rudi: Lösung?

20.05.2009 18:52:05

Peter

Hallo Rudi,
würde Dich auch gerne um eine Lösung bitten. Wie müsste man den Code denn anpassen, wenn bei jeder Wertänderung ein Zeilenumbruch erfolgen soll?
Problem:
Ich habe 11.000 Zeilenträge (Kunden), die an bestimmte Gruppen z.B. AT1M usw. verteilt werden müssen. Und jede Gruppe soll natürlich nur die Kunen bekommen, für die sie zuständig sind.
Ich sage schon einmal danke!
Gruß Peter
PS: Und sorry, dass ich diesen Beitrag nutze.

AW: @ Rudi: Lösung?

20.05.2009 22:37:51

Rudi

Hallo,
prinzipiell so:


Sub tt()
Dim i As Long
Application.ScreenUpdating = False
ActiveWindow.View = xlPageBreakPreview
With ActiveSheet
.ResetAllPageBreaks
For i = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(i, 1)  .Cells(i - 1, 1) Then
.HPageBreaks.Add .Cells(i, 1)
End If
Next i
End With
ActiveWindow.View = xlNormalView
Application.ScreenUpdating = True
End Sub

Das dauert aber
Gruß
Rudi