Werte in Zahl umwandeln
11.04.2021 14:19:57
Peter
benötige eure Hilfe.
Ich kopiere aus eine ListBox die Werte in die Tabelle1.
Dort werden die Werte in den Spalten F bis H im Währungsformat aber nicht als Zahl eingetragen.
Ich habe jetzt ein Makro geschrieben, welche die Zellen in eine Zahl umwandelt:
Sub Zahl_aktivieren2()
Dim LetzteZeile As Long
Dim x As Long
LetzteZeile = Range("F65536").End(xlUp).Row
Dim C As Range
With Worksheets("Tabelle1")
For Each C In .Range("F10:H" & LetzteZeile)
If Not IsEmpty(C) Then
If IsNumeric(C) Then C = C * 1
End If
Next
End With
End Sub
Besten Dank
Gruss
Peter
Anzeige
