an Hans,nochmals Summe in Textbox
29.07.2002 08:49:03
WolfgangM
ich gebe in die Textbox Rechnungswerte in der Form =26+354+90-84 usw. ein, kann man zur vereinfachung die werte auch ohne das = voran eingeben, und trotzdem die Summe bilden? Dies würde meine Arbeit sehr erleichtern.
Makro:
Function fncCount(oCnt As Object)
Dim iChar As Integer, iCounter As Integer
If oCnt.Text = "" Then
fncCount = ""
Else
For iChar = 1 To oCnt.TextLength
If Mid(oCnt.Text, iChar, 1) = "+" Then
iCounter = iCounter + 1
End If
Next iChar
fncCount = iCounter + 1
End If
End Function
Private Sub eintragen_Click()
Cells(ActiveCell.ROW, 3).Value = Date
Cells(ActiveCell.ROW, 5) = TextBox1.Value
Cells(ActiveCell.ROW, 4).Value = fncCount(TextBox1)
Cells(ActiveCell.ROW, 7) = TextBox2.Value
Cells(ActiveCell.ROW, 6).Value = fncCount(TextBox2)
Unload Me
End Sub
Danke im voraus
Gruß WolfgangM