berechnen in einer UserForm
19.01.2005 13:48:23
Andreas.R.
Ich habe folgendes Problem
In einer UserForm1 möchte ich zwei Label.Caption jeweils mit dem Preisformat ###,##0,000 formatiert in einer TextBox zusammenaddieren.
Folgendes Makro erledigt das zumindest teilweise.
In der TextBox85 wird der Preis aber nur zB. 120 angezeigt, es soll aber 120,00 angezeigt werden.
Desweiteren, wenn ein Label von den beiden keinen Wert hat (also leer ist) erfolgt in der TextBox keine Berechnung.
Kann mir von Euch da einer weiterhelfen
Ich bin gerade dabei VBA zu erlernen, nur hier komme ich absolut nicht weiter
Hier mal mein Makro
Private Sub eintragen_3()
Dim zeile As Integer
If Worksheets("Rechnungen").Range("A:A").Find(what:=TextBox80.Value, lookat:=xlWhole) Is Nothing Then
MsgBox "Den Wert gibt es nicht !"
Exit Sub
End If
zeile = Range("A:A").Find(what:=TextBox80.Value, lookat:=xlWhole).Row
TextBox72.Value = Cells(zeile, 37).Value
TextBox73.Value = Cells(zeile, 40).Value
Label103.Caption = Format(Cells(zeile, 39).Value(), "###,##0.00 ")
Label104.Caption = Format(Cells(zeile, 42).Value(), "###,##0.00 ")
Call berechnen
End Sub
Private Sub berechnen()
TextBox85 = ""
If IsNumeric(Label103.Caption) And IsNumeric(Label104.Caption) Then
TextBox85.Value = CDbl(Label103.Caption) + (Label104.Caption)
'Beispiel: Label103 (70,00 ) Label104 (50,00 )
'hier werden zwar wenn alle beiden Label einen Wert haben die beiden
'Werte zusammenaddiert, aber nur zB.120 es sollte aber dann 120,00
'lauten.
'Wenn zB. einer der Label keinen Wert hat erfolgt keine Berchnung
'in TextBox85.
'Es soll aber in diesem Fall der Wert von Label103 oder Label104
'als Ergebnis angezeigt werden.
End If
End Sub
Besten Dank schon mal im voraus an alle Helfer
Gruß Andreas.R.