VBA Makro läuft auf Rechner 1; Laufzeitfehler auf Rechner 2 ???

[Arne Drews]

Hallo Leute,

Ich habe ein MakroScript in einem anderen Forum gefunden und etwas angepasst, das bei mir auf dem Rechner funktioniert.
Bei meinem Arbeitskollegen auf dem rechner allerdings nicht!

Hier erstmal das Script:

Sub artikel_verkauf()

  Dim i As Long, j As Long
  Dim lpMaxLine As Long
  Dim lpCount As Long
  Dim lpNumber As Long
  Dim lpWord As String
  Dim WS As Worksheet
  Dim lArray() As String
  Dim bFound As Boolean
    
  Set WS = ThisWorkbook.Worksheets(ThisWorkbook.ActiveSheet.Name)

  lpMaxLine = WS.Range("A:Z").SpecialCells(xlCellTypeLastCell).Row

  For i = 1 To lpMaxLine
   
    lpWord = WS.Cells(i, 7)
    bFound = False
   
    For j = 1 To lpCount
      If lArray(1, j) = lpWord Then
        lArray(2, j) = lArray(2, j) + 1
        bFound = True
      End If
    Next j
   
    If Not bFound Then
      lpCount = lpCount + 1
      ReDim Preserve lArray(1 To 2, 1 To lpCount)
      lArray(1, lpCount) = lpWord
      lArray(2, lpCount) = 1
    End If
   
  Next i

  Sheets.Add
  ActiveSheet.Name = "Ergebnis Artikelverkauf"

  Set WS = ThisWorkbook.Worksheets("Ergebnis Artikelverkauf")

  For i = 1 To lpCount
    WS.Cells(i, 1) = lArray(1, i)
    WS.Cells(i, 2) = lArray(2, i)
  Next i

End Sub

Wie man sieht zählt das Script die Anzahl der vorkommenden Artikel einer Liste und erstellt eine neues Tabellenblatt mit den Ergebnissen darin.
Das funktioniert bei mir auf dem Rechner wie gesagt super, aber bei meinem Kollegen nicht.
Wir haben beide Windows z und die gleiche Office2010-Version (Volumenlizenz).
Getestet haben wir selöbstverständlich mit ein und derselben Tabelle!

Es kommt bei dem Kollegen ein Laufzeitfehler in diesen Zeile:

  ActiveSheet.Name = "Ergebnis Artikelverkauf"

  Set WS = ThisWorkbook.Worksheets("Ergebnis Artikelverkauf")

Gibt es irgendwelche Einstellungen, die das Script dort abbrechen lassen?
Danke für Infos!

[hotte-7]

Hallo,

also wenn wirklich alles absolut gleich ist, Win Office ect....
dann kann ich mir nur noch vorstellen das du bei dir irgendein "AddOn" installliert hast des bei deinem Bekannten fehlt.
Allerdings "meldet" das Excel normalerweise.
Aber kontralliere das einfach mal unter AddOn Manager.

Fehler im Code scheidet ja aus, sonst würd es bei dir nicht laufen.

Eventuell hat er bei seinen Einstellungen "rumgemacht"? zB Bei den Optionen unter Berechnen auf "manuell" stehn?

Ist jetzt halt alles so bißle im Dunkeln stochern, aber hilft vielleicht den Fehler einzugrenzen.