Textbox inhalt multiplizieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Udo

Hier das makro
If TextBox4.Text = "" Then
MsgBox ("Veuillez d'abort indruire le prix d'achat")
Exit Sub
Else
Dim wks As Worksheet
Dim rng As Range
Dim sAddress As String, sFind As String
sFind = TextBox1
If sFind = "" Then Exit Sub
For Each wks In Worksheets
Set rng = wks.Cells.Find( _
what:=sFind, _
LookAt:=xlPart, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then

sAddress = rng.Address
Do
Application.Goto rng, True
If rng.Address = sAddress Then Exit Do
Loop
Else
MsgBox "Le programme n'a pas trouver ce fournisseur"
Dim c As Control
For Each c In MENU.Controls
If TypeName(c) Like "Text*" Then c.Value = ""
Next c
Exit Sub
End If
Next
TextBox2.Text = rng
End If
End Sub

Wenn der gesuchte Name gefunden wurde der immer in Reihe A steht soll der Wert den man manuel in die Textbox1 eingibt mit dem Wert der in Reihe B nebem dem Namen steht multiplizieren. Neben den verschiedenen Firmennamen stehen immer verschiedene Werte in Reihe B.
Danke und gruss Lucien

Hallo Lucien


Private Sub CommandButton1_Click()
If TextBox4.Text = "" Then
MsgBox ("Veuillez d'abort indruire le prix d'achat")
'        Exit Sub
ElseIf TextBox1 <> "" Then
'       Dim wks As Worksheet
Dim rng As Range
'        Dim sAddress As String  , sFind As String
'        sFind = TextBox1
'       wird doch nur auf einer Tabelle gesucht
'       nicht in allen Tabellen der Datei
'       das Stand doch in einem anderem Beitrag
'        For Each wks In Worksheets
Set rng = ActiveSheet.Cells.Find( _
what:=TextBox1, _
LookAt:=xlPart, _
LookIn:=xlFormulas)
If Not rng Is Nothing Then
'               was sollen diese Befehle bewirken
'                sAddress = rng.Address
'                Do
'                    Application.Goto rng, True
'                    If rng.Address = sAddress Then Exit Do
'                Loop
Range(rng.Address).Offset(0, 1) = Range(rng.Address).Offset(0, 1) * CDbl(TextBox4)
TextBox2.Text = rng
Else
MsgBox "Le programme n'a pas trouver ce fournisseur"
Dim c As Control
For Each c In Me.Controls
If TypeName(c) Like "Text*" Then c.Value = ""
Next c
'                Exit Sub
End If
'        Next
End If
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro und Excel Version XP Pro

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread