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

Letzte Zeile des Druckbereichs finden

Letzte Zeile des Druckbereichs finden
12.01.2018 10:54:41
Susi
Hallo,
ich lasse mir in meinem aktuellen Projekt jeweils die erste Zeile einer neuen Seite mit folgendem Makro ausgeben:
For Each rng In wsVorlage.Range("A25:A" & j)
If rng.EntireRow.PageBreak xlPageBreakNone Then
i = rng.Row
End If
Next rng
Das funktioniert auch wunderbar, nur kann ich mir dadurch leider nicht die letzte Zeile, nach der der Druckbereich endet ausgeben lassen. Da ich auf jede Seite aber in die letzte Zeile quasi meine Fußnote kopieren muss, brauche ich natürlich auch die allerletzte Zeile des Druckbereichs.
Und nein, über die Fußnote von Excel geht es nicht, weil das einfach ein Krampf ist :)
Ich hoffe sehr dass ihr mir helfen könnt, vielen Dank schon mal im Voraus.

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

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile des Druckbereichs finden
12.01.2018 11:22:55
Burak
Hab es mal leicht umgeschrieben damit ich es ausführen und testen konnte.
Sub a()
For Each Rng In Range("A1:A300")
If Rng.EntireRow.PageBreak  xlPageBreakNone Then
i = Rng.Row
Range("A" & i).Value = "Start"
Range("A" & i - 1).Value = "Ende"
End If
Next Rng
End Sub

AW: Letzte Zeile des Druckbereichs finden
12.01.2018 11:36:45
Susi
Dankeschön!
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige