Werte in einem Bereich in Zahlen umwandeln [Excel]

Gespeichert von Erik Wegner am/um Do, 01.04.2010 - 22:27
Body

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