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

ist absolut technik-begeistert und großer Fan von Linux und Open Source. Raspberry Pi Bastler der ersten Stunde und nach wie vor begeistert von dem kleinen Stück Hardware, auf dem er tolle Projekte umsetzt. Teilt hier seine Erfahrungen mit Nextcloud, Pi-hole, YubiKey, Synology und openmediavault und anderen spannenden IT-Themen. Nutzt Markdown und LaTeX zum Dokumentieren seiner Projekte und Gitea zum Versionieren. Sitzt vor einem 49“ Monitor, nutzt Windows und MacOS zum Arbeiten, Linux auf seinen Servern und virtuellen Maschinen und hört dabei Spotify und MP3s und Radio-Streams über seinen RadioPi.
Vielen Dank dieser Artikel ist sehr hilfreich
Toll! Funktioniert aber nur mit ganzen Zahlen… Was müsste man ergänzen, damit das Dezimalkomma erkannt wird?