ich versuche verzweifelt Zahlen die als Text in einer Spalte erfasst sind, in eine Zahl umzuwandeln, damit ich damit rechnen kann.
Momentan habe ich immer dieses kleine grüne Dreieck in der oberen linken Ecke, worauf ich dann klicken und den Text in Zahlen umwandeln kann. Ich brauche das aber als Makro. Nun habe ich viel recherchiert, und folgendes funktioniert immer noch nicht:
Sub TextinZahl()
' Umsatz- und Total Textzahlen in Zahlen umwandeln
ThisWorkbook.Worksheets("Monatsuebersicht").Activate
Range("H4") = 1
Range("H4").Copy
Range(Cells(4, 4), Cells(Cells(Rows.Count, 4).End(xlUp).Row, 4)).PasteSpecial _
Paste:=xlPasteAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
Range("D4:D200").NumberFormatLocal = "#.##0,00"
Application.CutCopyMode = False 'nicht zwingend notwendig
Range("H4") = "" 'löscht die 1 aus der ersten Zeile
End Sub
Woran mag es liegen? Vielen Dank für Eure Hilfe.