Texfeld mit Prozentrechnung
30.07.2002 09:05:38
andre06
ich habe mal wieder ein kleines Problem!?
In einer Tabelle habe ich ein Suchformular mit Userform eingesetzt. Es wird in Spalte A gesucht und Werte aus Spalte F,l,n,m,o,p,q,r,s angezeigt .Nun möchte ich eine weitere Textbox einfügen in die ich eine Prozentzahl reinschreiben kann und dann per Enter der Wert aus Spalte F minus diese Prozent auf 10 gerundet berechnet und angezeigt wird.
vielen Dank für die Hilfe
Gruß Andre
PS.: vorsichtshalber zur besseren Übersicht der Code von der Userform:
Private Sub CommandButton1_Click()
Dim SuBe As Range
Dim Eingabe As Variant
Eingabe = TextBox1.Value
Set SuBe = Columns("A:B"). _
Find(Eingabe, lookat:=xlWhole)
If Not SuBe Is Nothing Then
Rows(SuBe.Row).Select
Label1 = Cells(SuBe.Row, 12).Value
Label7 = Cells(SuBe.Row, 6).Value
Label12 = Cells(SuBe.Row, 14).Value
Label18 = Cells(SuBe.Row, 15).Value
Label22 = Cells(SuBe.Row, 16).Value
Label20 = Cells(SuBe.Row, 17).Value
Label16 = Cells(SuBe.Row, 18).Value
Label23 = Cells(SuBe.Row, 19).Value
Else
MsgBox "Der Suchbegriff wurde nicht gefunden", , _
"Dezenter Hinweis für " & Application.UserName & ":"
End If
End Sub