Zellen verbinden und Zeilenumbruch
15.11.2002 07:45:43
Jens
in meinem Code ist irgendwo eine Schwachstelle. Beim ausführen erhalte ich gelegentlich Fehlermeldung bei ".WrapText = True".
Wer kann mir helfen diese Fehler abzustellen?
Sub Zellen_verbinden()
With Worksheets("Kalkulation").Range("C2:F3")
'.Value = Range("A8")
.WrapText = True
.MergeCells = True
End With
End Sub
Sub Zellen_verbinden_aufheben()
With Range("C2:F3")
'.Value = Range("A8")
.WrapText = True
.MergeCells = False
End With
End Sub
Danke Jens
Anzeige