in einer Userform möchte ich mit Textboxwerten rechnen. Ich habe desshalb für die Textboxen 3 bis 7 nachfolgendes Klassenmodul geschrieben.
Option Explicit
Public WithEvents TxtGroup As MSForms.TextBox
Private Sub TxtGroup_Change()
Berechnung
End Sub
In der Userform in der die Berechnung ausgeführt werden soll habe ich in
"Private Sub UserForm_Initialize()
Dim intCounter As Integer
For intCounter = 3 To 7
Set txtBoxes(intCounter).TxtGroup = Controls("TextBox" & intCounter)
Next intCounter" ... eingefügt.
Beim Ausführen des Makros Berechnung erhalte ich folgende Fehlermeldung: Fehler beim Kompilieren: Sub oder Funktion nicht definiert.
Hier noch der Code zum Berechnen:
Sub Berechnung() 'der Felder Verkaufspreis,Verkauf Fuge/Kleber und Gesamtpreis
Lohnkosten.Value = TextBox8 * TextBox3 ' Textbox8=Stundensatz, Textbox3=Zeitvorgabe
Lohnkosten = Format(Lohnkosten.Value, "#,##0.00 ")
VerkaufMaterial.Value = TextBox5 * TextBox4 'TextBox5=Hebesatz, TextBox4=MaterialE-Preis
VerkaufMaterial = Format(VerkaufMaterial.Value, "#,##0.00 ")
VerkaufspreisKF.Value = (TextBox6 * (TextBox7 / 100)) + TextBox6 'TextBox6=Einkauf Fuge/Kleber, TextBox7=Wagnis/Gewinn
VerkaufspreisKF = Format(VerkaufspreisKF.Value, "#,##0.00 ")
Gesamtpreis = CDbl(Lohnkosten) + CDbl(VerkaufMaterial) + CDbl(VerkaufspreisKF)
Gesamtpreis.Value = Format(Gesamtpreis.Value, "#,##0.00 ")
End Sub
Wo steckt hier der Fehler? Wer kann mir helfen?