Zeilenhöhe bei verbundenen Zelle. zum 2.
28.12.2016 23:32:17
Peter
Ich habe am 9.12. von Daniel, in diesem Forum das unten stehende Scrip erhalten.
Ich war damals ein wenig voreilig mit meinem positiven Rückmeldung und habe mich erst jetzt richtig damit befasst.
4. Punkt "Zellenverbund wieder herstellen" funktioniert nicht, wie müsste der Code angepasst werden, damit der Zellenverbund wieder ausgeführt wird. Leider weiss ich nicht, wie ich Daniel direkt anschreiben könnte, um ihn zu Fragen, so versucht ich es auf diese Weise.
Natürlich ist auch jede andere Lösung willkommen.
Meine Frage und Antwort von Daniel vom 09.12.2016
--------------------------------------------------------------------
Ursprünglich Frage:
Hallo zusammen
Ich möchte in der Tabelle1 in Zelle B9, mit VBA, jeweils nach jedem Semikolon einen Zeilenumbruch erzeugen, das Semikolon mit einem möglichen Leerzeichen soll gelöscht werden.
Beispielsatz:
Ich möchte in der Tabelle1 in Zelle B9; jeweils nach jedem Semikolon; einen Zeilenumbruch erzeugen; und das Semikolon+Leerzeichen; soll gelöscht werden.
Ergebnis: mit Zeilenumbruch, Semikolon und mögliches Leerzeichen gelöscht:
Ich möchte in der Tabelle1 in Zelle B9
jeweils nach jedem Semikolon
einen Zeilenumbruch erzeugen
und das Semikolon+Leerzeichen
soll gelöscht werden.
Konnte im Netz nichts finden, wie müsste der Code aussehen?
Danke
Viele Grüsse,
Peter
--------------------------------------------------------------
HI
in Verbundzellen ist es nicht möglich, die Zeilenhöhe oder -breite automaisch ermitteln zu lassen.
du musst dann so vorgehen:
1. Zellverbund aufheben
2. Zeilenhöhe für Einzelzelle automatisch ermitteln
3. Diese Zeilenhöhe auf die Anzahl der Verbundzellen aufteilen
4. Zellverbund wieder herstellen.
funktioniert für dein Beispiel so, die Gesamthöhe wird gleichmäßig zwischen den Zeilen des Verbundes aufgeteilt:
Sub aa()
Dim Anzahl As Long
Dim Höhe As Double
With Range("B9")
Anzahl = .MergeArea.Rows.Count
.Value = Replace(.Value, ";", vbLf)
.Value = Replace(.Value, vbLf & " ", vbLf)
.MergeCells = False
.EntireRow.AutoFit
Höhe = .RowHeight / Anzahl
With .Resize(Anzahl)
.EntireRow.RowHeight = Höhe
.MergeCells = True
End With
End With
End Sub
Gruß Daniel
------------------------------------------------------------------------
Danke
Viele Grüsse
Peter