Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seitenumbruch per Makro funktioniert leider nicht

Seitenumbruch per Makro funktioniert leider nicht
23.08.2013 15:44:08
claus
Ich möchte dass immer vor der Spalte in der "Hier" steht ein Seitenumbruch eingefügt wird. Der Wert "Hier" muss nur in der Zeile 1 gesucht werden.
Ich habe versucht diesen Makro zu erstellen. Habe es aber leider nicht hinbekommen.
Bitte beachte, dass es sich hier um Vertikale Seitenumbrüche handelt.
Danke!
Sub Test5_Seitenumbruch_einfuegen()
Dim lngColumn As Long
For lngColumn = 1 To ActiveSheet.Cells(1, .Columns.Count).End(xlToLeft).Column
If Cells(1, .Columns.Count) = "Hier" Then _
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Cells(1, lngColumn + 1)
Next
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch per Makro funktioniert leider nicht
25.08.2013 12:36:17
fcs
Hallo Claus,
mit folgenden Anpassungen funktioniert es
Gruß Franz
Sub Test5_Seitenumbruch_einfuegen()
Dim lngColumn As Long
With ActiveSheet
For lngColumn = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
If LCase(.Cells(1, lngColumn)) = "hier" Then
.VPageBreaks.Add Before:=.Cells(1, lngColumn)
End If
Next
End With
End Sub

Anzeige

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige