Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Anzahl Zeilen bis zum nächsten Zeilenumbruch

Anzahl Zeilen bis zum nächsten Zeilenumbruch
holger
Hallo an Alle,
bin bei meinem Problem schon weiter gekommen.
'ActiveCell.EntireColumn.Cells(neuZeile3, 11).Value = "=SUBTOTAL(9,R[1]C:R[20]C)"
schreibt mir eine Teilsumme in eine Zelle, Summe von der aktiven Zeile plus 20 Zeilen.
Nun ist aber die Anzahl der Zeilen immer anders. Der einzige Anhaltspunkt wäre ein Zeilenumbruch. Dh. ich müsste die Anzahl der Zeilen von der aktiven Zeile bis zum nächsten Zeilenumbruch ermitteln.
'ActiveCell.EntireColumn.Cells(neuZeile3, 11).Value = "=SUBTOTAL(9,R[1]C:R[ANZAHLZ DER ZEIELN BIS ZUM NÄChSTEN ZEILENUMBRUCH]C)"
Hat da jemand einen Lösungsansatz?
Vielen Dank und schönes Wochenende.
Anzeige
AW: Anzahl Zeilen bis zum nächsten Zeilenumbruch
06.01.2012 17:37:53
Reinhard
Hallo Holger,
ich kenne Zeilenumbruch bei mehreren Zeilen in einer Zelle.
Was meinst du damit, eimne leere zelle in einer Spalte?
Gruß
Reinhard
AW: Anzahl Zeilen bis zum nächsten Zeilenumbruch
06.01.2012 17:40:27
holger
Hallo Reinhard,
ich meinte natürlich Seitenumbruch......
Also Anzahl der Zeilen von der aktiven Zeile bis zum nächsten Seitenumbruch.
Gruss
Holger
Anzeige
AW: Anzahl Zeilen bis zum nächsten Zeilenumbruch
06.01.2012 17:58:36
Reinhard
Hallo Holger,
da mußt du dir m.W. eine Schleife bauen.
mal als GrundAnsatz um die Zellen der Seitenumbrüche zu ermitteln:
for each SU in Worksheets(1).HPageBreaks
msgbox su.location
next su
In der Schleife prüfst du ab ob eine SU-Zelle eine größere Zeilennummer hat als deine activecell, damit hast du die Zelle des nächsten SU gefunden und kannst mit Exit For die schleife verlassen.
Kriegste das hin?
Gruß
Reinhard
Anzeige
AW: Anzahl Zeilen bis zum nächsten Zeilenumbruch
06.01.2012 18:13:47
holger
Hallo Reinhard,
nicht so ganz.... wüsste im mom nicht wie ich weiter mache und die Anzahl der Zeilen zwischen activecell und SU ermitteln sollte.
Gruss
Holger
AW: Anzahl Zeilen bis zum nächsten Zeilenumbruch
06.01.2012 18:32:01
Reinhard
Hallo Holger,
kann sein, kannste ja durch Tests herasusfinden der Vergleichsoperator muß ">=" sein und man muß vom Ergebnis 1 abziewhen oder so damit daß dann in deiner Formel harmoniert.
Sub tt()
MsgBox Zeilen(ActiveCell)
End Sub

Function Zeilen(Zelle As Range) As Integer
Dim SU As HPageBreak
For Each SU In Worksheets(1).HPageBreaks
If SU.Location.Row > Zelle.Row Then
Zeilen = SU.Location.Row - Zelle.Row
Exit For
End If
Next SU
End Function

Gruß
Reinhard
Anzeige
AW: Anzahl Zeilen bis zum nächsten Zeilenumbruch
06.01.2012 18:38:55
holger
Hallo Reinhard,
super damit kann ich probieren und das dann umsetzen.
Bedanke mich ganz herzlich bei Dir.
Schönes Wochenende.
Holger
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige