Excel Zellen verbinden unter Runterziehen?

4 Antworten

geri3d
Nutzer, der sehr aktiv auf gutefrage ist
im Thema Microsoft Excel
07.06.2021, 12:09

Mit hilfe eines VBA Makros lässt sich das automatisieren.

Gehe auf Entwicklertools und starte den Visual Basic Editor. Füge ein neues Modul hinzu und füge folgenden Quelltext ein:

Sub ZellenVerbinden()

'Deklaration
Dim i, j As Integer
Dim maxZeile As Long
Dim maxSpalte As Long

'Werte setzen
startZeile = 1
startSpalte = 1
maxZeile = 10
maxSpalte = 10

For i = startSpalte To maxSpalte
    With Range(Buchstabe(i) & startZeile, Buchstabe(i) & maxZeile)
        .Merge ' Das Verbinden der Zellen
    End With
Next

End Sub

Function Buchstabe(ByVal iCol As Integer) As String

Dim Buchstabe1 As Long, Buchstabe2 As Long, Buchstabe3 As Long

If iCol < 27 Then
    Buchstabe1 = 0
Else
    Buchstabe1 = Int(((iCol - 26) / 676) - 0.0001)
End If
 
If Buchstabe1 = 0 Then
    Buchstabe2 = Int((iCol / 26) - 0.0001)
Else
    Buchstabe2 = Int(((iCol / 26) - (Buchstabe1 * 26)) - 0.0001)
End If
 
Buchstabe3 = iCol - (Int((iCol / 26) - 0.0001) * 26)

If Buchstabe1 > 0 Then
    Buchstabe = Chr(Buchstabe1 + 64)
End If

If Buchstabe2 > 0 Then
   Buchstabe = Buchstabe & Chr(Buchstabe2 + 64)
End If

If Buchstabe3 > 0 Then
   Buchstabe = Buchstabe & Chr(Buchstabe3 + 64)
End If
    
End Function

Aufrufen kannst das Makro über den Button Makro Starten.

Anpassen musst du es selber noch.
Woher ich das weiß:eigene Erfahrung
AntiVegetarier1
07.06.2021, 11:48

das kann man ganz einfach per vba mit dem folgenden code umsetzen:

  Dim i As Integer
   
  For i = 1 To 10000 Step 20
    Range(Cells(i, 1), Cells(i + 19, 1)).MergeCells = True
  Next i