Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
604to608
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Seitenumbruch per vba nach Merkmalswechsel

Seitenumbruch per vba nach Merkmalswechsel
02.05.2005 10:17:01
Sebastian
Halloliebe Helfer,
ich habe eine Tabelle mit mehreren Spalten. In einer
Spalte stehen Mitarbeiternummern von 01-03 und weiter ...
(siehe Tabelle) https://www.herber.de/bbs/user/22045.xls
Jetzt möchte ich bei Nummernwechsel einen Seitenwechsel
einfügen lassen.
Vielen Dank schon mal für die Hilfe...
Sebastian

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenumbruch per vba nach Merkmalswechsel
02.05.2005 10:56:31
=Peter=
Hallo Sebastian,
ich habe mir deine Datei jetzt nicht heruntergeladen.
Folgendes Makro führt einen Seitenumbruch durch, wenn sich in der Spalte G der Wert ändert. Mit 'VBA gut' solltest du das auf deine Verhältnisse anpassen können.

Sub Seitenumbruch()
'Autor: unbekannt
Dim i As Integer
Dim strDummy1 As String
Dim strDummy2 As String
With ActiveSheet.ResetAllPageBreaks ' Alle Seitenumbrüche löschen
End With
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row 'For i =3 - Ab Zeile 3 wird Seitenumbruch gesetzt
strDummy1 = Cells(i, 7)  ' 7 = Spalte G wird geprüft
strDummy2 = Cells(i + 1, 7) '7 = Spalte G wird geprüft
If strDummy1 <> strDummy2 Then _
ActiveWindow.SelectedSheets. _
HPageBreaks.Add Before:=Cells(i + 1, 1)
Next i
End Sub

HTH
Gruß
Peter
Anzeige
AW: Seitenumbruch per vba nach Merkmalswechsel
02.05.2005 11:01:31
Sebastian
Hallo Peter,
das passt super ...
Vielen Dank für Deine Hilfe.
Sebastian
Danke für die Rückmeldung o.T.
02.05.2005 11:11:47
=Peter=
Gruß
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige