HI,
kann mir vielleicht jemand sagen wie man einen dateinamen einer variablen zuweisen kann?
mit dem jeweiligen dateinamen wird ein tabellenblatt generiert auf ds ich gerne zugreifen würde.
in diesem code wird der name gebildet
Const Pfad = "D:\excel\Neuer Ordner\Neu\Archiv" 'anpassen
Dim fn
Dim wb As Workbook, wb2 As Workbook
Set wb = ActiveWorkbook
ChDrive Pfad
ChDir Pfad
fn = Application.GetOpenFilename("Excel-Dateien (*.csv),*csv")
If fn = False Then Exit Sub
'Pfad prüfen:
If UCase(Left(fn, InStrRev(fn, "\") - 1)) UCase(Pfad) Then
MsgBox "Falscher Pfad!"
Exit Sub
End If
Application.ScreenUpdating = False
Set wb2 = Workbooks.Open(Filename:=fn)
wb2.Sheets(1).Copy After:=wb.Sheets(wb.Sheets.Count)
wb2.Close SaveChanges:=False
Application.ScreenUpdating = True
aber Sheets(fn) funktioniert nicht
Danke