Office: Userform Schleife

Hallo,

ich erstelle über userform eine schöne Oberfläche wo ich verschiedene Sachen abfrage. Das funktioniert auch alles, aber mein Problem jetzt ist, dass ich die Werte in einen bestimmten Excel Reiter ablegen möchte.

Die Felder sind alle mit Muster_123_T, Muster_67_T,... benannt.
Im Moment ist mein Code folgender:
Worksheets("Übersicht").Range("F1").Value = Muster_123_T.Value

Das funktioniert auch soweit, aber wenn ich das jetzt für alle Felder einzeln machen muss, dann sitz ich nächsten Monat noch daran.
Gibt es die Möglichkeit eine Schleife zu machen, die genau nach Muster_ und _T sucht und wo die dann in der Excel Datei fortlaufend eingetragen werden, also F1, F2, F3...

Ich hoffe man versteht was ich meine und hoffe jemand hat einen Rat.
Danke schon mal

LG Saskia

 

Hi Saskia,

sind es immer dieselben Zellen, also immer F1, F2, F3 usw., in die der Inhalt der jeweiligen Textfelder eingetragen wird? Wenn ja, dann empfehle ich dir folgende Vorgehensweise:

Jedes Steuerelement hat unter den Eigenschaften einen Eintrag der als "Tag" (zu dt. Anhang, Schild) bezeichnet ist - trage dort die jeweilige Zelladresse ein. Dann kannst du mit folgender Schleife die Textfeld-Inhalte in die jeweilige Zelle übertragen:

Code:

    Dim ctrElement As Control
    With Worksheets("Übersicht")
        For Each ctrElement In Me.Controls
            If ctrElement.Tag <> "" Then .Range(ctrElement.Tag) = ctrElement.Value
        Next ctrElement
    End With

---