Sub Schaltfläche5_Klicken()
Dim TextBo As Object
Dim i As Integer
i = 1
For Each TextBo In Sheets("Tabelle1").TextBoxes
Sheets("Tabelle1").Range("A" & i).Value = TextBo.Text
i = i + 1
Next TextBo
End Sub
Diese Makro liest alle Textboxen aus und schreibt sie in Spalte A.Jetzt möchte ich allerdings ein schritt weiter gehen ich erstelle ungefähr später 100 Textfelder die immer zu dritt angeordnet werden, jetzt möchte ich das er immer 3 Textfelder nimmt und sie in Spalte A schreibt dann die nächsten 3 und in Spalte B usw..