Text-Überlauf in Excel-Zelle erkennen

Hallo,
wer kann mir bei folgender Aufgabenstellung helfen?
Auf meinem Excel-Arbeitsblatt ist die Größe der Zellen fest vorgegeben, mit Zeilenumbruch. Wenn der in eine Excel-Zelle eingetragene Text länger ist, als der in der Zelle darstellbare Text, so wird der zu lange Text in der Ansicht und im Ausdruck abgeschnitten.
Die Aufgabe besteht darin, zu erkennen, ob der in der Ansicht und dem Ausdruck dargestellte Text vollständig ist oder ob Teile davon abgeschnitten worden sind. Falls Text abgeschnitten wurde soll auf dem Arbeitsblatt ein entsprechender Warnhinweis eingetragen werden.
Hintergrund ist, dass der Ausdruck die Basis zur weiteren Bearbeitung ist, und wenn Text abgeschnitten wurde, fehlen dem Bearbeiter wichtige Informationen, ohne dass er das merkt.
Mir fällt dazu nur ein, die Anzahl der Zeichen in dem Text zu ermitteln und diese mit der in der Zelle maximal darstellbaren Zeichenzahl zu vergleichen. Das ist aber eine sehr unsichere Methode, da eine Proportionalschrift vorliegt, in der die unterschiedlichen Zeichen unterschiedlich viel Platz einnehmen.
Hat jemand eine bessere Idee?
Herzlichen Dank im Voraus für Eure Hilfe!
Gruß
Willi

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub worksheet_change(ByVal target As Range) Dim V As Variant If Not Intersect(ActiveSheet.UsedRange, target) Is Nothing Then V = Split(target.Value, vbLf) zeilenumbruchanzahl = UBound(V) + 1 b = target.Rows.RowHeight c = target.Font.Size c = c * zeilenumbruchanzahl If c > b Then MsgBox "Zelle ist überfüllt" End If End Sub

Hallo Welga,
danke für Deinen Vorschlag. Habe damit ziemlich viel versucht, aber leider geht es so nicht.
Dein Vorschlag setzt voraus, dass, dass jede Zeile mit enem manuellen Zeilenumbruch abgeschlossen wird, versagt aber bei automatischem Zeilenumbruch durch Excel. Aber da gibt es wohl keine Abhilfe, oder?
Der Ausdruck
b = target.Rows.RowHeight
für die Zellenhöhe gibt nur die Höhe einer Zeile zurück. Bei verbundenen Zellen mit mehreren Zeilen (wie bei mir) gibt es ein Problem, weil target nur die 1. Zeile bezeichnet. Hier muß der gesamte Bereich z.B. "B2:C5" angegeben werden und es muss heißen
Range("B2:C5").Height.
Auch entspricht die Schriftgröße Font.Size nicht der Zeilehöhe, selbst dann nicht, wenn "Optimale Zeilenhöhe" eingestellt ist, weil über und unter der Schrift immer noch etwas Platz ist. Somit ist die Rechnung
Texthöhe = Zeilenumbruchanzahl * Schrifthöhe
falsch.
Aber Dein Vorschlag hat mir trotzdem weiter geholfen. Bei mir geht es nur um eine bestimmte Zelle mit fester Höhe und fester Schriftgröße, sodaß auch die Anzahl der maximal anzeigbare Zeilen fest vorgegeben ist. Somit führt der Vergleich
if Zeilenumbruchanzahl > MaxZeilenzahl then
zum Ziel.
Für mich war die Funktion
V = Split(target.Value, vbLf)
neu. Wo kann ich darüber etwas Näheres nachlesen? Die Hilfe in Excel/VBA dazu verstehe ich nicht.
Nochmals herzlichen Dank für Deine Unterstützung!
Gruß
Willi

Beliebteste Forumthreads (12 Monate)

Text-Überlauf in Excel-Zelle erkennen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text-Überlauf in Excel-Zelle erkennen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

357 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread