Mit Wert darüber ausfüllen - aber Ausnahme
lutz
ich habe eine Tabelle, in der nicht alle Felder ausgefüllt sind.
Diese möchste ich nun mit dem Wert der Zeile darüber ausfüllen.
So ein Makro hätte ich:
Sub TabelleVervollstaendigen() 'Füllt Leere Zellen der Tabelle mit den darüberliegenden Werten aus With Range("A1").CurrentRegion 'Zelle hier ändern .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C" .Value = .Value End With End Sub Das soll aber nur dann passieren, wenn in der Spalte "L" kein Eintrag ist (Zelle ist ganz Leer).
Anschliessend müßte ich dann noch aus der currentRegion alle löschen die in Spalte L keinen Eintrag haben (vorher kann ich ja leider nicht - dann wäre alles einfacher, aber mir gehen die Werte aus dieser Zeile verloren die ich ja brauche).
Weiß jemand da eine Lösung?
Vielen Dank und Grüße
Lutz