Hi,
ich versuche gerade ein Makro zu programmieren, welches bestimmte Zellen mit Zahlen in Strings umwandelt. Mein Code funktioniert aber nicht -.-
Bin leider ein VBA Noob -.-
Sub Makro1()
Dim intI As Double
Dim x As String
If ActiveSheet.Name = "Tabelle1" Then
intI = Range(Cells(2, 1), Cells(3, 2))
x = Format(CStr(intI), "#,###.#0")
Range(Cells(1, 1), Cells(2, 2)) = x
End If
'
End Sub
|