Microsoft Excel

Herbers Excel/VBA-Archiv

Gleiche Nebeneinanderliegende Zeilen verbinden


Betrifft: Gleiche Nebeneinanderliegende Zeilen verbinden von: Vba copie and paster
Geschrieben am: 01.08.2018 17:43:50

Moin nochmal liebes Forum,

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
Wenn man statt .merge

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 :)

  

Betrifft: Doppelt oT von: Hajo_Zi
Geschrieben am: 01.08.2018 17:46:19

https://www.herber.de/forum/messages/1636991.html


Beiträge aus dem Excel-Forum zum Thema "Gleiche Nebeneinanderliegende Zeilen verbinden"