Datei lässt sich mehr öffnen

Hi,
folgendes Problem:

Excel

Ok, ich werde es mal genauer beschreiben:
Entwickle an einem Tool mit VBA, dass sich Informationen aus einer DB holt und grafisch in selbst gebastelten Diagrammen darstellt. Bein Schliessen dieser Mappen fange ich das Ereignis BeforeSave und BeforeClose ab und lösche noch ein paar selbst gebastelte Objekte. Nach dem Schliessen dieser Mappen lassen sich die Dateien nicht mehr Öffnen Meldung "Kann Datei nicht lesen". Wenn ich diese Datei in eine Textdatei umwandele fehlen mir ca 30% gegenüber der Originaldatei. Wie kommt den sowas? Öffne ich die Mappe nur mit Excel, also nicht mit meinem Tool, habe ich nach dem Speichern keine Probleme. Mein Makro hat Momentan eine Größe von ca 6 MB, wer bietet mehr? ;-) Gibt es da eine Obergrenze, da ich in letzter Zeit immer mehr Probleme mit Dr. Watson bekomme. Der Code lässt sich einwandfrei kompilieren, und habe eigentlich überall Fehlerroutinen eingebaut und den Code mehrfach durchgesteppt, ohne besondere Vorkommnisse. Ich darf bloss nicht Speichern.

thx im Vorraus
Roger

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,

die obige Sub wird über die Applikation angesteuert und ruft die untere Sub auf in der das Objekt der Auswertung aus einer Collection gelöscht wird. Mit 6 MB meinte ich allerdings nicht das Workbook, sondern das XLA. Die Mappen selbst haben öfter mal über 10 MB. Das Speichern erfolgt nicht über Code, sondern über das Excelmenue.

------------------------------------------------------------------------------------


Private Sub App_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
Call MyXLA.DeleteAuswertung(Wb)
Set Wb = Nothing
End Sub


Private Sub DeleteAuswertung(wbMappe As Workbook)
Dim objAuswertung As ClsAuswertung
Dim objLoeschItem As ClsAuswertung
Dim i As Integer
On Error GoTo DeleteAuswertung_Err
Set objAuswertung = GetAuswertung(wbMappe)
If Not (objAuswertung Is Nothing) Then
If Not(objAuswertung.Workbook Is Nothing) Then
Set objLoeschItem = colPriAuswertungen.Item(objAuswertung.Workbook.Name)
If Not (objLoeschItem Is Nothing) Then
Call colPriAuswertungen.Remove(objAuswertung.Workbook.Name)
Else
For i = 1 To colPriAuswertungen.count
Set objLoeschItem = colPriAuswertungen.Item(i)
If Not (objLoeschItem Is Nothing) Then
If Not (objLoeschItem.Workbook Is Nothing) Then
' ausdruecklich ueber den Namen suchen !!!
If objLoeschItem.Workbook.Name = objAuswertung.Workbook.Name Then
Set objLoeschItem.Workbook = Nothing
Call colPriAuswertungen.Remove(i)
'und wieder von vorne
i = 1
' kein exit for wir loechen alles mit dem Namen
End If
End If
End If
Next
End If
End If
End If
Set objAuswertung = Nothing
Set objLoeschItem = Nothing
Exit Sub
DeleteAuswertung_Err:
Call MyXLA.LOG.error(MODULNAME, "DeleteAuswertung", "")
Resume Next
End Sub

----------------------------------------------------------------------------------------

thx
Roger

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch

mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin

07.08.2008 16:23:47

Thread-ID: 1000004

3 Beiträge

Arbeitsblätter zählen und Ergebnis verarbeiten

Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...

07.08.2008 19:11:30

Thread-ID: 1000078

8 Beiträge

Frage - Spalten einfügen & Spalten untereinander z

André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...

08.08.2008 16:00:00

Thread-ID: 1000340

3 Beiträge

Zellen mit Werten aus darüberliegender Zelle fülle

Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....

11.08.2008 08:59:25

Thread-ID: 1000713

4 Beiträge

Häufigkeitslücken

Michi

Hallo,
google spuckt Zu "Excel" und "Häufigkeitslücken" lediglich 3 Treffer aus, die nicht gerade brauchbar für meine Aufgabe sind.
Ich muss für 3 Variablen eine Typisierung mit einer Häufigkeitslücke durchführen.
Hiermit bin ich fast gänzlich überfragt. Mit Quantilen hatte ich das...

11.08.2008 10:29:00

Thread-ID: 1000742

2 Beiträge

Zellen formatieren mit vorangehenden "Nullen"

Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?

11.08.2008 10:37:00

Thread-ID: 1000746

8 Beiträge

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei lässt sich mehr öffnen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread