Hallo,
ich möchte per Makro in einem Formular Rahmen setzen.
Das Problem dabei ist leider, dass mehrere Rahmen hintereinander gesetzt werden sollen.
Meine Rahmenbedingungen sind:
Breite = immer von Spalte A-I
Höhe = immer von Zelle mit Inhalt „Arbeitsplatz“ bis Zelle mit Inhalt „Gesamt“
Dann wieder von vorn (die Dokumentlänge ist leider variabel!)
Mir fehlt die Schleife, welche die Spalte A durchläuft und die Zellen entsprechend markiert.
Kann mir hierbei jemand helfen?
Schon jetzt vielen Dank
Hier meine bisherige Aufzeichnung:
Range("A2:I17").Select ‘dies ist bspw. der Bereich für den ersten Rahmen
Range("I17").Activate
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
Gruß
Bernd