ich wollte gern den Inhalt einer Zelle ab der ersten Zahl trennen
"Zelle soll bei 28 getrennt werden"
Ergebnis: "Zell soll bei" und "28 getrennt werden"
wie bekomme ich die Position von der "2" heraus?
und das am liebsten per VBA :-)
Danke
Timonski
Sub test()
Dim sText As String
sText = "Zelle soll bei 28 getrennt werden"
MsgBox "Erster Teil = " & Trennen(sText, True)
MsgBox "Zweiter Teil = " & Trennen(sText, False)
End Sub
Private Function Trennen(sText As String, bTeil As Boolean) As String
Dim iZahl As Integer, iTrennen As Integer
For iZahl = 1 To Len(sText)
If IsNumeric(Mid(sText, iZahl, 1)) Then
iTrennen = iZahl
Exit For
End If
Next iZahl
If iTrennen = 0 Then
Trennen = "Keine Zahl vorhanden"
Exit Function
End If
If bTeil Then
Trennen = Left(sText, iTrennen - 1)
Else
Trennen = Right(sText, Len(sText) - iTrennen + 1)
End If
End Function
Sub test()
Dim sText As String, vntOut
sText = "Zelle soll bei 28 getrennt werden"
vntOut = Trennen(sText)
If IsArray(vntOut) Then
MsgBox "Erster Teil = " & vntOut(0)
MsgBox "Zweiter Teil = " & vntOut(1)
Else
MsgBox vntOut
End If
End Sub
Private Function Trennen(sText As String)
Dim iZahl As Integer
For iZahl = 1 To Len(sText)
If IsNumeric(Mid(sText, iZahl, 1)) Then
Exit For
End If
Next iZahl
If iZahl > Len(sText) Then
Trennen = "Keine Zahl vorhanden"
Else
Trennen = Array(Left(sText, iZahl - 1), Right(sText, Len(sText) - iZahl + 1))
End If
End Function