Text in einer Spalte mit Zahlen

Hallo zusammen,
ich erstelle in VBA derzeit eine automatisierte Import- und Formatierungsroutine. Soweit so gut.
Jetzt habe ich das Problem, dass in einer Spalte Werte(Zahlen) drin stehen. Aus welchem Grund auch immer, ist inmitten der Spalte aber nun plötzlich eine Zahl als Text auftaucht (verifiziert mit ISTTEXT).
Ich muss aber mit diesem Text rechnen. Was ich bisher versucht habe:
1. Formatierung ändern - erfolglos
2. Kopieren und als Wert einfügen - erfolglos
3. Was ich hier gelesen habe: mit 1 multiplizieren - erfolglos.
Über "Text in Spalten" habe ich etwas rumexperimentiert und so habe ich es geschafft, diesen Wert in eine Zahl umzuwandeln (mit dem Nachteil, dass ich die Kommastellen abgeschnitten habe).
Kann mir hier jemand einen praktikablen Ansatz vorschlagen, den ich auch in VBA niederschreiben kann?
P.S. Ich bringe mir gerade VBA bei und komme langsam aber sicher heran. Ich habe mir hier auch schon öfters Input hier aus dem Forum geholt. Zu meinem speziellen Problem habe ich jedoch bisher noch keine Lösung gefunden.
Viele Grüße
Axel

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Axel,
der Tipp von Anton mit zweimal Replace ist völlig richtig. Ich biete als alter Praktiker aus gutem Grund zwei Makros an!
Mir ist aufgefallen das die Zahl um die es geht -nicht in diese Reihe passt-! Überall sind kleine Werte, und dann die Zahl 8.300? Das erscheint mir seltsam. Deshalb das zweite Makro als Prüfung vor Replace, damit man sich die falschen Zahlen zuerst ansehen kann, und sie ggf., wenn das nicht passt, sie auch sofort löscht! Ich denke das ist der sichere Weg für diese Aufgabe.
mfg Piet

'Text mit Replace in Zahl umwandeln
Sub Text_umwandeln()
Columns("N").Replace What:=" ", Replacement:="", LookAt:=xlPart
Columns("N").Replace What:=".", Replacement:=",", LookAt:=xlPart
End Sub
'Text prüfen, ungültige Werte löschen
Sub Text_Prüfung_Löschen()
Dim AC As Object, lz As Long, ok
lz = Cells(Rows.Count, "N").End(xlUp).Row
For Each AC In Range("N3:N" & lz)
If Not IsNumeric(AC) Then
AC.Select
ok = MsgBox("Soll dieser Wert gelöscht werden?", vbYesNoCancel)
If ok = vbCancel Then Exit For
If ok = vbYes Then AC.Value = Empty
End If
Next AC
End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

360 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text in einer Spalte mit Zahlen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

360 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread