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: