Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBA Split Funktion auf eine Access Tabelle Anwenden

Mitglied: mobuns

mobuns (Level 1) - Jetzt verbinden

28.10.2013 um 16:55 Uhr, 2874 Aufrufe, 3 Kommentare

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 ;)
Mitglied: Snowman25
28.10.2013 um 17:45 Uhr
Hallo mobuns,
Probiers mit
Dim Result as String = Split(Split("xyz (50%) xy", "(")(1), "%")(0)
Ich bin mir nicht sicher, ob das direkte Ansprechen der Array-Elemento so funktioniert. Probier's aus

Gruß,
Snowman25
Bitte warten ..
Mitglied: colinardo
28.10.2013 um 18:19 Uhr
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)
01.
Sub UpdateFields()
02.
    Const TABELLE = "Tabelle1"
03.
    Const SPALTE = "Prozent"
04.
    Dim rs As Recordset
05.
    Set rs = CurrentDb.OpenRecordset(TABELLE)
06.
    
07.
    While Not rs.EOF
08.
        fld_split = rs.Fields(SPALTE).Value
09.
        arrSplit = Split(fld_split, "(")
10.
        If UBound(arrSplit) > 0 Then
11.
            new_value = arrSplit(1)
12.
            new_value = Left(new_value, InStr(1, new_value, "%",vbTextCompare) - 1)
13.
            rs.Edit
14.
            rs.Fields(SPALTE).Value = new_value
15.
            rs.Update
16.
        End If
17.
        rs.MoveNext
18.
    Wend
19.
    rs.Close
20.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: mobuns
28.10.2013 um 21:17 Uhr
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.
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Access - VBA - Anzahl von Unterordnern in Access, DIR funktion liefert falsches Ergebnis

gelöst Frage von thomas1972Microsoft Office2 Kommentare

Hallo, ich versuche aus einem Verzeichnis die Anzahl Unterordner sowie die Anzahl von Dateien auszulesen Leider erkennt dieser sowohl ...

Microsoft Office

Kreuztabelle Access + VBA Code

Frage von Dr.CornwallisMicrosoft Office7 Kommentare

Hallo zusammen, ich habe eine Kreuztabelle aus einer Query erzeugt, aus dieser entsteht wiederum ein Bericht, nun habe ich ...

Datenbanken

Syntaxfehler VBA Access 2010

gelöst Frage von Dr.CornwallisDatenbanken6 Kommentare

Liebe Gemeinde, ich habe (schon wieder) einen Fehler im Code und ich komm einfach nicht drauf warum es nicht ...

VB for Applications

VBA Code Änderung Access 2010

gelöst Frage von Dr.CornwallisVB for Applications6 Kommentare

Liebe Gemeinde, ein Kollege hat mir einmal einen VBA Code zur Ermittlung des 1. und 5. Arbeitstags eines Monats ...

Neue Wissensbeiträge
iOS
WatchChat für Whatsapp
Tipp von Criemo vor 17 StundeniOS

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 1 TagiOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 3 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 3 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Server 2010: Keine Eingehenden E-MAils
gelöst Frage von gabeBUExchange Server17 Kommentare

Hallo Zusammen Ich habe das kurzen auf dem Exchange 2010 Server das Problem, dass ich keine externen E-Mails mehr ...

Server
Server in zwei verschiedene Netzwerke einbinden
gelöst Frage von BennyFServer13 Kommentare

Hallo zusammen, bei uns im Haus sind im Erdgeschoss die Geschäftsräume und ab dem 1. Stock sind unsere privaten ...

Windows Netzwerk
Kerio. Kann keine Mails empfangen aber senden. Wer ist schuld. Kerio oder Windows domäne?
Frage von frosch2Windows Netzwerk13 Kommentare

Hallo, es existiert ein Problem bei uns mit dem mailen. Alle bestehenden Nutzer können mailen. Raus wie rein. Neuen ...

Netzwerkmanagement
Ticketsystem für eine Kommune gesucht
gelöst Frage von akovisNetzwerkmanagement11 Kommentare

Ich suche aktuell ein Ticketsystem für eine Kleinstadt von 13000 Einwaohnern. Das System soll alle Anfragen aus verschiedenen Kanälen ...