Laufzeitfehler 13

[silentwolf]

Hallo,
hab grad einen Code gefunden der eigentlich das machen sollte das ich vorhabe

Code [Auswählen] Erweitern

Sub UpdateFields()
    Const TABELLE = "tbl_CSV"
    Const SPALTE = "Umsatztext"
   
        Dim fld_split As Variant
        Dim arrSplit() As Variant
        Dim new_Value As Variant

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset(TABELLE)
    While Not rs.EOF
        fld_split = rs.Fields(SPALTE).Value
        arrSplit = Split(fld_split, "(")

        If UBound(arrSplit) > 0 Then

            new_Value = arrSplit(1)
            new_Value = Left(new_Value, InStr(1, new_Value, vbTextCompare) - 1)
            rs.Edit
            rs.Fields(SPALTE).Value = new_Value           
            rs.Update
        End If
        rs.MoveNext
    Wend
    rs.Close
End Sub

Ich bekomme in der Zeile
arrSplit = Split(fld_split, "(") den Fehler.
Im original code sind eigentlich keine Variablen deklariert deshalb habe ich mit string und double probiert aber ohne Erfolg.
Wie oben gezeigt habe ich nun alle Varialben auf variant gesetzt aber trotzdem noch der Fehler.
Weis jemand was hier das Problem ist?
Wäre dankebar für einen Tipp! Wie immer

Lg
Albert

[ebs17]

Code [Auswählen] Erweitern

Dim arrSplit As Variant    ' ohne Klammern

[silentwolf]

Hi Eberhard,

vielen Dank! Ich werde es dann testen Vielen Dank für Deine Hilfe!!

Albert