vba umrahmung

Forumthread: vba umrahmung
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: vba umrahmung

vba umrahmung

21.03.2005 12:47:30

johfri

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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: vba umrahmung

21.03.2005 13:01:32

Hajo_Zi
AW: vba umrahmung

21.03.2005 14:59:04

johfri

AW: vba umrahmung

21.03.2005 13:01:32

Hajo_Zi

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.

AW: vba umrahmung

21.03.2005 14:59:04

johfri

Herzlichen Danke für die prompte Hilfe.
Funktioniert einwandfrei.
gruß johfri

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!