Office: Zahlen aussortieren

Servus zusammen!

Folgendes Problem 1 Spalte, 1000 Zeilen verschiedene Werte in jeder Zelle, Zahlen und Text. Wie bekomme ich nun die Zahlen die im Text enthalten sind eine Spalte weiter nach rechts? es sind zwischen Zahlen und Text keine Sonderzeichen oder sonstwas vorhanden. Wie Prüfe ich mit VBA auf zahl oder Text inerhalb eines Strings?


Gruß

 

Hallo,

schau mal ob dir diese benutzerdefinierte Funktion hilft:

Code:

Public Function GetNumber(rngQuell As Range) As Variant
'By sergiesam
Dim intStep As Integer, newNumber As String
Application.Volatile
If rngQuell = "" Then
GetNumber = ""
Exit Function
End If

For intStep = 1 To Len(rngQuell)
If IsNumeric(Mid(rngQuell, intStep, 1)) Then
newNumber = newNumber & Mid(rngQuell.Value, intStep, 1)
End If
Next

If newNumber <> "" Then
GetNumber = CDbl(newNumber)
Else
GetNumber = ""
End If
End Function

 

Super funktioniert echt gut.

Jetzt noch was hätte das gerne noch anderst rum also das alle Zahlen aus einem Text gelöscht werden und ich nur noch den Text dastehen hab.

Gruß

 

Hallo,

auch das ist machbar:

Code:

Public Function GetString(rngQuell As Range) As Variant
'By sergiesam
Dim intStep As Integer, newString As String
Application.Volatile

For intStep = 1 To Len(rngQuell)
If Not IsNumeric(Mid(rngQuell, intStep, 1)) Then
newString = newString & Mid(rngQuell.Value, intStep, 1)
End If
Next

GetString = newString
End Function