AW: Übereinanderliegende Zellen zusammenfassen
28.03.2007 23:11:00
fcs
Hallo Werner,
generell ist es keine besonders gute Idee Zellen in Excel zu verbinden. Es gibt dann schnell Probleme wenn man andere Funktionen in der Tabelle ausführen möchte. Da es beim Verbinden von Zellen meist um optische "Verbesserungen" in Tabelle geht sollte man möglichst andere Formen der Formatierung wählen, um den gewünschten Effekt zu erzielen.
Für mich ist Zellen verbinden der allerletzte Notnagel um in Tabellen etwas an der Optik zu feilen.
Soweit meine Meinung zum Verbinden von Zellen und hier das Makro mit der gewünschten Funktion.
Inhalte in der 2. Zeile der Selektion werden dabei ohne Rückfragen gelöscht. Falls du die Warnmeldung von Excel nicht abschalten möchtest, dann die Zeile "Application.DisplayAlerts = False" weglassen.
Gruß
Franz
Sub ZellenVerbinden()
' Verbindet in den Spalten des Selektierten Bereichs jeweils die Zellen der 1. und 2. Zeile
Dim rngBereich As Range, wks As Worksheet, Spalte As Integer
Set rngBereich = Selection
Set wks = ActiveSheet
Application.DisplayAlerts = False
For Spalte = rngBereich.Column To rngBereich.Column + rngBereich.Columns.Count - 1
With wks
.Range(.Cells(rngBereich.Row, Spalte), .Cells(rngBereich.Row + 1, Spalte)).Merge
End With
Next
Application.DisplayAlerts = True
End Sub