Gleiche Nebeneinanderliegende Zeilen verbinden
01.08.2018 17:43:50
Vba
Bitte hasst mich nicht dafür, aber ich möchte gleiche benachbarte Zellen in einer Zeile verbinden und deren Text 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
With
.merge
.horizontalalignment = xlcenter
Endwith
Einfügt geht's auch net, dann wird alles zentriert dargestellt
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 :)
Anzeige