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
Nun wollte ich den Code erweitern, dass die Zellen direkt rechts daneben ebenfalls miteinander verbunden werden. Theoretisch einfach so:Sub Zellen_verbinden_HorizontalRechts_VertikalMitte()
With Selection.Offset(0, 1)
.HorizontalAlignment = xlRight
.VerticalAlignment = xlCenter
'.MergeCells = True
End With
End Sub
Tut er aber nicht. Keine Fehlermeldung. Ich habs auch schon versucht mit:If Selection.Columns.Count > 1 Then
Selection.Resize(, 1).MergeCells = True
Selection.Resize(, 1).Offset(, 1).MergeCells = True
End If
wobei ich dann natürlich beide Spalten markiert habe, aber funzt auch nicht.Was mache ich falsch? Kann doch nur eine Kleinigkeit sein, oder?
Danke und Gruß
David