workbooks.close hängt ganzes Excel au
19.08.2022 16:21:43
Heinzs
in folgendem VBA Code wird ein Blatt von einer Tabelle in das Sheet temp kopiert:
'Quell Sheet -> temp
gn_datei = "c:\test\tabelle1.xlsm"
gn_sheet = "Daten"
Application.EnableEvents = False
Set wb = Workbooks.Open(gn_datei, ReadOnly = True)
Application.EnableEvents = False
Set sh = wb.Sheets(gn_sheet)
Sheets(gn_sheet).Select
ActiveSheet.Unprotect
If ActiveSheet.AutoFilterMode Then Cells.AutoFilter
e1 = Letzte_Zeile_in_Spalte(1)
e1 = 10000
If gn_auswahlbez "Netto" Then
zelle_spalte = "1:" + Format(e1, "0000000")
Else
zelle_spalte = "22:" + Format(e1, "0000000")
End If
Rows(zelle_spalte).Select
Selection.Copy
Windows(gn_appname).Activate
Sheets("temp").Select
Cells(1, 1).Select
Selection.Cells.PasteSpecial Paste:=xlPasteValues
'Application.CutCopyMode = False
wb.Close False
Bis zur vorletzten Zeile läuft alles prima. Wird wb.close false ausgeführt, hängt sich das ganze Excel auf.
Hat jemand eine Idee?
Danke für Hilfe!
MfG
Heinz