Datumsformat für Dateiöffnung

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Vielen Dank Sigi & Onur für die schnelle Rückmeldung. Das was Onur geschrieben hat ist genau das, was ich gesucht habe für den ersten Schritt (zumindest sehe ich das richtige Ergebnis wenn ich mit F8 durch das Makro springe).

Ich möchte 4 Variablen zu 4 Stichtagen festlegen, die in den Zellen A1:A4 aufgeführt sind, bspw.
v1 = Format(Sheets("Tabelle1").cells(1,1),"yyyymmdd")
v2 = Format(Sheets("Tabelle1").cells(2,1),"yyyymmdd")
v3 = Format(Sheets("Tabelle1").cells(3,1),"yyyymmdd")
v4 = Format(Sheets("Tabelle1").cells(4,1),"yyyymmdd")

und im nächsten Schritt die 4 Dateien nacheinander mit einer Schleife anhand des Namen der Variablen öffnen sprich

for v =1 to 4
workbooks.open filename :="G:\Test\xxx_" & v & ".txt"
Sheets("xxx_" & v & ")").Columns("A").Copy
Workbooks("ABC.xlsm").Sheets("Test2").Range("A1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Workbooks("xxx_" & v & ".txt").Close False

das funktioniert aktuell aber noch nicht, daher die Bitte um Unterstützung, vielen Dank vorab!

    Dim i, v

    For i = 1 To 4

    Workbooks.Open Filename:="G:\Test\xxx_" & v(i) & ".txt"

        v = Format(Sheets("Tabelle1").Cells(i, 1), "yyyymmdd")

        Sheets("xxx_" & v & ")").Columns("A").Copy

        Workbooks("ABC.xlsm").Sheets("Test2").Range("A1").PasteSpecial Paste:=xlValues

        Application.CutCopyMode = False

        Workbooks("xxx_" & v & ".txt").Close False

    Next i

Aber das ist irgendwie auch Quatsch, denn du öffnest 4 Dateien und schreibst daraus einen bestimmten Wert in immer die gleiche Zelle (A1) .
D.h. NUR DER LETZTE WERT bleibt erhalten. Soll das IMMER in A1 kopiert werden ???
Wenn untereinander, dann:

Workbooks("ABC.xlsm").Sheets("Test2").Range("A" & i).PasteSpecial Paste:=xlValues

Sub aa() Dim v(1 To 4), i As Integer Dim wkbQuelle As Workbook Dim wksZiel As Worksheet Set wksZiel = Workbooks("ABC.xlsm").Sheets("Test2") For i = 1 To 4 v(i) = Format(Sheets("Tabelle1").Cells(i, 1), "YYYYMMDD") Next i For i = 1 To 4 Set wkbQuelle = Workbooks.Open(Filename:="G:\Test\xxx_" & v(i) & ".txt") Sheets("xxx_" & v(i)).Columns("A").Copy 'das ist Unsinn: (immer der gleiche Zielbereich) wksZiel.Range("A1").PasteSpecial Paste:=xlPasteValues 'vielleicht so? (nebeneinander) 'wksZiel.Cells(1, i).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False wkbQuelle.Close False Next i End Sub

Sub ÖffnenUndKopieren() Dim Val Dim WB As Workbook For Each Val In ThisWorkbook.Worksheets("Tabelle1").Range("A1:A4").Value Set WB = Datei_öffnen(Filename:="G:\Test\xxx_" & Format(Val, "yyyymmdd") & ".txt") If Not WB Is Nothing Then WB.Sheets(1).Columns(1).Copy 'Eine Textdatei führt zu einem WB mit nur einen Sheet! Workbooks("ABC.xlsm").Sheets("Test2").Range("XFD1").End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlValues 'Spalten nebeneinander Application.CutCopyMode = False WB.Close False End If Next End Sub Private Function Datei_öffnen(Dateiname As String) As Workbook On Error Resume Next Set Datei_öffnen = Workbooks.Open(Dateiname) End Function

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datumsformat für Dateiöffnung

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread