Excel hängt sich immer in Makro auf
27.01.2014 13:10:49
Pascal
Guten Tag
In einer grösserern Arbeitsmappe hab ich u.a. folgenden Code, um eine Grafik zu erstellen:
Sub Zaehlen() 'Anzahl Vorkomniss pro Wert in Spalte P zählen
Dim objDic As Object, varVal As Variant, lngZeile As Long
Set objDic = CreateObject("scripting.dictionary")
For lngZeile = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row
varVal = Cells(lngZeile, 16).Value
objDic(varVal) = objDic(varVal) + 1
Next
lngZeile = 1
With Worksheets("Grafik") 'Tabellenname anpassen
.UsedRange.Clear
For Each varVal In objDic
Debug.Print varVal, objDic(varVal)
lngZeile = lngZeile + 1
.Cells(lngZeile, 1).Value = varVal
.Cells(lngZeile, 2).Value = objDic(varVal)
Next
End With
objDic.RemoveAll
Set objDic = Nothing
End Sub
Wenn ich dieses Makro auf meinem PC selber starte so läuft das ohne Probleme und erstellt mir auchProblemlos meine Grafik
Wenn ich aber dieses Makro in der gleichen Datei durch einen meiner Arbeitskollegen starten lasse
so hängt sich bei denen das Makro irgendwie auf. Excel wird dann inaktiv grau und hängt sich mit dem Fehler
Excel reagiert nicht mehr auf.
Woran mag das liegen ?
Wir haben alle die genau gleiche Excel-Version, die genau gleichen Rechner, gleichviel Arbeitsspeicher, die gleichen
Addins installiert etc..
Fehlt meinen Kollegen evt. irgend was noch auf Ihren Rechnern (DLL oder so ?)
Besten Dank für Eure Tips !