Test 1
Test 2
Test 3
wird untereinander verschoben als textbox und dann soll unter der tabelle das gleiche nochmal in eine Zelle geschrieben werden.
ich habe mich bereits an einem code gesetzt allerdings tut sich nichts.
Sub TextBoxenAuslesen()
Dim TextBo As Obejct
Dim i As Integer
i = 1
For Each TextBo In Sheets("Tabelle1").TextBoxes
Range("A" & i).Value = TextBo.Text
i = i + 1
Next TextBo
End Sub
ich würde euch gerne die datei zeigen aber kann die irgendwie nicht hochladen.