Nebeneinanderliegende Zellen verbinden zentrieren
01.08.2018 14:15:48
Mister
Bitte hasst mich nicht dafür, aber ich möchte gleiche benachbarte Zellen in einer Zeile verbinden und zentrieren, damit ich die Tabelle schön formatiert drucken kann.
Folgendes Script ist aus einem Forum kopiert aber es zentriert den Text in den
verbundenen Zellen nicht.
Sub VerbindenNebeneinander()
Dim rngZelle As Range, intZähler As Integer, strAdresse As String
Application.DisplayAlerts = False
For Each rngZelle In ActiveSheet.UsedRange
If Not IsEmpty(rngZelle) Then
intZähler = 0
Do
strAdresse = rngZelle.Offset(0, intZähler).Address
intZähler = intZähler + 1
Loop Until rngZelle.Value rngZelle.Offset(0, intZähler).Value
ActiveSheet.Range(rngZelle.Address, strAdresse).Merge
End If
Next
Application.DisplayAlerts = True
End Sub
Ich weiß dass man mit
.HorizontalAlignment = xlCenter
Text mittig darstellen kann aber nicht, wie ich das in das Script einsetze.
Vielen Dank voraus für Antworten :)