Werte in einem Bereich in Zahlen umwandeln [Excel]

Submitted by Erik Wegner on

Beschreibung

Das Makro erwartet die Angabe zweier Zellen. Anschließend wird der damit abgegrenzte Bereich in Zahlen umgewandelt. Diese Funktion ist beim Import aus Fremdformaten (z. B. CSV-Dateien) nützlich.

Quellcode

Sub wandleBereichInZahl(start$, ende$)
	Dim r As Range
	Set r = Range(start$)
	spalte1 = r.Column
	zeile1 = r.Row
	Set r = Range(ende$)
	spalte2 = r.Column
	zeile2 = r.Row
	If (spalte1 > spalte2) Then
		x = spalte1
		spalte1 = spalte2
		spalte2 = x
	End If
	If (zeile1 > zeile2) Then
		x = zeile1
		zeile1 = zeile2
		zeile2 = x
	End If

	For spalte = spalte1 To spalte2
		For zeile = zeile1 To zeile2
			Set r = Cells(zeile, spalte)
			r.Formula = CDbl(r.Text)
			r.NumberFormat = "General"
		Next
	Next
End Sub
Categories