Hallo Udo,
wenn ich's auf die Schnelle richtig sehe, muesste es statt
ActiveCell.EntireRow(-1).ClearContents
ActiveCell.EntireRow.ClearContents
heissen.
Probier's und melde Dich.
Gruss Volker
Hallo Udo,
wenn ich's auf die Schnelle richtig sehe, muesste es statt
ActiveCell.EntireRow(-1).ClearContents
ActiveCell.EntireRow.ClearContents
heissen.
Probier's und melde Dich.
Gruss Volker
Hallo Volker,
ActiveCell.EntireRow.ClearContents
funktioniert nicht, da ja vorher die letzte leere Zeile gesucht wurde, und somit diese auch nur gelöscht wird.
Gruß
Udo
If Range("tab1!M2") > 1 Then
Range("Liste!A:A").Find ("")
Debug.Print MsgBox("Achtung Fehler, 4112, "Achtung")
Range("Liste!A:A").Find("").Select
ActiveCell.EntireRow(-1).ClearContents
Else: End If
Für einen Tip im Voraus vielen Dank!
Gruß
Udo
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen