Hallo zusammen,

eigentlich wollte ich mir ein wenig Zeit sparen und ein VBA code benutzen. Die Rechnung ist noch nicht aufgegangen! Vielleicht könnt ihr mir helfen.

Also es sollen nebeneinandergelegende Zellen miteinander verbunden werden und die beiden Zellen darunter miteinander verbunden werden etc...

ich dachte eigentlich gar nicht so schwer und habe Folgendes geschrieben:

Sub Zellen_verbinden()

    Dim n As Integer
    
    For n = 1 To 6
    
     
    Range("Cn:Dn").Merge
         
    
    
    Next n
    
    
    
End Sub

das ist offensichtlich nicht richtig, denn da passiert bei mir nichts. Dann habe ich es noch wiefolgt probiert:

Sub Zellen_verbinden()

    Dim n As Integer
    
    For n = 1 To 7
    
     
    Range("C2:D2").Merge
    Range("C2:D2").Offset(n, 0).Merge
       
    Next n
    
    
    
End Sub

aber da macht er mir auch nur die erste Zeile sprich den Bereich C2:D2 und dann auch nichts weiter.

Bitte helft mir!

LG Steven