Welchen VBA-Code muß ich in ein Worksheet setzen wenn ich folgendes möchte:
Es betrifft die Spalten B bis P ab der Zeile 10 bis "Ganz unten" (65536 ...meine ich)
Wenn vorne in der Zeile B eine Zahl größer oder gleich 1 ist, dann formatiere in der gleichen Zeile von B bis P folgende Rahmen...
With Selection.Borders(xlEdgeTop) 'die Linie oben
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
...und...
With Selection.Borders(xlInsideVertical) 'die Zwischenlinien
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Wichtig ist: An der Spalte B darf links und an der Spalte P darf rechts die Linie nicht erscheinen. So dass also nur Zwischenlinien da sind und die Linie oben.
Gruß aus dem hohen Norden
Lenhard