VBA: Zellen verbinden funktioniert nicht. Warum?
20.05.2015 09:02:06
David
eigentlich war ich der Meinung, mittlerweile schon ein ganz ordentliches VBA-Repertoire erworben zu haben. Momentan zweifle ich aber daran.
Wenn ich mehrere Zellen untereinander markiere, sollen diese verbunden werden und eine bestimmte Formatierung bekommen. Das geht soweit wie gewünscht:
Sub Zellen_verbinden_HorizontalRechts_VertikalMitte()
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
'.MergeCells = True
End With
End Sub
Sub Zellen_verbinden_HorizontalRechts_VertikalMitte()
With Selection.Offset(0, 1)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
'.MergeCells = True
End With
End Sub
If Selection.Columns.Count > 1 Then
Selection.Resize(, 1).MergeCells = True
Selection.Resize(, 1).Offset(, 1).MergeCells = True
End If
Was mache ich falsch? Kann doch nur eine Kleinigkeit sein, oder?
Danke und Gruß
David