Habe einen Code der mir einen bestimmten Bereich aus einer gewählten Datei kopiert und einfügt.
Jetzt würde ich gerne anstelle des Bereichs einfach das ganze Blatt inkl. Formatierung kopieren und einfügen. Es wäre auch möglich den zuvor gewählten Bereich inkl. seiner Formatierung zu kopieren.
Sub Reifenliste()
uitwerkingnaam = (Application.ActiveWorkbook.Name)
Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
If Filename = "" Then
teller = 0
Do Until teller = 2
teller2 = teller + 1
MsgBox "you must select an xls file"
Filename = Application.GetOpenFilename("XLS files (*.xlsx), *.xlsx")
Loop
Else
Workbooks.Open Filename:=Filename
End If
'Festlegung des Tabellennamens auf der die Daten sind
sheetname = "Tabelle1"
'Meldung des Zwischenspeichers ausblenden
Application.DisplayAlerts = False
Worksheets(sheetname).Range("A8:J500").Copy 'Bereich der aus der eingefügten Datei kopiert _
wird'
bandnaam = (Application.ActiveWorkbook.Name)
Windows(bandnaam).Close
'Windows(uitwerkingnaam).Activate
'Ort an den die Daten kopiert werden'
ActiveSheet.Paste Destination:=Worksheets("Reifenliste").Range("B3") 'Beginn der eingefü _
gten Daten'
Worksheets("Reifenliste").Activate
Worksheets("Reifenliste").Range("A3").Select 'Hier steht der Name _
der Datei die eingefügt wurde'
Selection.Formula = bandnaam
'Meldung Zwischenspeicher wieder aktivieren
Application.DisplayAlerts = True
'Zelle die nach dem Einfü _
gen makiert wird'
Worksheets("Home").Activate
Worksheets("Home").Range("B18").Select
End Sub