Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema MultiPage
BildScreenshot zu MultiPage MultiPage-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Inhalt sichtbare Textbox kopieren

Betrifft: Inhalt sichtbare Textbox kopieren von: Wolfgang
Geschrieben am: 13.05.2008 08:31:19

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

  

Betrifft: AW: Inhalt sichtbare Textbox kopieren von: Beverly
Geschrieben am: 13.05.2008 09:21:25

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



GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Inhalt sichtbare Textbox kopieren von: Wolfgang
Geschrieben am: 13.05.2008 12:40:54

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


  

Betrifft: AW: Inhalt sichtbare Textbox kopieren von: Beverly
Geschrieben am: 13.05.2008 16:27:50

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





GrußformelBeverly's Excel - Inn


 

Beiträge aus den Excel-Beispielen zum Thema "Inhalt sichtbare Textbox kopieren"