Ich habe das Problem, daß sich Excel immer an derselben Stelle beim Ausführen meines Makros aufhängt...aber ich kann mir nicht erklären, warum...
Also....ich hab da eine Userform mit mehreren Buttons drauf. Drück ich den Button "Deutschland" passiert folgendes:
Private Sub B_Deutschland_Click()
'alte Tabelle löschen...
With Worksheets("Kosten Deutschland")
.Range(.Cells(25, 4), .Cells(41, 21)).Value = 0
.Range(.Cells(48, 4), .Cells(64, 21)).Value = 0
.Cells(69, 1).Value = 0
.Cells(70, 12).Value = 0
End With
B_Deutschland.Enabled = False
B_Österreich.Enabled = False
B_Schweiz.Enabled = False
B_Ungarn.Enabled = False
B_BeendenSpeichern.Enabled = False
Application.ScreenUpdating = False
Worksheets("Stammdaten D").Activate
With Worksheets("Stammdaten D")
TB_Status.Text = "Stammdaten Deutschland werden geöffnet..." & vbLf
...usw....
drück ich den Button "Österreich", passiert etwas ähnliches, nämlich:
Private Sub B_Österreich_Click()
Application.ScreenUpdating = False
'alte Tabelle löschen...
With Worksheets("Kosten Österreich")
.Cells(1, 8).Value = 0
.Cells(2, 8).Value = 0
.Cells(25, 1).Value = 0
.Cells(29, 1).Value = 0
.Cells(29, 4).Value = 0
.Cells(29, 6).Value = 0
.Cells(33, 1).Value = 0
.Cells(33, 4).Value = 0
.Cells(33, 6).Value = 0
End With
B_Deutschland.Enabled = False
B_Österreich.Enabled = False
B_Schweiz.Enabled = False
B_Ungarn.Enabled = False
B_BeendenSpeichern.Enabled = False
Worksheets("Stammdaten A").Activate 'hier hängt sich Excel auf!!
With ActiveSheet
TB_Status.Text = "Stammdaten Österreich werden geöffnet..." & vbLf
TB_Status.Text = TB_Status.Text & "Tabelle wird formatiert..." & vbLf
.Rows(1).Delete
.Rows(2).Delete
...usw...
Nun das Problem: Excel hängt sich immer mit Meldung von Dr. Watson "Access Violation" an der Stelle "Worksheets("Stammdaten A").Activate" auf (wenn ich den Österreich - Button drücke).
Habe echt keine Ahnung mehr warum das passiert..Syntax ist überall richtig...Tabellenblätter haben alle den richtigen Namen...
Kann es daran leigen, daß eventuell der Speicher zu knapp ist? Meine Excel file ist ca. 5,5 MB groß, 6-8 Tabellenblätter, ca. 80.000 Zeilen á 6 Spalten mit Daten insgesamt! Schafft Excel das nicht?
Was kann ich tun? *völlig ratlos...*
Bitte bitte gebt mir einen Tipp...
Danke!
Björn