Split Funktion
10.06.2020 14:47:42
Marc
mit Hilfe einer Splitfunktion möchte ich Textstellen aus einer Zelle eines Excel Sheets auslesen, die wie folgt aussieht:
"Account-Nummer: 30004514
Studioname: FitX - Club 56 - B2B Verwaltung Abrechnungsdatum: 11.02.2020
Leistungsdatum: 11.02.2020
Belegnummer: MC20-045546"
Mit dem folgenden Code teile ich den String zunächst auf mit Hilfe eines Doppelpunkts als Trennzeichen:
Sub Converter()
Dim Zeile As Integer, WS As Worksheet, Str As String, Temp As String, Datum As String, Beleg As _
String
Set WS = ThisWorkbook.Worksheets("Table 1")
' Datum & Abrechnungsnummer ermitteln
For Zeile = 1 To 5
If InStr(1, WS.Cells(Zeile, 1).Value, "Studioname") > 0 Then
Str = WS.Cells(Zeile, 1).Value
Exit For
Else
End If
Next Zeile
Dim Teilstring() As String
Teilstring = Split(Str, ":")
'On Error Resume Next
Datum = Split(Teilstring(3)) ' Fehlermeldung "Typen unverträglich!"
End Sub
" 11.02.2020
Leistungsdatum"
Kann mir jemand sagen weshalb VBA "Typen unverträglich" meldet wenn ich versuche die Leerzeichen aus Teilstring(3) mit einem weiteren Split zu entfernen? Muss ich die Variable Teilstring redimensionieren bevor ich sie erneut splitten kann?
VG,
Marc
