Makro funktioniert nicht immer - Hilfe benötigt
18.01.2017 14:03:04
Marcel
ich habe hier im Forum schon mal in einem anderen Beitrag Hilfe bekommen als es darum ging, dass ich ein Makro benötigt habe, das Folgendes macht:
"Prüfe Spalten 1-30 ab und schreibe dann alles was du findest quasi "linksbündig" hin beginnend mit der ersten Spalte die du abprüfst".
Die Antwort, die ich bekommen habe war folgendes Makro:
Sub To_LEFT()
On Error Resume Next
ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
On Error GoTo 0
End Sub
Mit der damaligen Beispieldatei hat das auch prima funktioniert, nur wenn ich es jetzt in andere Dateien einfüge passiert nichts - so wie in folgender Beispieldatei: https://www.herber.de/bbs/user/110673.xlsm
Kann mir jemand erklären, woran das liegt?
Danke und Grüße
Marcel