title image


Smiley Excel-Sheet per Combobox auswählen und Textinhalt übertragen
Hey anko,



das folgende Makro listet die Tabellenblätter (ALLE) in einer Combobox auf, und übertragt den Text der Textbox1 in das ausgewählte Tabellenblatt in Zelle A1 :

      

Private Sub UserForm_Initialize()

    ComboBox1.Clear

    For Each ws In Worksheets

        ComboBox1.AddItem ws.Name

    Next

End Sub



Private Sub CommandButton1_Click()

    If ComboBox1.ListIndex >= 0 Then

        If MsgBox("Daten jetzt übertragen ?", _

            vbYesNo + vbQuestion, "Daten übertragen") = vbYes Then

            Sheets(ComboBox1.Value).[A1] = TextBox1

        End If

    Else

        MsgBox "Bitte zuerst ein Tabellenblatt auswählen !"

    End If

End Sub



Private Sub CommandButton2_Click()

    Unload Me

End Sub 

Das Makro bezieht sich auf ein UF wie im Screenshot unten dargestellt !



Gruß, JerryB
Bezeichnungen der Elemente eines Excel XP Fensters (Bild, ca. 170 KB).

geschrieben von

Anhang
Bild 10782 zu Artikel 516063

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: