Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

IF Abfrage aus Command-Box Werten

1 view
Skip to first unread message

Harald Schlüter

unread,
Sep 12, 2008, 6:22:46 AM9/12/08
to
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


Peter Schleif

unread,
Sep 12, 2008, 6:39:54 AM9/12/08
to
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

0 new messages