Thema: Inhalt sichtbare Textbox kopieren

Hallo,
Ich habe eine Userform mit mehreren Pages (Seiten).
Auf jeder Seite ist eine Textbox so das immer nur eine Textbox sichtbar ist.
Unterhalb der Pages habe ich ein CommandButton.
Ich möchte jetzt folgendes machen, der Inhalt der sichtbaren Textbox soll per CommandButton in eine anderen UF/Textbox kopiert werden.
Mein Problm ist wie spreche ich immer nur sichtbare Textbox an, um nur deren Inhalt zu Kopieren?
Gruß Wolfgang

Hi Wolfgang,
verwende die Tageigenschaft der MultiPage

Option Explicit
Private Sub CommandButton1_Click()
MsgBox MultiPage1.Pages(Left(MultiPage1.Tag, 5)).Controls("TextBox" & Right(MultiPage1.Tag,  _
1))
End Sub
Private Sub TextBox1_Change()
MultiPage1.Tag = "Page1;1"
End Sub
Private Sub TextBox2_Change()
MultiPage1.Tag = "Page2;2"
End Sub

---

Hallo Karin,
danke für den Ansatz.
Ich habe das mal in einer Testdatei nach gebaut und es funktioniert.
Aber es muß immer erst eine Änderung in der aktuelle Textbox vorgenommen werden.
Besser wäre es natürlich wenn der schon vorhandene Inhalt der Textbox gleich angezeigt werden würde.
Gibt es da noch eine Möglichkeit?
Danke und Gruß Wolfgang

Hi Wolfgang,
sorry, du hattest geschrieben, dass du einen CommandButton hast und da nahm ich an, dass du den Inhalt mit dem CommanButton übertragen willst. Mit "gleich anzeigen" meinst du, dass beim Wechseln der Page angezeigt werden soll?

Private Sub MultiPage1_Change()
If MultiPage1.SelectedItem.Name = "Page1" Then
MsgBox TextBox1
Else
MsgBox TextBox2
End If
End Sub

Wenn doch erst beim Drücken des CommandButtons, dann so

Private Sub CommandButton1_Click()
If MultiPage1.SelectedItem.Name = "Page1" Then
MsgBox TextBox1
Else
MsgBox TextBox2
End If
End Sub

---