Blatt durchsuchen und Zeilen übertragen
16.01.2004 15:14:42
Peter S.
folgendes Problem:
Ich möchte ein Tabellenblatt (Tabelle1) bis zum Ende durchsuchen lassen.
Wenn ich auf eine leere Zelle stosse, soll diese mit einem Dummy gefüllt werden ("x" oder so).
Das kriege ich vielleicht auch hin mit...
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Value = "x"
... aber ...
Nun kann es vorkommen, dass bis zum Blattende auch Leerzeilen vorkommen.
Nach meinem Schema würde diese auch mit "x" gefüllt.
Die müssen aber gelöscht werden, weil nun die soeben gefüllten Zeilen der Tabelle 1 automatisch an die bestehende Tabelle2 am Ende angehängt werden sollen.
Wer weiß, wie es geht? Für Hilfe wäre ich dankbar.
Peter S.