funktion entgültig beenden

if x >= spalte_total Then
msgbox (ERROR!)
{nichts mehr machen aber noch auf dem Tabellenblatt bleiben }
end if

Sub Test1()
  Dim x As Long
  For x = 1 To 10
    If x = 7 Then
      MsgBox (Die Subroutine wird jetzt verlassen !)
      Exit Sub
    End If
  Next
End Sub

Function Test2()
  Dim x As Long
  For x = 1 To 10
    If x = 7 Then
      MsgBox (Die Function wird jetzt verlassen !)
      Exit Function
    End If
  Next
End Function

Function Test3()
  Dim x As Long
  For x = 1 To 10
    If x = 7 Then
      MsgBox (Die For-Schleife wird jetzt verlassen !)
      Exit For
    End If
  Next
End Function

Function Test4()
  Dim x As Long
  Do
    If x = 7 Then
      MsgBox (Die Do-Schleife wird jetzt verlassen !)
      Exit Do
    End If
    x = x + 1
  Loop
End Function

Option Explicit
Function mark_fuehrer(ws As Worksheet, s_fkurz, s_fname, anfang_spalte, ende_spalte, _
                      anfang_zeile, ende_zeile, fuehrer_zeile)
'MsgBox (mark_fuehrer)
Dim Zelle As Range, Bereich As String, columns As Long
Bereich = anfang_spalte & anfang_zeile & : & ende_spalte & ende_zeile

columns = ws.Range(Bereich).columns.Count - 1

Dim x As Long, y As Long, fuehrer As Long, fuehrer_spalte As String, fmsg_spalte As Long
fuehrer = 0

For x = 2 To columns
 For y = anfang_zeile To ende_zeile
  If Cells(y, x) = s_fkurz Then
   fuehrer = fuehrer + 1
   If fuehrer >= 2 Then
    fuehrer_spalte = fuehrer_spalte & ,  & Cells(y, x).Address(rowabsolute:=False, Columnabsolute:=False)
   Else
    fuehrer_spalte = Cells(y, x).Address(rowabsolute:=False, Columnabsolute:=False)
   End If
  End If
 Next
 
->MsgBox (s_fkurz &  <-- Bezeichnung Führer || fuehrer=  & fuehrer &  <->  & fmsg_spalte &  .  & x)
 
 If fuehrer >= 2 And x > fmsg_spalte Then
  MsgBox (Der Führer  & s_fname &  kommt in den Zeilen: & vbLf & fuehrer_spalte & vbLf & vor. Bitte Ändern!)
  fmsg_spalte = x
  Application.EnableEvents = False
  Cells(fuehrer_zeile, x).Value = 
  Application.EnableEvents = True
  fmsg_spalte = x
  End Function
 End If
 
 fuehrer = 0
 fuehrer_spalte = !
Next

End Function

     Exit Function