Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim recipient As String
    Dim subject As String
    Dim body As String
    Dim currentUser As String
    Dim OutApp As Object
    Dim OutMail As Object
    
    ' Überprüfen, ob Änderungen in Spalte AI erfolgen
    Set rng = Intersect(Target, Me.Range("AI:AI"))
    If rng Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    ' Aktuellen Benutzernamen erhalten
    currentUser = Application.UserName
    
    ' Durch jede geänderte Zelle in Spalte AI iterieren
    For Each cell In rng
        If Not Intersect(cell, Me.UsedRange) Is Nothing Then
            ' Überprüfen, ob Zelle angeklickt wurde
            If cell.Value = "x" Then
                ' E-Mail-Versand vorbereiten
                Set OutApp = CreateObject("Outlook.Application")
                Set OutMail = OutApp.CreateItem(0)
                
                ' Empfänger und Betreff setzen
                recipient = "buchhaltung@...." ' Hier die richtige E-Mail-Adresse eintragen
                subject = "Kaution einziehen"
                
                ' E-Mail-Inhalt erstellen
                body = "Liebes Buchhaltungsteam," & vbCrLf & vbCrLf
                body = body & "Bitte ziehe für " & Me.Cells(cell.Row, "D").Value & " " & Me.Cells(cell.Row, "E").Value
                body = body & " die Kaution in Höhe von " & Me.Cells(cell.Row, "AH").Value & " ein. Vielen Dank." & vbCrLf & vbCrLf
                body = body & "Absender ist " & currentUser
                
                ' E-Mail-Details setzen und senden
                With OutMail
                    .To = recipient
                    .Subject = subject
                    .Body = body
                    .Send
                End With
                
                ' E-Mail-Objekte freigeben
                Set OutMail = Nothing
                Set OutApp = Nothing
                
                ' Checkbox zurücksetzen
                cell.Value = ""
            End If
        End If
    Next cell
    
    Application.EnableEvents = True
End Sub