Formatierung

[Leonhard]

Eine Frage hätte ich doch noch:

Aktuell habe ich die Formatierung fest bis zur Spalte 220. Ein anderes Makro blendet nach einer bestimmten Spalten aus wenn in Zeile 5 kein Wert steht, daher kann es passieren das Spalte 220 nicht die letzte Spalte in der ausgeblendeten Ansicht ist und man somit in der "letzten" Spalte keinen abschließenden Rahmen hat:

   


Ist es möglich das man den Code dahingehend anpasst das der Rahmen bis zur der Spalte gezogen wird in der in Zeile 5 noch eine Eintragung steht?

Code:

Start = 6
ende = 2
For i = Start To Rows.Count
If Cells(i, 1) = Cells(i + 1, 1) Then
ende = i + 1
Else
ende = i
Range(Cells(Start, 1), Cells(ende, 220)).Select
With Selection.Borders()
.LineStyle = xlContinous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Start = i + 1
End If
If Cells(Start, 1) = "" Then Exit Sub
Next

Vorab vielen Dank für euer Interesse

[Kuwer]

Hallo Leo,

Sub RahmenUmGleicheDaten()

 Dim i As Long

 Dim lngOben As Long

 Dim lngUnten As Long

 Dim lngRechts As Long

 lngOben = 6

 lngRechts = Cells(lngOben - 1, Columns.Count).End(xlToLeft).Column

 For i = lngOben To Rows.Count

   If Cells(i, 1) = Cells(i + 1, 1) Then

     lngUnten = i + 1

   Else

     lngUnten = i

     With Range(Cells(lngOben, 1), Cells(lngUnten, lngRechts))

       .Borders.LineStyle = xlNone

       .BorderAround LineStyle:=xlContinuous, Weight:=xlMedium, ColorIndex:=xlAutomatic

     End With

     lngOben = i + 1

   End If

   If Cells(lngOben, 1) = "" Then Exit Sub

 Next

End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Gruß Uwe

[Leonhard]

Vielen lieben Dank Uwe :05: :05: