Hallo liebe Excelfangemeinde,
bei dieser Aufgabe hatte mir Rainer schon mal mit einem Code geholfen einem frei markierten Bereich zu formatieren.
Ausgangspunkt: Ein frei markierter Bereich soll eine bestimmte Formatierung haben und bis auf die unterste Zeile ist es so wie ich es gerne haben möchte.
Sub Rahmensetzen()
With Selection
.Borders(xlEdgeLeft).Weight = xlThick
.Borders(xlEdgeTop).Weight = xlHairline
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Borders(xlEdgeRight).Weight = xlThick
.Borders(xlInsideVertical).Weight = xlThin
.Borders(xlInsideHorizontal).Weight = xlHairline
End With
With Range(Cells(Selection.Row, Selection.Column), _
Cells(Selection.Row, Cells(Selection.Row, _
Columns.Count).End(xlToLeft).Column))
.Font.Bold = True
.HorizontalAlignment = xlCenter
.Borders(xlEdgeLeft).Weight = xlThick
.Borders(xlEdgeTop).Weight = xlThick
.Borders(xlEdgeBottom).Weight = xlThick
.Borders(xlEdgeRight).Weight = xlThick
End With
Range("A1").Select
End Sub
Leider habe ich bislang nichts gefunden um die unterste markierte Zeile anzusprechen, damit ich diese mit Fett markieren und der dicke Rahmenstrich nach oben gesetzt werden kann.
Das fettsetzen und die Rahmenlinie sollten kein Problem darstellen, aber wie kann man die unterste Zeile für die Formatierung ansprechen?
Leider gibt es dazu keinen festen markierten Bereich, sondern der ist immer wieder an ganz verschiedenen Stellen und zudem unterschiedlich lang, sonst wäre es ja zu einfach.... ;-)
Ich danke allen schon mal für Ihr Interesse an meiner Anfrage und wünsche allen noch einen schönen Abend.... LG Helmut