Zellen verbinden per VBA
21.01.2021 20:03:35
Robert
Ich habe wieder mal ein Problem, bei welchen ich um Eure Hilfe bitte. Ich möchte auf Mehreren Seiten per Makro Zellen verbinden um Seiten einzurichten. Habe jetzt eines geschrieben wie im Beispiel, aber da verbindet es nur die immer die Ersten Zellen (A1:F1) der Rest bleibt aussen vor.
Wie muss bzw. kann ich das schreiben das ich noch 5 Zellbereiche einordnen kann zum verbinden.
Sub Zellenverbinden()
Dim ersteZelle As Range, letzteZelle As Range
With Worksheets("Tabelle3, Tabelle4")
Set ersteZelle = .Range("A1")
Set letzteZelle = .Range("F1")
Set ersteZelle = .Range("J1")
Set letzteZelle = .Range("T1")
With .Range(ersteZelle, letzteZelle)
.Merge
.HorizontalAlignment = xlCenter
End With
End With
End Sub
Für Eure Mühen danke ich voraus.
LG Robert