Makro zum auswählen von Dateien und auslesen von Daten aus mehreren Dateien

Question

Hallo,
Ich habe ein Problem und komme absolut nicht weiter. Ich möchte über einen Button aus zwei Dateien Daten auslesen. Soweit funktioniert auch alles. Das Problem was ich habe ist, dass der Dateiname sich forlaufend ändert. Wie kann ich das in dieses Makro einbauen, sodass ich den Dateinamen auswählen kann und die Daten trotzdem in die entsprechenden Zeilen eingefügt werden)


Private Sub CommandButton1_Click()
Dim WbDatei1 As Workbook
Dim WbDatei2 As Workbook
Dim WbDatei3 As Workbook

Set WbDatei2 = ThisWorkbook
Set WbDatei1 = Workbooks.Open("Y:\Eigene Dateien\3_FID\Test\WbDatei1\WbDatei1.xlsx", ReadOnly:=True)
Set WbDatei3 = Workbooks.Open("Y:\Eigene Dateien\3_FID\Test\WbDatei3\WbDatei3.xlsx", ReadOnly:=True)


For i = 2 To 4
WbDatei2.Sheets(1).Cells(i, 1).Value = WbDatei1.Sheets(1).Cells(i, 1).Value
WbDatei2.Sheets(1).Cells(i, 2).Value = WbDatei1.Sheets(1).Cells(i, 2).Value
WbDatei2.Sheets(1).Cells(i, 3).Value = WbDatei3.Sheets(1).Cells(i, 1).Value
Next i
WbDatei1.Close
WbDatei3.Close

Set WbDatei1 = Nothing
Set WbDatei2 = Nothing
Set WbDatei3 = Nothing
End Sub

Answer 1

Hallo,

meinst du das etwa so:

Private Sub CommandButton1_Click()

Dim Datei1, Datei3 As String
Dim WbDatei1 As Workbook
Dim WbDatei2 As Workbook
Dim WbDatei3 As Workbook

Datei1 = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xl*), *.xl*", Title:="Datei 1 - EINE Datei zum Öffnen auswählen")
Datei3 = Application.GetOpenFilename(FileFilter:="Microsoft Excel-Dateien (*.xl*), *.xl*", Title:="Datei 3 - EINE Datei zum Öffnen auswählen")

Set WbDatei2 = ThisWorkbook
Set WbDatei1 = Workbooks.Open(Datei1, ReadOnly:=True)
Set WbDatei3 = Workbooks.Open(Datei3, ReadOnly:=True)


For i = 2 To 4
WbDatei2.Sheets(1).Cells(i, 1).Value = WbDatei1.Sheets(1).Cells(i, 1).Value
WbDatei2.Sheets(1).Cells(i, 2).Value = WbDatei1.Sheets(1).Cells(i, 2).Value
WbDatei2.Sheets(1).Cells(i, 3).Value = WbDatei3.Sheets(1).Cells(i, 1).Value
Next i
WbDatei1.Close
WbDatei3.Close

Set WbDatei1 = Nothing
Set WbDatei2 = Nothing
Set WbDatei3 = Nothing

End Sub

Gruß

M.O.

Answer 2

keine Ahnung was "akorone" ist.
In Deinem Fall solltest Du getopen benutzen, schaue mal ins Archiv.

Gruß Hajo

Answer 3

Hallo M.O,

erstmal vielen Dank für deine Hilfe! Das öffnen der Datei klappt schon mal.
Allerdings zeigt er mir jetzt hier einen Fehler an:
WbDatei2.Sheets(1).Cells(i, 1).Value = WbDatei1.Sheets(1).Cells(i, 1).Value

Im Prinzip möchte ich einfach eine Datei (Dateiname ändert sich immer) über meinen Button öffnen und auslesen und die Werte dieser Tabelle sollen dann in festgelege Spalten bzw. Zeilen übernommen werden.

Answer 4

Hallo Arkone,

bei mir läuft das Makro ohne Probleme. Welche Fehlermeldung zeigt er denn an?
Poste doch auch mal dein Makro.

Gruß

M.O.

Answer 5

Hallo M.O.,

habe es gerade hinbekommen! Vielen Dank nochmal!

Gruß

Answer 6

Hallo Akarone,

danke für die Rückmeldung.

Gruß

M.O.