Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
280to284
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
280to284
280to284
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenwechsel nach letztem Datensatz

Seitenwechsel nach letztem Datensatz
18.07.2003 08:13:41
Oliver
Hallo,
folgendes Problem: ich habe eine liste, wo in der ersten Spalte mehrmals ein gleicher Wert steht. Ich möchte nun nach dem letzten Wert einen Seitenwechsel automatisch durchführen, vor dem neuen Wert. zB 150 Zeilen mit Wert "01", dann kommt "02". Vor dem ersten Wert von "02" brauche ich den Seitenwechsel.
Soviel habe ich schon aus dem Forum herausgefunden:

Sub seitenwechsel()
Dim zaehler
For zaehler = 1 To 65536 'Wobei '65536' die maximale Tabellengröße ist
If Cells(zaehler, 1) = "01" Then
Cells(zaehler, 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next zaehler
End Sub

Vielen Dank für eure Hilfe
Oliver

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

Betreff
Datum
Anwender
Anzeige
AW: Seitenwechsel nach letztem Datensatz
18.07.2003 08:36:00
Stephan

Sub seitenwechsel()
Dim zaehler
Dim vor As Integer
zaehler = 1
Do While Cells(zaehler, 1).Value <> ""
vor = zaehler + 1
If Cells(zaehler, 1).Value <> Cells(vor, 1).Value Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(vor, 1)
End If
zaehler = zaehler + 1
Loop
End Sub


AW: Seitenwechsel nach letztem Datensatz
18.07.2003 09:53:55
Oliver
Danke Stephan,
funktioniert perfekt.
Oliver

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige