Sub übertragung()
Dim Geoeffnet_DAT As Workbook
Dim Letztespalte, Zaehler, i, n, spaltenzahl As Integer
Dim Letztezeile, DatLetztezeile, Dateiname, Endzelle, Buchstabe, spaltenbuchstabe As String
Dateiname = Tabelle6.Cells(1, 28)
Application.ScreenUpdating = False
Workbooks.Open Dateiname
Set Geoeffnet_DAT = ActiveWorkbook
Application.Wait (Now + TimeValue("00:00:01"))
Range("A24:W9999").SpecialCells(xlCellTypeVisible).Copy
ThisWorkbook.Activate
Geoeffnet_DAT.Close
Application.Wait (Now + TimeValue("00:00:01"))
Tabelle2.Range("a1").PasteSpecial
Application.ScreenUpdating = True
End Sub