AW: Textbox in % und dann addieren
22.10.2013 12:14:50
Beverly
Einzufügen ist eine "Befehlsschaltfläche" aus den ActiveX-Steeurelementen.
Hüer der Code für beide CommandButton:
Private Sub CommandButton1_Click()
Dim oobElement As OLEObject
Dim dblSumme As Double
For Each oobElement In ActiveSheet.OLEObjects
If oobElement.progID = "Forms.TextBox.1" Then
If IsNumeric(Right(oobElement.Name, 1)) And Right(oobElement.Name, 1) "" Then dblSumme = dblSumme + CDbl(Application. _
Substitute(oobElement.Object.Value, "%", ""))
End If
End If
Next oobElement
ActiveSheet.TextBox6 = Format(dblSumme / 100, "0.00%")
End Sub
Private Sub CommandButton2_Click()
Dim dblSumme As Double
If ActiveSheet.TextBox6 "" And ActiveSheet.TextBox1 "" Then
If IsNumeric(Application.Substitute(ActiveSheet.TextBox1, "%", "")) And IsNumeric( _
Application.Substitute(ActiveSheet.TextBox6, "%", "")) Then
dblSumme = CDbl(Application.Substitute(ActiveSheet.TextBox1, "%", "")) + CDbl( _
Application.Substitute(ActiveSheet.TextBox6, "%", ""))
ActiveSheet.TextBox7 = Format(dblSumme / 100, "0.00%")
End If
End If
End Sub
Namen der TextBoxen musst du natürlich wieder anpassen.