Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seitenumbruch automtisch einfügen

Seitenumbruch automtisch einfügen
05.10.2008 11:01:23
Alex
Folgendes Problem:
Wenn in Spalte M der Wert 1 steht möchte ich einen Seitumbruch haben.
Wie kann ich das machen?
vielen Dank für Deine Hilfe.
Gruß
Alex

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch automtisch einfügen
05.10.2008 11:18:04
Jürgen_H
Hallo Alex,
hilft dir das weiter?

Public Sub Seitenumbruch()
'Code für ein allgemeines Modul
Dim firstAddress
Dim Zelle
ActiveSheet.ResetAllPageBreaks
With Columns("M")
Set Zelle = .Find(1, LookIn:=xlValues, lookat:=xlWhole)
If Not Zelle Is Nothing Then
firstAddress = Zelle.Address
Do
With ActiveSheet
.HPageBreaks.Add before:=Zelle.Offset(1, 0)
End With
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address  firstAddress
End If
End With
End Sub


Gruß Jürgen

AW: Seitenumbruch automtisch einfügen
05.10.2008 12:15:28
Alex
Danke Jürgen,
hat super geklappt.
Gruß
Alex
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige