Ich möchte Werte von Zellen kopieren, unter der Vorraussetzung, dass in dieser keine Formel steht!
Wie kann ich das mit VBA überprüfen?
Danke Euch!
Sub formeln()
Dim myrng As Range, rng As Range
Set myrng = Sheets("Tabelle1").Range("A1:A2")
For Each rng In myrng
If rng.HasFormula Then MsgBox rng.Address
Next
End Sub
Sub kopieren()
Dim Z
For Each Z In ActiveSheet.Cells.SpecialCells(xlCellTypeConstants, 3)
'if..
Next
End Sub