Office: Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Jonas0806 · 12. Januar 2021

Guten Morgen,

von Office_user

Habe den Textdatei-Import mittlerweile mit folgendem Code (gefunden im Netz) gelöst:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aha, schön, wie Du die Mühe würdigst, die sich freiwillige Helfer für Dich machen. Wieso Du keinen der hier genannten Ansätze umgesetzt hast, weißt wohl nur Du. *rolleyes.gif*

von Office_user

Jetzt das nächste Problem:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie ich bereits schrieb, keinerlei Feedback zu den bisherigen Bemühungen. Aber mit Deinem nächsten Problem bist Du natürlich zur Stelle. Ich bin hier raus.

H_E_K · 12. Januar 2021

von Jonas0806

Guten Morgen,

Aha, schön, wie Du die Mühe würdigst, die sich freiwillige Helfer für Dich machen. Wieso Du keinen der hier genannten Ansätze umgesetzt hast, weißt wohl nur Du. *rolleyes.gif*

Wie ich bereits schrieb, keinerlei Feedback zu den bisherigen Bemühungen. Aber mit Deinem nächsten Problem bist Du natürlich zur Stelle. Ich bin hier raus.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dito.

Office_user · 10. Januar 2018

Hallo zusammen,

Sorry. Wollte auf keinen Fall jemanden verärgern.

Gruß Gerhard

chris-kaiser · 11. Januar 2018

Hi,

Code:

Sub komische_sache()
Dim ArrCol(2)
Dim IntCol As Integer, i As Integer
Dim ar()
ArrCol(0) = 9 'I
ArrCol(1) = 11 'K
ArrCol(2) = 15 'O
For IntCol = 0 To 2
ar() = Range(Cells(1, ArrCol(IntCol)), Cells(Cells(Rows.Count, ArrCol(IntCol)).End(xlUp).Row, ArrCol(IntCol)))
For i = LBound(ar()) To UBound(ar())
ar(i, 1) = CDate(ar(i, 1))
Next
Range(Cells(1, ArrCol(IntCol)), Cells(Cells(Rows.Count, ArrCol(IntCol)).End(xlUp).Row, ArrCol(IntCol))) = ar()
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

stammt aus der PN

Hallo,

PN sind zwar nicht erwünscht, aber ich wusste jetzt nicht ob auf den alten Thread noch jemand antwortet.

Ich bin im Forum auf einen Thread aus 2007 gestoßen, bei dem folgender Code von Ihnen auch mein Problem (Datumsformat wird nicht erkannt) (http://www.ms-office-forum.net/forum...d.php?t=223054) lösen würde:

Sub komische_sache()
Dim ar()
ar() = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
For i = LBound(ar()) To UBound(ar())
ar(i, 1) = CDate(ar(i, 1))
Next
Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row) = ar()
End Sub

Ich würde den Code für Spalte I,K u. O (drei Spalten mit Datum benötigen. Geht das?

Danke im Voraus für Ihre Rückantwort.

Gruß Gerhard
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office_user · 16. Januar 2018

Hallo Chris,

Danke für deine Rückantwort.

Habe den Code eingebaut und bekomme bei Zeile:

ar(i, 1) = CDate(ar(i, 1))

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

Den Fehler: Laufzeitfehler 13: Typen unverträglich

Was mach ich falsch?

Gruß Gerhard

chris-kaiser · 16. Januar 2018

Hallo Gerhard,

in einer Zelle steht kein Datum bzw. etwas was nicht als Datum erkannt wird.
Ich tippe mal darauf das du eine Überschrift hast.
Dann müsste statt
ar() = Range(Cells(1......

eine Zwei rein
ar() = Range(Cells(2......

bei der Übergabe an die Zellen natürlich auch die 1 ändern!
beginnen bei dir die Daten ab Zeile 3 dann auf 3 ändern

Office_user · 16. Januar 2018

Hallo Chris,

das war's! In der Zeile:

Next
Range(Cells(2,
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

auch noch ändern und es macht wie es soll.

Vielen Dank!

Gruß Gerhard

Office: Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren

Aktuellste .txt-Datei öffnen und in andere Excel-Mappe kopieren - Similar Threads - Aktuellste Datei öffnen

Aktuelles Datum und Uhrzeit in Formular

Einfügen des aktuellen Excel-Datei namens,-Pfads oder-Arbeitsblatts in eine Zelle

Prüfen ob die Datei vorhanden und aktuell ist

VBA: Dateien auflisten aus den Unterordnern des aktuellen Ordners (1. Ebene)

VBA: Aktuellste Excel-Datei öffnen mit "GetObject"

Neues verzeichnis öffnen mit Zellbezug zur aktuellen datei

Uralte .wps Dateien mit aktueller works Version nutzbar?