Nach Wertänderung umranden
18.11.2003 14:41:34
Stefan
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