Unterstreichen

Bild

Betrifft: Unterstreichen
von: Stefan
Geschrieben am: 18.11.2003 16:20:17

HILFE hallo excel freunde,
ich bins nochmal, ich habe es tatsächlich geschaft, das nach einer wertänderung Ab spalte j29 ein strich eingefügt wird! das dauert allerdings enorm lang, weil ich nur weiß wie jede zelle einzelln markeirt werden kann! wie kann ich das denn schneller machen?

Danke für eure hilfe


Sub ZeilenUnterstreichen()
BAnf = 29
SpaA = 10
VG1 = Cells(BAnf, SpaA).Value
VG2 = Cells(BAnf + 1, SpaA).Value
Do While VG2 <> ""
    If VG1 <> VG2 Then
        Cells(BAnf + 1, SpaA).Select
        BAnf = BAnf + 1
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            Selection.Borders(xlEdgeLeft).LineStyle = xlNone
            With Selection.Borders(xlEdgeTop)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
            Selection.Borders(xlEdgeBottom).LineStyle = xlNone
            Selection.Borders(xlEdgeRight).LineStyle = xlNoneEnd
    End If
    BAnf = BAnf + 1
    VG1 = Cells(BAnf, SpaA).Value
    VG2 = Cells(BAnf + 1, SpaA).Value
Loop
End Sub

Bild


Betrifft: AW: Unterstreichen
von: ChrisL
Geschrieben am: 18.11.2003 18:18:23

Hi Stefan

Option Explicit


Sub ZeilenUnterstreichen()
Dim iZeile As Long
For iZeile = 29 To Cells(29, 10).End(xlDown).Row
    If Cells(iZeile, 10) <> Cells(iZeile + 1, 10) And Cells(iZeile + 1, 10) <> "" Then
        With Cells(iZeile + 1, 10).Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlMedium
        End With
        iZeile = iZeile + 1
    End If
Next iZeile
End Sub



Gruss
Chris


Bild

Beiträge aus den Excel-Beispielen zum Thema " Infirekt Formel Dynamisch!"