Office: Datum aus txt.Datei aufsplitten...=

Helfe beim Thema Datum aus txt.Datei aufsplitten...= in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; dieses Datum steht in einer txt.Datei an 17 Stelle und wird mittels Excel-VBA eingelesen ...;2019-05-17;... wie kann ich mittels "Split" (oder noch... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von SaerdnaLedoer, 30. Juni 2019.

Seite 1 von 2

SAERDNALEDOER

SaerdnaLedoer

Datum aus txt.Datei aufsplitten...=

dieses Datum steht in einer txt.Datei an 17 Stelle und wird mittels Excel-VBA eingelesen
...;2019-05-17;...

wie kann ich mittels "Split" (oder noch anders) dieses Datum in seine einzelnen Teile zerlegen, um die Zahlen dann in vorbestimmte Zellen (z.B. "ActiveSheet.Cells(6, 5) = " einzufügen?

Ich arbeite mit Excel2016

:)

SaerdnaLedoer, 30. Juni 2019

#1
MASE

Mase

Hi,

zeig mal den kompletten String...

Mase, 2. Juli 2019

#2
SAERDNALEDOER

SaerdnaLedoer

Siehe Anhang.

SaerdnaLedoer, 2. Juli 2019

#3
MASE

Mase

Datum aus txt.Datei aufsplitten...=

Versuchs mal so:
Code:

Sub SplitA()
Dim sArr() As String
Dim s As String
Dim i As Long
s = "0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-"
sArr = Split(s, ";")
For i = 1 To UBound(arr()) Step 1
Cells(1, i).Value = arr(i)
Next i
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 2. Juli 2019

#4
SAERDNALEDOER

SaerdnaLedoer

... mmmh, das konnte das Script ja schon.

Ich möchte, das die Position 17 aus der "Textdatei" das = ...;2019-05-17; ...
nochmal in einzelne Zeichen zerlegt wird, damit diese einzelnen Zeichen in einzelne Zellen eingefügt werden können.

SaerdnaLedoer, 2. Juli 2019

#5
MASE

Mase

Da Du ja bereits Zeilenweise arbeitest, dürfte Dir das weiterhelfen:
Code:

Sub SplitA()
Dim sArr() As String
Dim sArrDate() As String
Dim s As String
Dim i As Long
s = "0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-"
sArr = Split(s, ";")
sArrDate = Split(sArr(17), "-")
i = 0
Do While UBound(sArrDate()) >= i
Debug.Print sArrDate(i)
i = i + 1
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 2. Juli 2019

#6
SAERDNALEDOER

SaerdnaLedoer

Moin Moin Marco,

erst einmal Danke! Jetzt wird in "2019" und "05" und "17" aufgesplittet.

Ich brauche es so:

ActiveSheet.Cells(2, 5) = "2"
ActiveSheet.Cells(2, 6) = "0"
ActiveSheet.Cells(2, 7) = "1"
ActiveSheet.Cells(2, 8) = "9"
ActiveSheet.Cells(2, 9) = "0"
ActiveSheet.Cells(2, 10) = "5"
ActiveSheet.Cells(2, 11) = "1"
ActiveSheet.Cells(2, 12) = "7"

ohne Trennzeichen...

SaerdnaLedoer, 2. Juli 2019

#7
MASE

Mase

Datum aus txt.Datei aufsplitten...=

Moin,

dann eben noch ne Schleife *wink.gif*
Code:

Sub SplitA()
Dim sArr() As String
Dim sArrDate() As String
Dim s As String
Dim i As Long, l As Long
s = "0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-"
sArr = Split(s, ";")
sArrDate = Split(sArr(17), "-")
i = 0
Do While UBound(sArrDate()) >= i
If IsNumeric(sArrDate(i)) Then
For l = 1 To Len(sArrDate(i))
Debug.Print Mid(sArrDate(i), l, 1)
Next
End If
i = i + 1
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 2. Juli 2019

#8
MASE

Mase

P.S.:

Ich brauche es so:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kommst Du klar damit?
Code:

Debug.Print Mid(sArrDate(i), l, 1)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muss durch eine weitere Schleife nun ersetzt werden, sodass Du diese Effekt erreichst:
Code:

ActiveSheet.Cells(2, 5) = "2"
ActiveSheet.Cells(2, 6) = "0"
ActiveSheet.Cells(2, 7) = "1"
ActiveSheet.Cells(2, 8) = "9"
ActiveSheet.Cells(2, 9) = "0"
ActiveSheet.Cells(2, 10) = "5"
ActiveSheet.Cells(2, 11) = "1"
ActiveSheet.Cells(2, 12) = "7"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 3. Juli 2019

#9
SAERDNALEDOER

SaerdnaLedoer

ich hatte noch nicht soviel Zeit... *wink.gif*

Wenn ich nach der Zeile:

Debug.Print Mid(sArrDate(i), l, 1)

diese 4 Zeilen einfüge (zum Testen), wir nur die 1 (Zelle 5, 3) und die 7 (Telle 5, 4) eingetragen

ActiveSheet.Cells(5, 3) = Mid(sArrDate(i), 1, 1)
ActiveSheet.Cells(5, 4) = Mid(sArrDate(i), 2, 1)
ActiveSheet.Cells(5, 5) = Mid(sArrDate(i), 3, 1)
ActiveSheet.Cells(5, 6) = Mid(sArrDate(i), 4, 1)

Wo liegt mein Fehler?

SaerdnaLedoer, 3. Juli 2019

#10
MASE

Mase

Naja fast *wink.gif*
Code:

Sub SplitA()
Dim sArr() As String
Dim sArrDate() As String
Dim s As String
Dim i As Long, l As Long, lngCol As Long
s = "0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-"
sArr = Split(s, ";")
sArrDate = Split(sArr(17), "-")
i = 0
lngCol = 3 'Start in Spalte C
Do While UBound(sArrDate()) >= i
If IsNumeric(sArrDate(i)) Then
For l = 1 To Len(sArrDate(i))
'Debug.Print Mid(sArrDate(i), l, 1)
Cells(5, lngCol).Value = Mid(sArrDate(i), l, 1)
lngCol = lngCol + 1
Next
End If
i = i + 1
Loop
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 3. Juli 2019

#11
DROGIST

Drogist

von SaerdnaLedoer

wie kann ich mittels "Split" (oder noch anders) dieses Datum in seine einzelnen Teile zerlegen[..]
Ich arbeite mit Excel2016
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da hast du doch etwas Feines schon on board ... *cool.gif*
Ich habe die Textdatei unter d*biggrin.gif*atatxtSPLIT.txt abgelegt.

Zuletzt von einem Moderator bearbeitet: 2. März 2021

Drogist, 3. Juli 2019

#12
MASE

Mase

Datum aus txt.Datei aufsplitten...=

Laaaaangweilig *tongue.gif*

Mase, 3. Juli 2019

#13
SAERDNALEDOER

SaerdnaLedoer

Moin Moin Marco,

Super, jetzt werden die Zahlen einzeln in die Zellen geschrieben.

Ein hab ich aber noch. Wie kann die Reihenfolge verändert werden?

Das das rauskommt: 17052019

PS: Drogist, Danke. Das ist aber nicht das, was ich suche. *rolleyes.gif*

SaerdnaLedoer, 3. Juli 2019

#14
MASE

Mase

Freut mich, Andreas.

'Rückwärts':
Code:

Sub SplitB()
Dim sArr() As String
Dim sArrDate() As String
Dim s As String
Dim i As Long, l As Long, lngCol As Long
s = "0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-;0;eins;-;-;vier;5;sechs;7;acht;9;zehn;11;12;13;-;-;16;2019-05-17;achtzehn;etc;-"
sArr = Split(s, ";")
sArrDate = Split(sArr(17), "-")
i = UBound(sArrDate())
lngCol = 3 'Start in Spalte C
Do While LBound(sArrDate())
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mase, 3. Juli 2019

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Datum aus txt.Datei aufsplitten...=

Die Seite wird geladen...

Datum aus txt.Datei aufsplitten...= - Similar Threads - Datum Datei aufsplitten
Serienbrief, Datum plus 7 Tage
in Microsoft Word Hilfe
Serienbrief, Datum plus 7 Tage: Hallo, ich wollte gerne in meinem Serienbrief um eine Rückantwort mit Datum bitten. Die Rückantwort soll 7 Tage nach dem aktuellen Datum erfolgen. Ich habe dazu folgendes gemacht: [ATTACH] Mein...
Datum einer Datei per VBA auslesen
in Microsoft Access Hilfe
Datum einer Datei per VBA auslesen: Hallo, ich möchte mit Access VBA das Änderungsdatum einer Excel-Datei auslesen. Hat vielleicht einer eine Idee oder so etwas schon mal gemacht? Über jede Hilfe wäre ich sehr dankbar. liebe Grüße...
Dokumente und Blatt umbenennen
in Microsoft Word Hilfe
Dokumente und Blatt umbenennen: Ich lade mir jeden Tag csv-Dateien von meiner Bank herunter. Diese sind mit Datum versehen, also die Datei selbst und das erste Blatt, z.B. "Konto_13.02.2024". Wenn ich ein Makro erstelle, in dem...
Datei speichern mit heute Datum
in Microsoft Excel Hilfe
Datei speichern mit heute Datum: Hallo, ich möchte mittels Makro eine bestimmte Datei speichern unter mit dem heutigen Datum: Beispiel: ChDir "C:\Desktop" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _...
datei speichern unter Name und datum per vba
in Microsoft Excel Hilfe
datei speichern unter Name und datum per vba: Hallo, ich möchte eine Datei täglich archivieren unter C:\Eigene Dateien\Archiv. Nun soll die Datei per Knopfdruck gespeichert werden und den Namen beibehalten. Es soll nur noch das Aktuelle Datum...
Dateien auf ftp-Server nach Datum herunterladen
in Microsoft Access Hilfe
Dateien auf ftp-Server nach Datum herunterladen: Guten Tag Ich möchte meine DB mit Textdateien ab dem letzten Tabelleneintrag nachführen. Mein Bastelei sieht so aus: Public Function Daten_aktualisieren_neu() Dim strServer...
immer letzte Datei (Datum) einlesen...
in Microsoft Access Hilfe
immer letzte Datei (Datum) einlesen...: Hallo ich habe leider nicht finden können was ich suche. Ich möchte immer die letzte Datei vom Datum her in eine Accessbank einlesen. Hatte in früheren Banken immer in einem Verz. eine feste...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden