Kurze Frage:
Ich möchte gern, dass der Wert einer Zelle auf einer UF in Textbox1 in Prozent angezeigt wird.
Dafür habe ich folgenden Code umgemauschelt und das scheint zu funktionieren.
Private Sub UserForm_Activate()
Dim zl As Long
Worksheets("XL").Select
'Eintrag mit "GARN" finden
zl = Range("D:D").Find(what:="GARN").Select
'Richtige Zelle finden
TextBox1.Text = Format(ActiveCell.Offset(-2, 4), "0.00%")
'% in Textbox 2 eintragen
TextBox2.Text = TextBox2.Text & "%"
End Sub
Jetzt möchte ich aber, dass man in einer 2. Textbox auf der gleichen UF einen neuen Prozentwert eingeben kann und das dieser dann per Command Button in die Zelle geschrieben wird.
Wie müsste ich den Code umbauen / erweitern?
Bin für jede Hilfe dankbar.
Gruss und schönes Wochenende!