Office: Textbox füllen mit Inhalt aus Zelle B5 des 2.Tabellenblattes

Hallo,
habe eine UserBox mit einer Textbox1, welche den Wert der Zelle "B5" aus dem 3. Tabellenblatt meiner Excel-Datei auslesen soll.
Wichtig ist, das sich die Anweisung auf das 3. Tabellenblatt bezieht und nicht auf den Namen des Tabellenblatts.

Habe schon:

Private Sub TextBox1_Change()
TextBox1.Value= Sheets(3).Range("B5")
End Sub

und mehrere Anweisungen durchgespielt, und keine funktionierte.

Vielleicht klappt es mit einer ComboBox, welche per Makro den RowSource zu dem 3.Tabellenblatt / B5 angewiesen bekommt.
Gruß Timi

 

Hallo!

Die Anweisung ist soweit OK, aber sie sitzt wohl im falschen Ereignis...
Ich weiß nun nicht, wann und wie die TextBox gefüllt werden soll, aber um sie z.B. mit Aufruf der UserForm zu füllen, klappt dies bei mir:

Code:

Private Sub UserForm_Initialize()
TextBox1 = Sheets(3).Range("B5")
End Sub

 

Hallo und Vielen Dank!

Es war wirklich das Ereignis! Weißt Du vielleicht noch, wie ich den blinkenden Strich ( wie auch immer der heißen mag?) in der TextBox deaktivieren kann.
Die TextBox auf "Locked=True" half nix!
Es soll keine Eingabe-TextBox, sondern eine Info-Box sein, daher stört der blinkende Balken ein wenig.
Gelocked wird die Box eh'.

Gruß
Timi

 

Hallo!

Das Ding heißt "Cursor"...
Am einfachsten aktivierst du danach einfach irgendein anderes Element der UserForm:

Code:

Private Sub UserForm_Initialize()
TextBox1.Value = Sheets(3).Range("B6")
ComboBox1.SetFocus
End Sub

 

mal andersrum

Hallo,

ich habe ein ganz ähnliches Problem komme aber mit der hier angeführten Lösung nicht weiter.
Mein Problem:

In Mappe 1 befinden sich 3 Tabellenblätter auf Blatt3 befindet sich eine Textbox (TXT_1) diese soll durch eine Zelle (B6) auf Blatt1 gefüllt werden und dann das Ereigniss TXT_1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
KeyCode = 0
ausgeläst werden.

Mein Ansatz:
Sub Worksheet_Change(ByVal Target As Range) '(Blatt1)
Set NST = Worksheets("Blatt3")
Set NSA = Worksheets("Blatt1")
NST.TXT_1.Text = Activesheet.Range("B6")
Activesheet.Calculate
NSA.Calculate
End Sub

Bekomme auf NST.TXT_1.text aber immer den Fehler Methode oder Datenobjekt nicht gefunden.

kann mir da jemand weiterhelfen?

 

Problem gelöst

Guten Morgen,

habe mein Problem von Gestern schon gelöst :-)
Falls Jemand mal das selbe Problem hat hier mein Ansatz:
Blatt1:
Sub Worksheet_Change(ByVal Target As Range)
Set NST = Worksheets("NST")
NST.OLEObjects("TXT_1").Object.Value = ActiveSheet.Range("B6")
ActiveSheet.Calculate
Blatt3:
Private Sub TXT_1_Change()
Dim NST As Worksheet
Set NST = Worksheets("NST"
usw.....