Zelle bereinigen
Markus
ich nutze folgenden VBA-Code zum bereinigen von Zellen (spiele dort zuvor Daten aus einer Hosttransaktion ein).
Range("B4:K31").Select
For Each Zelle In Selection
If IsNumeric(Zelle.Value) = True And _
Zelle.HasFormula = False Then
Zelle.Value = Zelle.Value * 1
End If
Next Zelle
Jetzt würde ich das ganze aber gerne etwas verbessern, so dass nur die Formeln bereinigt werden, die auch einen Inhalt haben.
Kann mir jemand helfen?
Vielen Dank!
Viele Grüße
Markus