Nach Wertänderung umranden

Bild

Betrifft: Nach Wertänderung umranden
von: Stefan
Geschrieben am: 18.11.2003 14:41:34

hallo excel helfer,
hoffentlich könnt ihr mir helfen!
ich habe in der Spalte j, zeilen 29 bis 62 namen stehen (sind schon sortiert)! jetzt möchte ich das nach jeder namensänderung alle gleichen namen umrandet werden.

Beispiel: zelle j29 = stefan
zelle j30 = Stefan
zelle j31 = Andreas
dann j29 und j30 zusammen umranden und j31 umranden

ich hab ein makro gefunden, welches nach einer namensänderung eine zeile einfügt, vielleicht kann mir das jemand umschreiben?

vielen dank für die hilfe

gruß stefan




Sub ZeilenEinfügen()
BAnf = 1
SpaA = 1
VG1 = Cells(BAnf, SpaA).Value
VG2 = Cells(BAnf + 1, SpaA).Value
Do While VG2 <> ""
    If VG1 <> VG2 Then
        Rows(BAnf + 1).Insert
        BAnf = BAnf + 1
    End If
    BAnf = BAnf + 1
    VG1 = Cells(BAnf, SpaA).Value
    VG2 = Cells(BAnf + 1, SpaA).Value
Loop
End Sub

Bild


Betrifft: AW: Nach Wertänderung umranden
von: Hans W. Herber
Geschrieben am: 22.11.2003 11:30:17

Hallo Stefan,

eine Lösung auf Basis der bedingten Formatierung findest Du hier:
https://www.herber.de/bbs/texte/13bedingt1.xls

gruss hans


Bild

Beiträge aus den Excel-Beispielen zum Thema " Noch mal farbige Zeile"