Zeilenumbrüche in zellen finden

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
es gibt zwei Möglichkeiten, die Höhe zu ermitteln, die ich beide hier ausgeführt habe:

Option Explicit
Sub hoehe()
Dim p As Double, p2 As Double, i&
Debug.Print
For i = 1 To 45
Debug.Print i & ": Zeilenhöhe=" & Rows(i).RowHeight
Debug.Print i & ": Zeilen TOP " & Range("A" & i).Top
p = p + Rows(i).RowHeight
p2 = p2 + Range("A" & i + 1).Top - Range("A" & i).Top
Next
Debug.Print "Zeilenhöhe ges " & p
Debug.Print "Zeilenhöhe Top " & p2
End Sub

Beim Herumprobieren habe ich festgestellt, daß eine Zelle mit Umbruch exakt die Zeilenhöhe der anderen Zeilen mal die Anzahl der umgebrochenen Zeilen hat, also etwa 90 für 6x15.
Das sind "Punkte", nicht Pixel, das kann man umrechnen, wenn man will.
Schau halt, wie hoch die Punkte bei den konkreten Einstellungen/Drucker usw. sind, dann kannst Du *vor* dem Beschreiben der jeweils nächsten Zelle mit c.Top ermitteln, wo sie anfängt und wieviele Punkte Du noch Platz hast bzw. wieviele Zeilen dann noch reinpassen (Anzahl der Punkte / Höhe einer Zelle mit nur einer Zeile).
Allerdings würde ich das eher ganz anders gestalten und alle Texte zeilenweise ohne Umbrüche schreiben, das ist nach meinem Geschmack insgesamt einfacher zu handeln.
Schöne Grüße,
Michael

…auf Basis der Korrelation zwischen Schriftgröße/-art/-schnitt, Spaltenbreite und Textlänge, Jörg,
abhängig auch vom Schrifttyp nicht-/proportional wie er bspw im Verhältnis von Courier zu Arial zum Ausdruck kommt. Außerdem müsste die Spaltenbreite in Point umgerechnet wdn, denn die drückt in Xl das Verhältnis StandardZeichenAnzahl zu realer Spaltenbreite aus, ist also weder eine Pixel- noch cm-Angabe.
Wo Xl einen Zeilenumbruch einfügen könnte, kann man über die umbruchrelevanten (Satz-)Zeichen des Textes ermitteln, nicht oW aber, wo das tatsächlich geschieht. Hier wäre dann ein Pgm sinnvoll, das, näherungsweise den obigen Vorgaben folgend, Zeilenumbruchszeichen in den Text einfügt. Das könnte dann auch gleich noch bedingte Silbentrennzeichen (in HTML shy genannt) an markierter Stelle einfügen, was eine bessere ZeilenAuslastung erlauben würde.
Falls die Texte nicht zu lang wdn, könnte hier auch eine UDF wie TxRows etwas helfen. Aber ich fürchte, die von dir gemeinten Problemtexte sind denn doch zu lang…
Gruß, Luc :-?
Besser informiert mit …

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

338 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeilenumbrüche in zellen finden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

338 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread