Wie kann man nur nach Zahleneinträgen filtern? Habe das Problem, dass in einer Zahlenspalte die ich darstellen muss gewisse Texteinträge vorhanden sind (Fehleinträge).
Kann jemand helfen?
Co
Function Zahlen(Text As String)
Dim t As Integer
For t = 1 To Len(Text)
If IsNumeric(Mid(Text, t, 1)) Then
Zahlen = Zahlen & Mid(Text, t, 1)
End If
Next t
End Function
Function TextStr(Text As String)
Dim t As Integer
For t = 1 To Len(Text)
If Not IsNumeric(Mid(Text, t, 1)) Then
TextStr = TextStr & Mid(Text, t, 1)
End If
Next t
End Function