Hallo,
hab grad einen Code gefunden der eigentlich das machen sollte das ich vorhabe :)
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
Dim arrSplit As Variant ' ohne Klammern
Hi Eberhard,
vielen Dank! Ich werde es dann testen :) Vielen Dank für Deine Hilfe!!
Albert