Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

UserForm mit variabler Zahlengabe

UserForm mit variabler Zahlengabe
26.05.2003 11:15:01
Moritz Holst
Hallo,

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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: UserForm mit variabler Zahlengabe
26.05.2003 11:51:46
Nike

Hi,
ohne Result?

Könnte sein, das du nmb auch public definieren mußt...

Bye

Nike

Re: UserForm mit variabler Zahlengabe
26.05.2003 11:58:31
Mike E.

Hallo Moritz,

ohne, dass ich mir jetzt den ganzen Code angeschaut hätte, tippe ich darauf, dass du mit

= "result=nmb" unglücklich wirst, denn in Range("F10") wird genau dieses auch stehen als Text...

Viele rüße
Mike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige