Vertikale Textausrichtung ganz unten

Hallo zusammen,
in den Zellen einer Spalte steht jeweils viel Text. In den Texten sind Absätzen vorhanden. Aus optischen Gründen möchte ich die Spaltenbreite sowie die Zeilenhöhen nicht größer stellen.
Es handelt sich je Zelle um Gesprächsprotokolle, wobei der letzte/unterste Texteintrag jeder Zelle von Interesse ist, wenn ich durch die Tabelle scrolle. Die Einstellung zur Textausrichtung "Unten" bzw. "Unten ausrichten" greift nicht mehr, da zu viel Text in den Zellen steht. Änderungen der vertikalen Textausrichtung führen nur noch zu minimalen Verschiebungen.
Dies kann wie folgt nachvollzogen werden: Schriftgröße 11 Calibri, Zeilenhöhe 230, Spaltenbreite 120, Textinhalt einer Zelle z. B. 30 (über Absätze getrennte) Zeilen (siehe https://www.herber.de/bbs/user/130708.xlsx).
Gibt es eine Möglichkeit, die vertikale Textausrichtung so einzustellen, dass tatsächlich der letzte/unterste Texteintrag jeder Zelle der Spalte angezeigt wird?
Danke vorab und viele Grüße
Gerrit

Hi,
ja, wenn man das händisch macht, dann kann das in Arbeit ausarten. Vielleicht kann Excel die Schufterei übernehmen, es hängt allerdings viel davon ab, dass der Text überall gleich aufgebaut ist.
Das folgende Makro "tausch" dreht die Reihenfolge der Textzeilen in den markierten Zellen um.


Option Explicit
Const Variante = 1 ' 1 oder 2, Anzahl der Umbrüche die einen Absatz trennen
Sub Upsidedown(c As Range)
Dim s As String, p As Long, a() As String, n As Long
Dim dlim As String
dlim = String(Variante, vbLf)
s = c.Value: n = 0
If s = "" Then Exit Sub
If Right(s, Variante)  dlim Then s = s + dlim
While Left(s, 1) = vbLf: s = Mid(s, 2): Wend
p = InStr(s, dlim)
While p > 0
n = n + 1: ReDim Preserve a(n)
a(n) = Left(s, p - 1): s = Mid(s, p + Variante)
While Left(s, 1) = vbLf: s = Mid(s, 2): Wend
p = InStr(s, dlim)
Wend
s = ""
For n = UBound(a) To 1 Step -1
s = s + a(n) + dlim
Next
s = Left(s, Len(s) - Variante)
c.Value = s
End Sub
Sub tausch()
Dim c As Range
For Each c In Selection.Cells: Upsidedown c: Next
End Sub

VG, MM

Vertikale Textausrichtung ganz unten

Forumthread: Vertikale Textausrichtung ganz unten

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial