wer kann helfen. Das untenstehende Klassenmodul UserForm1 (Call Growth Rate variable) funktioniert wunderbar. Der eingegebene Wert soll in immer die gleiche Zelle von vier verschiedenen Blättern übertragen werden, damit die darunterliegende Formel den Umsatzanstieg automatisch berechnen kann. Hier ist der Code (die unklare Passage habe ich mit drei Fragezeichen eingeleitet):
' Dialog.xls, Klassenmodul »UserForm1«
Option Explicit
Public result As Variant
Public Sub ShowMe()
Dim nmb As Variant
nmb = result
If nmb < 0 Or Not IsNumeric(nmb) Then nmb = 0
If nmb > 100 Then nmb = 100
txtNumber = nmb
scrSlider = nmb
Show
End Sub
Private Sub btnOK_Click()
Dim nmb As Variant
nmb = Val(txtNumber)
If nmb < 0 Or nmb > 100 Or Not IsNumeric(txtNumber) Then
MsgBox "Please insert a number between 1 and 100!"
txtNumber.SetFocus
Else
result = nmb
Unload Me
End If
End Sub
Private Sub btnCancel_Click()
result = -1
Unload Me
End Sub
Private Sub scrSlider_Change()
txtNumber = scrSlider
End Sub
Private Sub scrSlider_Scroll()
scrSlider_Change
End Sub
Private Sub txtNumber_Change()
Dim nmb As Variant
nmb = Val(txtNumber)
If nmb >= 0 And nmb <= 100 And IsNumeric(txtNumber) Then scrSlider = nmb
End Sub
???
Private Sub UserForm_Click()
With Sheets("ROI MBC Routing")
.Range("F10") = "result = nmb"
End With
With Sheets("ROI MBC E1")
.Range("F10") = "result = nmb"
End With
With Sheets("ROI IN-telegence")
.Range("F10") = "result = nmb"
End With
With Sheets("ROI Telekom")
.Range("F10") = "result = nmb"
End With
End Sub
Über Hilfe wäre ich sehr dankbar!
Gruß,
Moritz