Ich habe bei mir im Geschäft eine neuere Version von Excel als zu Hause.
Folgender Code funktioniert im Büro einwandfrei. Zu Hause erhalte ich den Fehler: Fehler beim Kompilieren. Projekt oder Bibliothek nicht gefunden. Dabei wird bei der unterstehende Zeile Label36 blau markiert!
UserForm1.Label37 = Format(CDbl(UserForm1.Label36) * 1000, "##'###.--")
Kann mir an Hand dieses Codes jemand helfen?
Sub rechne()
Dim ctlTextbox As Control
Dim i As Integer
Dim Summe As Double
Summe = 0
For i = 1 To 10
Set ctlTextbox = UserForm1.Controls("TextBox" & i)
If IsNumeric(ctlTextbox) Then Summe = Summe + ctlTextbox.Value
Next
UserForm1.Label21 = Summe
UserForm1.Label36 = Summe
UserForm1.Label37 = Format(CDbl(UserForm1.Label36) * 1000, "##'###.--")
End Sub
Besten Dank für Eure HilfeGruss Daniel