HERBERS Excel-Forum - das Archiv

Thema: Inhalt von mehreren Textboxen in einer Zelle speic | Herbers Excel-Forum

Inhalt von mehreren Textboxen in einer Zelle speic
mehreren

Hallo Forum,
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

AW: schleife für Textboxen
hary

Hi Peter
eine Moeglichkeit.

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

Gruss hary