AW: unterschiedlich formatierte Zahlen sortieren
Michael
Hallo Werner,
das folgende Makro wandelt Dir alle Textwerte in numerische Werte um. Du brauchst nur den Index des Arbeitsblattes, Spalte und Startzeile zu modifizieren.
Option Explicit
Sub Text_in_Wert()
Dim wks As Worksheet
Dim i As Long
Dim lngStart As Long
Dim lngEnde As Long
Dim intSpalte As Integer
' Zeiger auf gewünschtes Workbook setzen
Set wks = ThisWorkbook.Sheets(1)
' Spaltennummer für zu bearbeitende Werte setzen
intSpalte = 1
' Erste Zeile, die bearbeitet werden soll
lngStart = 1
' Letzte Zeile, die bearbeitet werden soll
lngEnde = wks.UsedRange.Rows.Count
' Spalte durchlaufen
For i = lngStart To lngEnde
' Nur wenn Zelle nicht leer
If Not IsEmpty(wks.Cells(i, intSpalte)) Then
' Wenn Zahl als Zeichenfolge vorhanden, dann in Double Wert umwandeln
If IsNumeric(wks.Cells(i, intSpalte)) Then _
wks.Cells(i, intSpalte).Value = CDbl(wks.Cells(i, intSpalte).Value)
End If ' If Not IsEmpty(wks.Cells(i, intSpalte))
Next i ' For i = lngStart To lngEnde
End
Sub ' Text_in_Wert
CIAO
Michael