Code verbessern / erweitern
Franz
ich möchte in diese Formel noch eine weitere Plausi einbauen:
Range("M2:M12").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
Genauer gesagt soll das nur dann passieren, wenn in Zelle A der betreffenden Zeile ein Text oder eine Zahl steht (Leerzeichen sollen nicht gewertet werden).
Beispiel:
A2 Text
M2 soll korrigiert werden, wenn die anderen Voraussetzungen gegeben sind
A3
M3 soll nicht korrigiert werden.
Ist das machbar? Für mich ist das zu hoch.
Vielen Dank!
Franz Kupfer