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
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