Stefan's Weblog

10Feb/142

Text in Zahlen umwandeln mit VBA

Text in Zahlen umwandeln - manuell

In einem meiner früheren Post habe ich bereits ein Makro hierfür gepostet ➡ Text in Zahlen umwandeln. Bei diesem Makro wird der zu formatierende Bereich dynamisch ermittelt. Es wird der Bereich A4 bis zu letzten beschriebenen Zelle in eine Zahl umgewandelt, anstatt dies manuell über den grünen Pfeil vorzunehmen, geht das bequem über das Makro.

Sub text_in_zahl()
    'Das Makro wandelt Text in Zahlen um
   
    Sheets("Tabelle1").Select
    
    ' Die letzte beschriebene Zelle wird ermittelt
    Dim loletzte As Long
    loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    
    With Range("a4" & ":a" & loletzte)
        .NumberFormat = "General"
        .Value = .Value
    End With
End Sub

Möchte man die so umgewandelten Zahlen z.B. in ein datum umwandeln, könnt ihr dieses Makro nutzen:

Sub datum_formatieren()

' Formatiert Zahlen in das Datumsformat mm.dd.yyyy

'
Application.ScreenUpdating = False

    Sheets("Tabelle1").Select
    
    Dim loletzte As Long
    loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row

    Range("a4" & ":a" & loletzte).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "m/d/yyyy"
    Application.CutCopyMode = False
    
End Sub

hat dir dieser Artikel gefallen?

Dann abonniere doch diesen Blog per RSS Feed!

Kommentare (2) Trackbacks (0)
  1. Vielen Dank dieser Artikel ist sehr hilfreich

  2. Toll! Funktioniert aber nur mit ganzen Zahlen… Was müsste man ergänzen, damit das Dezimalkomma erkannt wird?


Leave a comment

Noch keine Trackbacks.

%d Bloggern gefällt das: