VBA Split Funktion auf eine Access Tabelle Anwenden
Hallo,
ich habe folgendes Problem,
in einer Tabelle in access 2010 steht folgendes
"xyz (50%) xy" das xyz und das xy sind nicht immer gleich lang.
wie muss meine Split funktion in VBA aussehen, dass ich nur die 50 in einer Splate stehen habe?
Vielen Dank für eure Antworten ;)
ich habe folgendes Problem,
in einer Tabelle in access 2010 steht folgendes
"xyz (50%) xy" das xyz und das xy sind nicht immer gleich lang.
wie muss meine Split funktion in VBA aussehen, dass ich nur die 50 in einer Splate stehen habe?
Vielen Dank für eure Antworten ;)
Please also mark the comments that contributed to the solution of the article
Content-Key: 220638
Url: https://administrator.de/contentid/220638
Printed on: April 25, 2024 at 22:04 o'clock
3 Comments
Latest comment
Hallo @mobuns,
Probiers mit
Ich bin mir nicht sicher, ob das direkte Ansprechen der Array-Elemento so funktioniert. Probier's aus
Gruß,
@Snowman25
Probiers mit
Dim Result as String = Split(Split("xyz (50%) xy", "(")(1), "%")(0)
Gruß,
@Snowman25
Hallo JokerM,
und wenn du gleich alle Datensätze deiner Tabelle updaten willst, kannst du folgenden Code verwenden:
(Namen der Tabelle in Zeile 2, und den Spaltennamen in der jetzt deine Werte stehen in Zeile 3 angeben)
Grüße Uwe
und wenn du gleich alle Datensätze deiner Tabelle updaten willst, kannst du folgenden Code verwenden:
(Namen der Tabelle in Zeile 2, und den Spaltennamen in der jetzt deine Werte stehen in Zeile 3 angeben)
Sub UpdateFields()
Const TABELLE = "Tabelle1"
Const SPALTE = "Prozent"
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
Grüße Uwe