Private Sub Submit_Click()

Dim wb As Workbook
Dim ws As Worksheet
Dim letzteZeile As Long
Dim i As Long
Dim ausgewaehlteCheckboxText As String

' 1. Arbeitsmappe und Arbeitsblatt definieren

Set wb = Workbooks.Open("https://rbcom.sharepoint.com/xxx") 'Pfad zur SharePoint Datei
Set ws = wb.Sheets("Test") 'Name des Arbeitsblattes

' 2. Letzte beschriebene Zeile in Spalte D finden
letzteZeile = ws.Cells(Rows.Count, "D").End(xlUp).Row

' 3. Nächste freie Zeile finden (beginnend bei Zeile 2, falls Spalte D in Zeile 1 schon Daten enthält)
If ws.Cells(letzteZeile, "D").Value > "" Then
letzteZeile = letzteZeile + 1
End If

' 4. Daten aus UserForm in die Tabelle schreiben
With ws
.Cells(letzteZeile, "D").Value = UserForm1.Project.Text
.Cells(letzteZeile, "E").Value = UserForm1.von.Text
.Cells(letzteZeile, "F").Value = UserForm1.Ende.Value
.Cells(letzteZeile, "G").Value = UserForm1.Requested.Text
' ... weitere TextBoxen oder Controls entsprechend anpassen
End With

' 5. Aktiven Checkbox-Text finden und in die Tabelle schreiben
For i = 1 To 10 'Anzahl der Checkboxen anpassen
If UserForm1.Controls("CheckBox" & i).Value = True Then
ausgewaehlteCheckboxText = UserForm1.Controls("CheckBox" & i).Caption 'oder .Text, falls der Text in der Caption steht
ws.Cells(letzteZeile, "I").Value = ausgewaehlteCheckboxText
Exit For
End If
Next i

' 6. Arbeitsmappe speichern und schließen
wb.Save
wb.Close

' 7. Erfolgsmeldung
MsgBox "Daten erfolgreich in " & strZielTabelle & " eingetragen."


Ich hoffe ihr könnt mir helfen. Danke