ich möchte per VBA den Inhalt von mehreren Textboxen in einer Zelle speichern.
(mit Semikolon getrennt)
Da gibt es bestimmt eine bessere Lösung als:
Wer kann helfen?
Cells(1,1).value=TextBox1.text & ; & TextBox2.Text .
Danke Peter
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