IF Abfrage aus Command-Box Werten

12/09/2008 - 12:22 von Harald Schlüter | Report spam
Guten Tag Zusammen,

ich habe folgendes Makro (Ausschnitt):



Private Sub CommandButton1_Click()
Dim frm As UserForm


If frm.cmbDomesticCurrency.Value = " " Then MsgBox "Please choose/
enter a value!", vbCritical Else
If frm.cmbTargetCurrency.Value = " " Then MsgBox "Please choose/
enter a value!", vbCritical Else
If frm.txtPreis.Value = 0 Then MsgBox "Please choose/enter a
value!", vbCritical Else
Call CurrencyConverterCalculation
Unload Me



End Sub


Dazu erhalte ich folgende Fehlermeldung:

Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt.



Kann mir jemand weiterhelfen?


Besten Dank und viele Grüße


Harald
 

Lesen sie die antworten

#1 Peter Schleif
12/09/2008 - 12:39 | Warnen spam
Harald Schlüter schrieb am 12.09.2008 12:22 Uhr:

Private Sub CommandButton1_Click()
Dim frm As UserForm

If frm.cmbDomesticCurrency.Value = " " Then MsgBox "Please choose/
enter a value!", vbCritical Else
If frm.cmbTargetCurrency.Value = " " Then MsgBox "Please choose/
enter a value!", vbCritical Else
If frm.txtPreis.Value = 0 Then MsgBox "Please choose/enter a
value!", vbCritical Else
Call CurrencyConverterCalculation
Unload Me

End Sub

Laufzeitfehler '91':
Objektvariable oder With-Blockvariable nicht festgelegt.



Du hast frm keine Wert zugewiesen.

Set frm = Me

Oder Du verwendest gleich Me. statt frm.

Private Sub CommandButton1_Click()

If Me.cmbDomesticCurrency = " " Or _
Me.cmbTargetCurrency = " " Or _
Me.txtPreis = 0 Then
MsgBox "Please choose/enter a Value! ", vbCritical
Else
Call CurrencyConverterCalculation
End If

Unload Me
End Sub

Ähnliche fragen