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
Dieser Vorgang dauert relativ lange. Kennt ihr eine schnellere Lösung?Besten Dank
Gruss
Peter