Morgen Jungs und Mädels
Habe da ein kleines Problem.
Ich wollte mir eigentlich bloß einen kleinen Code schreiben um viel nervige klickerei auf viel zu vielen Sheets zu ersparen aber iwas ist schief gelaufen beim ausführen gibt er mir schon in der ersten Zeile Anfang der Sub die Fehlermeldung
"Fehler beim Kompilieren: Sub oder Function nicht definiert.
Ich bin echt ratlos, da mir das bislang nochnie passiert ist und mir sonstige Forenbeiträge nicht im geringsten weiter geholfen haben.
Hier mal der Anfang meines Codes
Public Sub Mittelwerte()
Dim Mittelwerte_horizontal(31) As Variant
Dim Mittelwerte_vertikal(31) As Variant
Dim Mittelwerte_Transport(31) As Variant
Dim Mittelwerte_Stationszeit(31) As Variant
Dim Mittelwerte_Wartezeit(31) As Variant
Dim Sh As String
Dim S As Integer
Dim i As Integer
Dim j As Integer
For S = 1 To 30
Sh = "s=" & S
Mittelwert_horizontal(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("D2:D241"))
Mittelwert_vertikal(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("E2:E241"))
Mittelwert_Transport(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("H2:H241"))
For i = 1 To 240
Worksheets(Sh).Cells(1 + i, 11) = Worksheets(Sh).Cells(1 + i, 6) - Worksheets(Sh).Cells(1 + i, 7)
Worksheets(Sh).Cells(1 + i, 12) = Worksheets(Sh).Cells(1 + i, 6) - Worksheets(Sh).Cells(1 + i, 7) - Worksheets(Sh).Cells(1 + i, 10)
Next i
Mittelwert_Stationszeit(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("D2:D241"))
Mittelwert_Wartezeit(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("D2:D241"))
Next S
usw.
Kann es sein das es iwie mit den Einstellungen meines Rechners zutun hat (ist allerdings auch schon der zweite Rechner auf dem ichs probiere).
Ich offe wirklich das mir jemand von euch weiter helfen kann.
Danke im Vorraus