Zellen verketten ausschalten (dinamisch)?
16.08.2005 10:41:27
Selma
wenn ich in Spalte A (siehe Code) die beide Texte eintrage, möchte ich die Zellenverkettung für diesen Bereich ausschalten.
z.B. Texte werden hier eingetragen.
A33 = Mit freundlichen Grüssen"
A36 = Firma .....
dann soll für Bereich A33:H36 die .MergeCells ausgeschaltet werden.
Option Explicit
Sub Unterschrift_AN()
Dim zei
zei = ActiveSheet.Range("A65536").End(xlUp).Row
ActiveSheet.Cells(zei, 1).Offset(3, 0) = "Mit freundlichen Grüssen"
ActiveSheet.Cells(zei, 1).Offset(6, 0) = "Firma ....."
End Sub
Was muss ich ändern bzw. ergänzen ?
Danke im Voraus....
Liebe Grüße
SELMA