cell waarde in userform textbox

[Jeneroy]

Goedemiddag,

Ik zou graag een waarde uit een cel in een werkblad in een userform laten zien.
Ik heb dit geprobeerd en het werkt wel. Maar de waarde in die cel wordt steeds veranderd (formule), maar i de userform niet.

UserForm1.TextBox1.Text = CStr(ThisWorkbook.Sheets("Blad1").Range("G23").Value)

Kan iemand mij helpen.

Alvast bedankt

 

[loek010]

Bedoel je zoiets:

 

[Jeneroy]

bedankt voor de snelle reactie.


Dit heb ik gemaakt:
Ik heb een macro gemaakt die artikelen aanmaakt in het SAP systeem.
Als de macro aan het draaien is wordt een userform getoond gedurende de macro.
In cel G23 staat aangeven bij welke regel de macro is (voorbeeld 3/100)

Mijn doel:
Ik zou graag een de waarde uit cel G23 de userform laten zien.
Als de macro bij regel 1 bezig is dan is het: 1/100, bij tweede regel 2/100 etc.....

 

[Jeneroy]

Hieronder de code die ik gebruik :

Private Sub UserForm_Activate()

UserForm1.TextBox1.text = CStr(ThisWorkbook.Sheets("Knop ").Range("G23").Value)
    DoEvents
   Macro1
   
End Sub

Dus de userfrom is zichtbaar gedurende de macro.

 

[Haije]

Jeneroy,

je kunt zo'n status toten in de zgn statusbar, onderaan je scherm.

Neem in de macro zoiets op:

Application.statusbar = [G23].value

of post een voorbeeld van je bestand (LET OP dat er geen "gevoelige" informatie in staat)

 

[AD1957]

Misschien is dit een oplossing

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Value = ActiveCell.Row
End Sub

of zoals de vraag

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
UserForm1.TextBox1.Value = ActiveCell.Row & "/100"
End Sub

En anders zoals Haije al vroeg, plaats een voorbeeldbestand.

 

[Jeneroy]

Allen, Bedankt voor jullie reacties. ik heb een voorbeeld bijgevoegd.
De tekst in textbox wordt niet bijgewerkt tijdens de macro.

 

[Jeneroy]

Kan iemand mij helpen. Mijn dank is groot

 

[Haije]

vervang

Sheets("Blad2").Select
Range("I1").Select
ActiveCell.FormulaR1C1 = i - 1
Sheets("Blad1").Select
Range("A1").Select

door

Application.StatusBar = "i = " & i

Als het goed is zie je dan linksonder in het scherm de waarde van i wijzigen

 

[Jeneroy]

Bedankt het werkt prima in de Statusbar. Maar hoe ik krijg dit in de userform. dat was eigenlijk mijn vraag

 

[Hans123]

neem de volgende code op binnen je loop van macro1:

 UserForm1.TextBox1.Text = CStr(ThisWorkbook.Sheets("Blad2").Range("K1").Value)
    UserForm1.Repaint

en verwijder het change event van je userform. Dan zou het moeten werken.

 

[Jeneroy]

Heel erg bedankt. het werkt. thx