Hallo,

um den Fehler eingrenzen zu können, kann man hinter jede Zeile enen Debug.print Anweisungeinfügen, die eine fortlaufende Zahl ausgibt:

Function RS_Stunden(kurz As String, F_zahl As Integer) As Double
    ' 04.04.2016
    ' Zählt die Realschulstunden von kurz
    ' Voraussetzungen: Alle Kürzel der UV stehen in Zeile 3
    ' Alle Kürzel beginnen in der 4. Spalte
    ' Es gibt 20 Worksheets für die Fächer; sonst muss die äußere Schleife angepasst werden
    Dim t As Integer
    Dim s As Integer
    Dim std As Double
    std = 0
    s = 4
    For t = 1 To 20
        ' 20 Worksheets für die Fächer
        Debug.Print "1"
        While (Application.Worksheets(t).Cells(3, s) <> "#")
            Debug.Print "2"
            If Application.Worksheets(t).Cells(3, s) = kurz Then
                Debug.Print "3"
                For Z = 4 To 100
                    Debug.Print "4"
                    If (Application.Worksheets(t).Cells(Z, s).Font.Italic) Then
                        Debug.Print "5"
                        'Wenn der Zellinhalt kursiv
                        If (Application.Worksheets(t).Cells(Z, s).Font.ColorIndex = 55) Then
                            Debug.Print "6"
                            ' 55: Dunkelblau
                            std = std + Application.Worksheets(t).Cells(Z, s) * (2 / 3) / F_zahl
                            Debug.Print "7"
                        Else
                            Debug.Print "8"
                            std = std + Application.Worksheets(t).Cells(Z, s)
                            Debug.Print "9"
                        End If
                    End If
                Next Z
            End If
            s = s + 1
        Wend
    Next t
    Debug.Print "10"
    RS_Stunden = std
End Function

Der Laufzeitfehler wird abhängig vom Inhalt ausgelöst werden.

LG, BigBen