Private Sub CommandButtonOK_Click()
'Prüfung, ob alle Felder befüllt sind
If TextBoxLink.Value = "" Then
MsgBox "Fügen Sie hier den Link von T4I ein.", vbExclamation, "Link Einfügen"
Exit Sub
End If
'Daten ins Tabellenblatt eintragen
Worksheets("Tabelle1").Range("LinkT4I").Value = TextBoxLink.Value
'UserForm schließen
Unload Me
End Sub