per Makro erkennen, wieviel Zeilen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi
die beste Möglichkeit wäre wohl, den Inhalt über die SPLIT-Funktion ein ein Array aufzubrechen (als Trenneichen den Zeilenumbruch ASCII 10).
die Anzahl der Elemente des Arrays (Ubound) ergibt dann die Anzahl der erzwungenen Zeilen, dann müsste man noch jedes einzelne Element auf die Anzahl der Zeichen prüfen und hieraus die durch die Spaltenbreite bedingten Zeilenumbrüche ermitteln (Spaltenbreite sollte ja bekannt sein).
wenn man eine nichtproportionale Schriftart wählt (alle Zeichen gleich breit, z.B. Courier) müsste man damit einigermassen hinkommen.
allerdings muss man noch folgendes bedenken: bei Verbundenen Zellen ist die gesamtbreite grösser als die Summe der Einzelbreiten (für Columnwidth), da der Zwischensteg ja auch für Zeichen zur verfügung steht.
Es wird also schon einwenig Experimentierfreude notwendig sein, diese Berechnung so hinzurtrimmen, daß sie einigermassen präzise Ergebnisse liefert.
Gruß, Daniel

...es, auch theoretisch, keine vollkommene Lösung geben, Folks!
Vor allem wird die Zeilenhöhe nicht hilfreich sein; die Spaltenbreite schon eher, wenn der Text an derselben umbricht, was bei verbundenen Zellen ja ohnehin der Fall ist. Allerdings hält Excel in Abhängigkeit von Schriftart und -größe stets eine gewisse Abstandsreserve vor, so dass auch die stufenweise Suche nach den Zeichen, bei denen Xl automatisch umbricht [analog der Suche nach ZEICHEN(10)] vor einer (angenommenen bzw empirisch ermittelten) max Zeichenzahl pro Zeile, nicht automatisch zum richtigen Ergebnis führt. Der einzig sichere Weg wäre es deshalb, nichts dem Zufall zu überlassen und den Text mit einer udFkt wie bspw TxRows (im Herber-Archiv, letzter Link auf die Trägerdatei in einem ähnlichen Thread vom letzten Quartal 09) in Zeilen umzubrechen. Hier werden in Abhängigkeit von einer max Zeilenlänge, deren Verträglichkeit mit der jeweiligen Spaltenbreite empirisch überprüft wdn muss, unbedingte Umbrüche [ZEICHEN(10) — es gab hier zuvor eine gewisse Begriffsverwirrnis!] statt des bzw vor oder nach dem letzten Zeichen(s) vor dieser max Zeilenlänge, bei dem ein bedingter (nämlich primär durch die Spaltenbreite und sekundär durch das jeweilige Zeichen) Zeilenumbruch orthografisch möglich wäre, gesetzt. Durch Zählen von ZEICHEN(10) +1 käme man dann auf die tatsächliche Zeilenzahl.
Gruß + GesNeuJahr!
Luc :-?

Beliebteste Forumthreads (12 Monate)

per Makro erkennen, wieviel Zeilen

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread