Herbers Excel-Forum - das Archiv

vba umrahmung

Bild

Betrifft: vba umrahmung
von: johfri

Geschrieben am: 21.03.2005 11:47:30
hallo
habe ein problem mit der umrahmung von zellen per vba.
um das problem genau darzustellen habe ich eine excel-datei beigefügt.
https://www.herber.de/bbs/user/19940.xls
gruß johfri
Bild

Betrifft: AW: vba umrahmung
von: Hajo_Zi

Geschrieben am: 21.03.2005 12:01:32
Hallo Johfri
Option Explicit
Sub rahmen()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Range("B65536")), Range("B65536").End(xlUp).Row, 65536)
For LoI = LoLetzte To 14 Step -1
If Cells(LoI, 2) <> "" Then Exit For
Next LoI
With Range(Cells(14, 3), Cells(LoI, 10))
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlContinuous
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlContinuous
.Borders(xlEdgeRight).LineStyle = xlContinuous
End With
With Range(Cells(LoI + 1, 3), Cells(54, 10))
.Borders(xlInsideHorizontal).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
.Borders(xlEdgeTop).LineStyle = xlContinuous
.Borders(xlEdgeBottom).LineStyle = xlNone
.Borders(xlEdgeRight).LineStyle = xlNone
End With
End Sub


Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


Bild

Betrifft: AW: vba umrahmung
von: johfri
Geschrieben am: 21.03.2005 13:59:04
Herzlichen Danke für die prompte Hilfe.
Funktioniert einwandfrei.
gruß johfri
 Bild