Hallo zusammen,
ich habe über die Online Suche folgender Makro gefunden:
Sub test()
Dim fn
fn = Application.GetOpenFilename(FileFilter:="Excel-Arbeitsmappen,*.xls", Title:="Bitte Datei _
auswählen")
If fn = False Then
MsgBox "Benutzerabbruch"
Exit Sub
End If
Range("A8") = fn
End Sub
Ich würde noch gerne eine zusätzliche Funktion einbauen:
Nachdem der Dateiname in A8 eingefügt wurde, soll das Makro den ausgesuchten Pfad in den Formeln, die in den Bereichen B8:G8 und I8:BR8, einbauen, so dass die Formeln sich nicht mehr auf den Tabellenblatt "Abrechnungsblatt" beziehen, sondern auf der über Makro ausgesuchten Datei - Tabellenblatt "Abrechnungsblatt".
Wenn ich die Formeln nicht ersetze, müsste ich mit der Funktion INDIREKT arbeiten, könnte die Daten aber nur aus geöffneten Dateien aktualisieren lassen und dass möchte ich nicht.
Gruss
Salim