3
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 ;)
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 220638
Url: https://administrator.de/forum/vba-split-funktion-auf-eine-access-tabelle-anwenden-220638.html
Ausgedruckt am: 10.01.2025 um 23:01 Uhr
3 Kommentare
Neuester Kommentar
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 SubGrüße Uwe
Danke euch beiden für die Antworten.
@ Snowman der code ist leider auf einen Fehler gelaufen... da ich beide antworten gleichzeitig gesehen habe, habe ich dierekt Uwes Antwort ausprobiert.
@ Uwe die Antwort ist klasse.
Ich musste nur die Konstanten nur durch die Werte aus meiner Datenbank füllen und Fertig.
Danke schön somit setzte ich die Frage auf gelöst.
@ Snowman der code ist leider auf einen Fehler gelaufen... da ich beide antworten gleichzeitig gesehen habe, habe ich dierekt Uwes Antwort ausprobiert.
@ Uwe die Antwort ist klasse.
Ich musste nur die Konstanten nur durch die Werte aus meiner Datenbank füllen und Fertig.
Danke schön somit setzte ich die Frage auf gelöst.
