---

Hallo zusammen

wie bekomme ich per Makro den Inhalt einer Zelle in eine Textbox?

------------------

de cadhund

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Abend,

so mal antesten:

Code:

---

'A) für in der Tabelle eingebettete Textbox
Sub x()
    Sheets("Tabelle1").TextBox1 = Cells(1, 1).Value
End Sub

'B) für Textbox in einer Userform
Private Sub UserForm_initialize()
    Me.TextBox1 = Sheets("Tabelle1").Cells(1, 1).Value
End Sub

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

test.xls.txt

Hallo Nancy

Danke für die Antwort, nur irgendwie kriegen wir das nicht hin   
Anbei ist eine Beispiel Tabelle in der Per Button der Text in Zelle C8 in die Textbox soll.

------------------
 
de cadhund

[Diese Nachricht wurde von de cadhund am 03. Mrz. 2006 editiert.]

[Diese Nachricht wurde von de cadhund am 03. Mrz. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

achso, das ist ja ein Textfeld ..., okay probier mal das:

Code:

---

ActiveSheet.Shapes("Text Box 2").DrawingObject.Text = "Hello World"

---

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

so haben wir das auch hinbekommen aber "Hello World" hat ja nix mit der Zelle C8 zu tun.

------------------

de cadhund

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

War das jetzt eine Frage oder eine Feststellung?;-)

Na mit ActiveSheet.Shapes("Text Box 2").DrawingObject.Text = Cells(8, 3).Value, müsste das doch klappen, oder nicht?

Gruss Nancy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo cadhund,

ist doch kein Problem:

Private Sub CommandButton1_Click()
    Me.Shapes("Textfeld 2").DrawingObject.Text = Cells(8, 3).Text
End Sub

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Nancy Danke Nepumuk

funktioniert einwandfrei. 

Ist es auch möglich per Button den Inhalt der Zelle in ein Textfeld einer anderen Datei (die auch gerade geöffnet ist) zu Übertragen?????

------------------

de cadhund

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo cadhund,

null Problemo:

Private Sub CommandButton1_Click()
    Me.Shapes("Textfeld 2").DrawingObject.Text = _
        Workbooks("Mappe2.xls").Worksheets("Tabelle1").Cells(8, 3).Text
End Sub

------------------
Gruß
Nepumuk

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP