Worksheetfunktion stDev nicht zugeordnet
25.09.2022 19:38:05
Sebastian
ich habe einem Kollegen ein Makro zugesandt, welches bei mir selbst tadellos läuft. Bei meinem Kollegen (bei dem wir das Makro gemeinsam unter Videoanleitung in die Personal.xlsb integriert haben) läuft es leider nicht durch. Obwohl das Makro 1 zu 1 gleich ist, bekommt er eine Fehlermeldung. Nämlich "die StDev_P-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden"
Im Makro soll eben aus einem ausgewählten Bereich "rng1" eine Standarddeviation berechnet werden. Das sieht so aus:
Dim rng1, rng2, rng3 As Range
Set rng1 = ActiveSheet.Range(ActiveSheet.Cells(3, 2), ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Offset(-1, 0)) ' Auswahl aller Längen
Set rng2 = ActiveSheet.Range(ActiveSheet.Cells(3, 3), ActiveSheet.Cells(ActiveSheet.Rows.Count, 3).End(xlUp).Offset(-1, 0)) ' Auswahl aller Breiten
Set rng3 = ActiveSheet.Range(ActiveSheet.Cells(3, 4), ActiveSheet.Cells(ActiveSheet.Rows.Count, 4).End(xlUp).Offset(-1, 0)) ' Auswahl aller Quotienten
ActiveSheet.Range("b" & ActiveSheet.Rows.Count).End(xlUp).Offset(1, 0).Select
ActiveCell = WorksheetFunction.StDev_P(rng1)
ActiveCell.NumberFormat = "0.0"
ActiveCell.Offset(0, 1) = WorksheetFunction.StDev_P(rng2)
ActiveCell.Offset(0, 1).NumberFormat = "0.0"
ActiveCell.Offset(0, 2) = WorksheetFunction.StDev_P(rng3)
ActiveCell.Offset(0, 2).NumberFormat = "0.0"
Leider springt bei meinem Kollegen der Debugger an auf die Zeile:ActiveCell = WorksheetFunction.StDev_P(rng1)
mit eben obiger Fehlermeldung: "die StDev_P-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden"
Woran kann das liegen? Die Ausgangstabelle ist bei ihm und mir gleich, habe das Makro also auf meinem Rechner auf seine Ausgangstabelle angewendet. Bei mir geht es mit dem gleichen Makro, bei ihm kommt die Fehlermeldung. Was könnte dafür die Ursache sein. Warum kriegt er keinen Zugriff auf die WorksheetFunktion.
Mir sind leider die Ideen ausgegangen. Könnt ihr mir diesbezüglich helfen.
LG Sebastian