Formatierungen aus allen Leerzellen löschen
27.12.2015 12:03:16
Dieter(Drummer)
mit meinem Makro werden alle Formatierungen, aus allen Leerzellen gelöscht.
Habe ich alles richtig in der Reihenfolge? Es soll ja auch ohne "select" gehen, aber da weiß ich nicht, wie ich das dann schreiben muss. Es fuktioniert schon wie gewollt.
Mit der Bitte um Tipps oder Verbesserung.
Gruß, Dieter(Drummer) - Nicht in anderen Excel-Foren unterwegs ;-)!
Mein Code:
Sub LeerzellenInhalteLoeschen()
Application.ScreenUpdating = False
On Error GoTo Fehler
If MsgBox("Formatierungen etc. nur in ALLEN Leerzellen löschen?", vbYesNo) = vbYes Then
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.Clear
MsgBox ("Formatierungen in ALLEN Leerzellen wurden gelöscht!")
Else
End If
Range("A1").Select
Application.ScreenUpdating = True
Exit Sub
Fehler:
MsgBox ("Es sind keine Formatierungen vorhanden!")
End Sub