AW: Text mit Zeilenumbrüchen in verbundener Zelle
28.02.2011 13:39:04
ing.grohn
Hallo Jens,
ich glaube nicht, daß das ein Bug ist. War in 2003 auch schon so. Mit Hilfe aus dem Forum hab ich das so gelöst (gilt ab Zeile 20 und Spalte C):
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Hoehe As Double
On Error GoTo ErrorHandler
Application.EnableEvents = False
With Target
If .Row > 20 And .Row
Hier folgt die Funktion "ZeilenHoehe":
Function Zeilenhoehe(wks As Worksheet, Zeile As Long, Spalte_A As Long, Spalte_E As Long) As _
Double
'Ermittelt die Zeilenhöhe für zu verbindende Zellen bei überlangem Text und _
formatiert die Zellen
'Spalte_A = 1. SPalte der ggf. zu verbindenende Zellen
'SPalte_E = letzte Spalte der ggf. zu verbindenden Zellen
Dim MinHoehe As Double, bolMerge As Boolean, lngHAlihnment As Long, dblHoehe As Double
Application.ScreenUpdating = False
With wks
'Zellbereich formatieren ohne Zeilenumbruch und Linksbündig formatieren, MinHoehe _
ermitteln
With .Range(.Cells(Zeile, Spalte_A), .Cells(Zeile, Spalte_E))
.HorizontalAlignment = xlHAlignLeft
.WrapText = False
If .MergeCells = True Then .UnMerge
With .EntireRow
.AutoFit
MinHoehe = .RowHeight
End With
'Format auf über Spalten centrieren setzen und Optimale Zeilenhoehe
.WrapText = True
.HorizontalAlignment = xlCenterAcrossSelection
.EntireRow.AutoFit
'Zellen Formatieren
If MinHoehe
Vielleicht kannst Du das auf die Bedürfnisse abstellen.
Mit freundlichen Grüßen
Albrecht
(schade, ich weiß nicht mehr, wer mir da geholfen hat, nochmal vielen Dank dafür)