Hallo Liebe Community,

folgendes Problem. Ich habe vor kurzem meinen Vorgesetzten abgelöst der in Ruhestand gegangen ist und ich somit sein Platz eingenommen habe. Er hat eine Menge in VBA programmiert und jetzt gibt es ein Problem im Code. Nach ein paar mal rumklicken habe ich wenigstens die Zeile des Fehlers entdeckt. Nur bin ich zu unerfahren um diesen zu lesen deshalb. Könnt ihr vielleicht im folgenden Code ein Fehler entdecken oder sowas ähnliches? Hilfe wäre echt top.

mfg

Sub Fehlende_Parameter_abrufen()
For Each ProbenNmr In Sheets("0").Range("A3:A30000")
If ProbenNmr.Value = "" Then Exit Sub
If InStr(ProbenNmr.Value, "Proben") = 0 And ProbenNmr.Offset(0, 3).Value < 4 And ProbenNmr.Offset(0, 4).Value <> "f" Then
Dim Parameterzählen As String
Dim c As Range
Dim firstAddress
Dim str
Dim Bereich As Range
Dim start As Double
str = ProbenNmr.Value
With Worksheets("Tabelle1").Cells
    Set c = .Find(str, LookIn:=xlValues)
    If c Like str Then Set Bereich = c
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            Set c = .FindNext(c)
            If c Like str Then Set Bereich = Union(c, Bereich)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
 End With
 For Each Parameter In Bereich
 If Parameter.Offset(0, 2) = "" Then Parameterzählen = Parameterzählen & Parameter.Offset(0, 1).Value & " ; "
 
 Next Parameter
 ProbenNmr.Offset(0, 4).Value = Parameterzählen
 End If
 Parameterzählen = ""
 Next ProbenNmr
End Sub