VB Berechnung erst nach 2. klick richtig
10.06.2006 19:23:43
Blade
Nun zum Thema:
Ich habe eine Userform, dort gebe ich Personen Anzahl ein diese wird dann in VB berechnet.
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Ergebnis As Double
Select Case TextBox11.Value
Case 1 To 10: Ergebnis = 40.95
Case Else: Ergebnis = TextBox11.Value * 3.01724
End Select
Range("H101") = Ergebnis
End Sub
Nach dem Klick auf den OK Button kommt das Ergebnis auf der Exceloberfläche zum Vorschein. Soweit so gut.
Dieses Ergebnis soll nun ein zweites mal auf der Exceloberfläche erscheinen, also:
Range("B147") = "Der Gesamtpreis von " & Excel.Range("H101").Value & " " & "ist bis zum " & TextBox10 & " durch Überweisung zu leisten."
Nun das Problem: Es erscheint immer die Summe von der Vorherigen Berechnung im Text. Muss ich da noch ein Update oder sowas einbinden?
Wenn etwas unlogisch oder unklar ist... bitte bescheid geben..
Vielen Dank an die HElfer!!!
Anzeige