Private Sub CommandButton1_Click()
Dim i As Long
Cells(1, 1).Clear 'löscht erstmal inhalt der zelle
For i = 1 To 4 'für die 4 Anzahl der Boxen
Cells(1, 1) = Cells(1, 1) & ";" & Me.Controls("TextBox" & i).Value
Next
Cells(1, 1) = Right(Cells(1, 1), Len(Cells(1, 1)) - 1) 'löscht erstes Zeichen(;)
End Sub