ich würde gerne über einen Button alle Formeln aus Zeile A löschen .ist soetwas möglich. Format der Zelle soll aber erhalten bleiben
Grüße
Sub formel()
If Activecell.Formula Like "=*" Then
ActiveCell.ClearContents
End if
End Sub
Für die Aktive Zelle. Das kannst du dann ja in einer Schleife machen.
Gruß
Chris
Range("A:A").SpecialCells(xlCellTypeFormulas, 23).ClearContents
da der Code mit einem Fehler abbricht, wenn keine formeln vorhanden sind, kann man es so ergänzen:
on Error goto 0
Range("A:A").SpecialCells(xlCellTypeFormulas, 23).ClearContents
On Error Resume Next
den einen oder den anderen Code schreibst du in das Makro des Buttons.
Gruß, Daniel
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