Servus Zusammen, ich habe folgendes Problem ich möchte mit der Hilfe von VBA Emails verschicken

wenn in meinem Hilfsblatt die Bedinung erfüllt ist. Im Hilfsblatt ist eine Liste hinterlegt die FALSCH oder WAHR angibt, bei Falsch soll eine Mail verschickt werden bei Wahr die schleife fortgeführrt werden. Wenn ich den Code so her nehme wie er jetzt ist kommt die fehlermeldung Next ohne For, ich hoffe jemand weis wie ich das fixen kann. Es geht Hauptsächlich um die letzten 10 Zeilen.

Sub Versand()

Dim Begrenzung As Integer
Dim i As Long
Dim r As Long

Dim numStart As Integer

'For i = 3 To Begrenzung
'If Worksheets("Hilfsblatt").Cells(i + 36, 2) = Wahr Then
'Exit For
    

Dim objOutlook As Object
Dim objMail As Object
Dim Text As String
Dim Betreff As String

Dim Bauvorhaben As String     'Name Bauvorhaben'
Dim Straße As String          'Straße Bauvorhaben'
Dim Ort As String             'Postleitzahl + Ort'
Dim Gewerk As String           'Gewerk''Eventuell hier auswahlbox einbauen'
Dim Bestellnummer As String      'BS-Nummer'
Dim Projeknummer As Long        'Projektnummer'

Signature = Environ("appdata") & "\Microsoft\Signatures\Haas-Fertigbau-BM01.htm" '°°°

Signature = CreateObject("Scripting.FileSystemObject").GetFile(Signature).OpenAsTextStream( _
1, -2).ReadAll

'Müssen noch angepasst werden'

Bauvorhaben = Worksheets("Tabelle1").Cells(37, 2) 'geändert 37=36+i

Straße = Worksheets("Hilfsblatt").Cells(2, 37)
Ort = Worksheets("Hilfsblatt").Cells(3, 37)
Gewerk = Worksheets("Hilfsblatt").Cells(4, 37)

'Email

        
 Text = "<span style=""font-size:10pt; font-family:'Arial'""><font size=4><b>" & "Bv" & Bauvorhaben & ", " & Straße & ", " & Ort & "</b><br>" & vbCrLf & _
        "<b>Einforderung des Bauvertrages" & "</b><br><br>" & vbCrLf & vbCrLf & _
        "<span style=""font-size:10pt; font-family:'Arial'""><font size=2>" & "Sehr geehrte Damen und Herren," & "<br>" & vbCrLf & _
        "aktuell steht noch der unterschriebene Bauvertrag von ihnen aus. Bitte Senden Sie uns für das oben genannte Bauvorhaben den unterschriebenen Bauvertrag innerhalb der nächsten 2 Wochen zu." & "<br>" & vbCrLf & _
        "Bitte Senden Sie die Unterlagen an: christine.oelinger@bavaria-massivhaus.de" & "<br><br>" & vbCrL _

        
 
        
             
             
             
Betreff = "Einforderung Bauvertrag" & " " & "BV:" & " " & Bauvorhaben & " " & "in" & " " & Ort & vbCrLf

Begrenzung = Worksheets("Hilfsblatt").Cells(2, 2)

'Anhänge

    
For i = 1 To Begrenzung Step 1

If Worksheets("Hilfsblatt").Cells(2 + i, 1) = "FALSCH" Then

    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)

    With objMail
   
   .To = Worksheets("Tabelle1").Cells(i + 3, 22)             
   .Subject = Betreff                                              
   .htmlBody = Text & Signature                                     
   .display                                                                                                 
    End With
Else
Next i

End Sub