Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: excel for life am Oktober 08, 2013, 09:14:16 Vormittag

Titel: Excel stürzt beim schließen ab
Beitrag von: excel for life am Oktober 08, 2013, 09:14:16 Vormittag

Hallo Leute,
ich habe ein schweres Problem. Immer wenn ich mein Excel schließen möchte, stürzt Excel ab und will die Dateien wieder neu laden/wiederherstellen, die alle geschlossen worden sind.

Kann mir einer sagen, woran das liegt?
Habe eine ziehmlich lange Makro in einer Datei hier dazu der Code:
Vielleicht ist da ja was, was Excel nicht so gefält.

Bitte hilft mir, ich habe stunden gegoogelt aber nichts passendes gefunden -.-

Code: HTML

1. Dim Monat As String
2. Sub Jan_transferieren()
3. Monat = InputBox("Bitte geben Sie den Monat für den vorgesehenden Datentransfer an")
4.     ' Bedingung für welchen Monat die Daten kopiert werden sollen
5. 'JANUAR
6. If Monat = "Januar" Then
7.     'Datei öffen
8.     Workbooks.Open Filename:= _
9.         "Y:\mp\FC\Update.xls" _
10.         , UpdateLinks:=0
11.     Sheets("Zusammenfassung").Select
12.     Range("C2").Select
13.     ActiveCell.FormulaR1C1 = ""
14.     Range("C2").Select
15.     ActiveCell.FormulaR1C1 = "FC G"
16.     Range("C3").Select
17. 'ab hier kopieren!
18.     ActiveWindow.SmallScroll Down:=12
19.     Range("E22:H24").Select
20.     Selection.Copy
21.     Windows("Sicht_Makro.xls").Activate
22.     Sheets("FC_G").Select
23.     Range("B4").Select
24.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
25.         :=False, Transpose:=False
26.  
27. 'nochmal die Maßnahmen-Datei aufrufen um diese zu "aktivieren" und danach zu schließen
28.     Windows("Update.xls").Activate
29.     'aktiviertes Fenster schließen
30.     ActiveWindow.Close
31.     Windows("Sicht_Makro.xls").Activate
32.     Sheets("Daten_trans.").Select
33.     Range("A2").Select
34.     Else
35. Call NDS_Feb_transferieren
36. End If
37. End Sub
38.