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