Zeilenhöhe in verbundener Zelle anpassen
25.11.2012 11:31:10
Albert
in einer Tabelle soll vor dem Drucken die Zeilenhöhe für alle Zellen angepasst werden in der ein Zeilenumbruch (durch Alt+Enter eingegeben) vorkommt. Wenn ich eine normale If-Abfrage auf eine verbundene Zelle mache, wird der Zeilenumbruch erkannt und die gewünschte Zeilenhöhe eingestellt. Was ist beim nachstehend angeführten Makro falsch?
Sub Zeilenumbruch()
Range("C12:H12,C20:H20,C28:H28,C36:H36,C44:H44,C52:H52,C60:H60").Select
If Selection.WrapText = True Then
Selection.RowHeight = 22.5
Range("B12").Select
End If
End Sub
Danke für Eure Hilfe
Albert