Tabellenblatt Import/ Copy
09.12.2021 21:11:16
Sigi
Ich möchte in meine Arbeitsmappe ("RG_Leer") ein Tabellenblatt aus einer Arbeitsmappe, nur ein Tabellenblatt, mit dem TabNamen("RG_Leer") kopieren,
Ausgelöst wird dies durch einen Klick auf mein ListView (UFJ.lvwRG_Bestand)
Dies dauert ca. 15 Sekunden
Lösche ich das Tabellenblatt("RG_Leer") und füge das neue Tabellenblatt aus der geschlossenen Arbeitsmappe ein,
dauert dies nur ca.0,39 Sekunden
Wo liegt mein Fehler?
Danke!
Gruß
Sigi
Sub RG_lvwOeffnen()
Dim wkb As Workbook
Dim wks As Worksheet
Dim Z As Long
Dim sDatei As String, sPath As String
Dim rng As Range
Dim Start As Double
Z = UFJ.lvwRG_Bestand.SelectedItem.ListSubItems(6) 'Angabe Zeilennummer
UFJ.Tag = "X" 'Tag Eigenschaften von Steuerelementen verhindern
Set wks = ThisWorkbook.Worksheets("RGJ")
UFJ.cboRG_Kundenauswahl.Value = wks.Cells(Z, 5).Value
sDatei = wks.Cells(Z, 28).Value 'Name der zu öffenden Datei
App_aus 'Schaltet die Applictionen.DisplayAlerts etc aus
Sheets("RG_Leer").Delete 'Lösche das Rechnungsblatt
sPath = ThisWorkbook.Path & "\" & "Kunden" & "\" & UFJ.cboRG_Kundenauswahl.Value & "\" & "Rechnung" & "\" & sDatei & ".xlsx"
Set wkb = Workbooks.Open(sPath)
With ThisWorkbook
Worksheets(1).Copy after:=.Worksheets(.Worksheets.Count)
End With
Debug.Print Format(Timer - Start, "#0.00") & " 1" 'Laufzeitdauer ca. 0,39 sec
wkb.Close saveChanges:=False
Set wkb = Nothing
Set wks = Nothing
Application.CutCopyMode = False
App_ein
'Anstelle das Tabellenblatt ("RG_Leer") zu löschen
wkb.Worksheets("RG_leer").UsedRange.Copy ThisWorkbook.Worksheets("RG_Leer").Cells(1, 1)
'Dauer ca. 15,0 sec
End Sub