wie kann man per VBA die Zellenwerte eine Bereichs (Tabelle "Statistik" A1:Z50) per VBA löschen. Die Formeln in dem Bereich sollen nicht gelöscht werden.
Gruß
Martin
Sub KeineFormel()
Dim C As Variant
For Each C In Range("A1:C16")
C.Select
If C.HasFormula = False Then ActiveCell.ClearContents
Next
End Sub
klappt's super. Vielen dank
Gruß
Martin
Sub ohneselect()
Dim C As Variant
For Each C In Range("A1:C16")
If C.HasFormula = False Then C.ClearContents
Next
End Sub
Sub ohne_Schleife()
On Error Resume Next
[A1:C16].SpecialCells(2, 23).ClearContents
If Err 0 Then MsgBox "Keine Konstanten vorhanden! ", 64, "Weise hin..."
End Sub
mfg Kurt