Fehler beim Kompilieren

Bild

Betrifft: Fehler beim Kompilieren
von: Geramond
Geschrieben am: 06.07.2015 09:01:37

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

Bild

Betrifft: Kaufe drei "e" ;-)
von: ransi
Geschrieben am: 06.07.2015 09:11:06
HAllo,
Mittelwerte_horizontal(S) =
ransi

Bild

Betrifft: Kaufe drei "e" ;-)
von: ransi
Geschrieben am: 06.07.2015 09:14:10
Hallo,
Mittelwerte_horizontal(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("D2:D241"))
Mittelwerte_vertikal(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("E2:E241"))
Mittelwerte_Transport(S) = Application.WorksheetFunction.Average(Worksheets(Sh).Range("H2:H241"))
ransi

Bild

Betrifft: AW: Kaufe drei "e" ;-)
von: Geramond
Geschrieben am: 06.07.2015 09:28:20
:O
Asche über mein Haupt
Danke Rasi

Bild

Betrifft: Kaufe noch ein "n" ;-)
von: Matthias L
Geschrieben am: 06.07.2015 09:31:58
Hallo
Kaufe noch ein "n",
damit Rasi wieder ransi heißt ;-)
Gruß Matthias

Bild

Betrifft: Und die wichtigste Kaufempfehlung lautet:
von: {Boris}
Geschrieben am: 06.07.2015 12:09:22
Option Explicit
VG, Boris

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Fehler beim Kompilieren"