Mit dem folgenden Beispiel-VBA Code werden aus beliebigen Zellen alle Text-Zeichen außer Zahlen entfernt. Dies kann nach einem Datenimport notwendig werden. Denn durch den Import können sich beispielsweise Leerzeichen oder andere undefinierbare Zeichen eingeschlichen haben.
Wichtig ist, das Dezimaltrennzeichen im VBA-Code zu definieren, denn sonst wird es als unerwünschtes Zeichen erkannt und auch entfernt.
Voreingestellt ist das Komma (,) als Dezimaltrennzeichen.
Dieses Beispiel bereinigt die Zellen A1 bis A3.
Sub Zahlen_auslesen()
dezimaltrennzeichen = "," 'Dezimaltrennzeichen festlegen
For i = 1 To 3 'Exemplarisch für Zeile 1 bis 3
wert = Cells(i, 1).Value 'Exemplarisch für Spalte A - Also A1 bis A3
zellwert = ""
'In jeder Zelle werden alle Zeichen bearbeitet
For k = 1 To Len(wert)
z = Mid(wert, k, 1)
If Not (Asc(z) > 47 And Asc(z) < 58) Then
If z = dezimaltrennzeichen Then
If Not Asc(Mid(wert, k + 1, 1)) > 47 And Asc(Mid(wert, k + 1, 1)) < 58 Then
z = ""
End If
Else
z = ""
End If
End If
zellwert = zellwert & z
Next k
Cells(i, 2).Value = CDbl(zellwert) 'Werte werden in B1 bis B3 geschrieben
Next i
End Sub
Anfrage per E-Mail
+49(0) 151 164 55 914
Anfrage per Kontaktformular
Hilfe-Forum
