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

Beiträge aus den Excel-Beispielen zum Thema "Lösung: Zeilen im VBA-Code und Modul auslesen"