Hallo,
also bei mir färbt er die neue Zeile ein, was auch kein Wunder ist, denn die wird ja auch zuvor selectiert, zumindest wenn "Netzanschluß" gefunden wird.
Rows(Wort.Row + 1).Select
Generell geht ja das ganze Formatieren auf die ganze Zeile (lass mal zum testen ScreenUpdating an)
Wenn du in der neu eingefügten Zeile nur die ersten beiden Spalten einfärben willst, mußt du diese auch auswählen.
Entweder
Range(Cells(Wort.Row + 1, 1), Cells(Wort.Row + 1, 2)).Select
oder
Wort.Offset(1, 0).Resize(1, 2).Select
Zudem finde ich sollte das ganze Formatieren auch in die If-Abfrage ob "Netzanschluß" gefunden wurde...
|