Zellen verbinden mittels Schleife?!
27.05.2002 15:19:47
Marcel
Ich bin auf der Suche nach einem einigermaßen kurzen & übersichtlichen Quelltext der aber lauffäig sein soll.
Hintergrund ist das mehrmalige Verbinden von jeweils 2 untereinander befindlichen Zellen.
Mein Code für die Verbindung von 2 untereinanderliegenden Zellen ist folgender:
'selektierte Kopfzellen verbinden
Range("A11:A12").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.MergeCells = True
End With
Selection.Merge
Nur wäre es vielleicht machbar, das Ganze in eine Schleife zu packen, da ich das ganze nicht nur mit A11 und A12 sondern auch mit B11/B12, C11/C12, D11/D12, E11/E12, F11/F12, J11/12 und K11/K12.
Zudem kommt dann noch, dass ich Spalte G1, H1 und I1 verbinden möchte.
Vielen Dank schonmal im Voraus!!!
euer Marcel :)
Anzeige