In meiner Recherche komme ich nicht weiter und bitte Euch um Hilfe
Hier erst mein Projekt welches funktioniert.
Was nicht funktioniert folgt etwas tiefer.
Ich habe eine Userform mit 5 Textboxen und einer Summenbox!
Die Berechnung erfolgt super per Eingabe der Werte in die einzelnen Textboxen 1-5
Zur Info, der Code der Txt1-5 lautet:
Option Explicit
Private Sub txt1_Change()
Call allChange
End Sub
Private Sub txt1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Call all_KeyPress(KeyAscii)
End Sub
Private Sub txt1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Call all_Exit(txt1)
End Sub
Private Sub allChange()
Dim TxtBox As MSForms.Control
Dim dblSum As Double
On Error Resume Next
For Each TxtBox In Me.Controls
If TypeOf TxtBox Is MSForms.TextBox Then
If TxtBox.Name "txtSumme" Then
If TxtBox = "" Then TxtBox = 0
dblSum = dblSum + CDbl(TxtBox)
End If
End If
Next TxtBox
txtSumme = Format(dblSum, "#,#0.00 ")
On Error GoTo 0
End Sub
Private Sub all_Exit(TxtBox As MSForms.TextBox)
TxtBox = Format(TxtBox, "#,#0.00 ")
End Sub
Private Sub all_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 44, 48 To 57
Case Else
KeyAscii = 0
End Select
End Sub
Nun zu meinem nicht funktionierenden Teil:
Ich möchte per Button mein Summenergebnis ausgeben bekomme aber immer eine Fehler, nämlich
Fehler beim kompilieren Variable nicht definiert
Private Sub CommandButton1_Click()
z = 1
Do While Cells(z, 1) ""
z = z + 1
Loop
Cells(z, 5) = CDbl(txtSumme)
Unload Me
End Sub
Kann mir jemand sagen oder zeigen, wie ich den Wert aus der Summenbox in die Celle b1 und wenn diese gefüllt ist eben b3 usw ausgebe?Danke für die Hilfe
Lisa