Letzte Zeile mit bestimmtem Wert finden

Hallo,
ich habe in einer Tabelle in Spalte 2 Ab Zeile 6 bis zur lngLastRow in 4 Schritten Werte stehen die Sortiert sind und sich in unterschiedlicher häufigkeit Wiederholen.
Ich würde gerne die Zeile ermitteln wo die jeweiligen Werte das letzte mal Vorkommen um dann darunter einen Zeilen Umbruch einzufügen, nur leider fehlt mir die idee wie ich das anstellen kann.
Dazu kommt noch da die Bereiche auch unterschiedlich groß sein können und sich ggf. über mehrere Bereiche erstrecken, das grundsätzlich alle 41 Zeilen ein Umbruch erfolgen muss, damit alles auf eine Seite passt
Anbei eine Beispielmappe, in dieser müsste ein Zeilenbruch nach Zeile 18,26 und 30 erfolgen.
Danke
MFG
Thomas
https://www.herber.de/bbs/user/156996.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub LeereZeilen_einführen() Dim LetzteZelle As Range Dim R As Long 'R wie Row With Worksheets("Tabelle1") 'Name anpassen Set LetzteZelle = .Cells(.Rows.Count, 2).End(xlUp) For R = LetzteZelle.Row - 3 To 6 Step -4 If .Cells(R, 2) "" Then If WorksheetFunction.CountIf(Range(.Cells(R + 1, 2), LetzteZelle), .Cells(R, 2).Value) = 0 Then .Rows(R + 1).Insert Next End With End Sub

Sub test() Dim Zelle As Range ActiveSheet.ResetAllPageBreaks Set Zelle = Range("B6") Do Set Zelle = Zelle.EntireColumn.Find( _ what:=Zelle.Value, _ lookat:=xlWhole, _ searchdirection:=xlPrevious) If Zelle.Offset(1, 0).Value = "" Then ActiveSheet.HPageBreaks.Add before:=Zelle.Offset(1, 0) Exit Do End If Set Zelle = Zelle.Offset(4, 0) ActiveSheet.HPageBreaks.Add before:=Zelle Loop End Sub

Hallo Daniel,
vielen Dank dafür, das scheint schon der richtige weg zu sein, hab das mal ein bisschen für mich angepasst, aber son ganz richtig sind die Umbrüche noch nicht, da teilweise dann fast leere Seiten generiert werden....
Ich hatte ja eingangs geschriben das es alle 40 Zeilen immer einen Umbruch geben sollte, nach ein bisschen testen ist es jetzt so das alle 48 Zeilen ein Umbruch sein soll, da das immer auf eine Seite passt.
Ich habe deinen Code dann jetzt so abgewandelt, aber wie gesagt er spuckt dann euch teilweise Seite mit nur 2 Zeilen aus, was unschön ist.


Dim rngUmbruch As Range
Set rngUmbruch = .Range("B6")
.ResetAllPageBreaks 'Alle Seiten Umbrüch werden gelöscht
For lngRow = 47 To lngLastRow - 59 Step 48
.HPageBreaks.Add Before:=Range("B" & lngRow + 1)
Next lngRow
Do
Set rngUmbruch = rngUmbruch.EntireColumn.Find(rngUmbruch.Value, , , xlWhole, , xlPrevious)
If rngUmbruch.Offset(1, 0).Value = "" Then
.HPageBreaks.Add Before:=rngUmbruch.Offset(2, 0)
End If
Set rngUmbruch = rngUmbruch.Offset(4, 0)
If rngUmbruch.Row >= lngLastRow - 59 Then Exit Do
Loop

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Tabelle1'
	B	C
5		9
6	Köln	21
7	s	29
8	d	33
9	g
10	Köln
11	s
12	d
13	g
14	Köln
15	s
16	d
17	g
18	Köln
19	s
20	d
21	g
22	München
23	s
24	d
25	g
26	München
27	s
28	d
29	g
30	Berlin
31	s
32	d
33	g
34

Zelle	Formel
C5	=ZEILE(B6)+3
C6	=WENNFEHLER(VERWEIS(9;1/(B$6:B94=INDEX(B:B;C5+1));ZEILE(B$9:B98))/(INDEX(B:B;C5+1)>"");"")

Letzte Zeile mit bestimmtem Wert finden

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Letzte Zeile mit bestimmtem Wert finden

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread