Fehler in einem Macro
03.07.2003 15:31:03
Sava
ich habe ein Problem mit einem Macro. Ich möchte die Werte von einem ComboBox weiterverarbeiten, wie in meinem Beispiel an einen MsgBox weitergeben, doch ich bekomme die Fehlermeldung "Laufzeitfehler 424" "Object erforderlich", und zwar in der Zeile MsgBox prompt:="Sie wählten: " & aDig.AuswahlProfitCenter.Value, _
Title:="Demo für ein Listenfeld", _
Buttons:=vbInformation
Ist bestimmt leicht zu beheben, doch ich komme nicht weiter.
Wäre sehr dankbar wenn jemand mir weiterhelfen könnte
und hier das Macro:
Sub AuswahlPC()
Dim aDlg As Object
Set aDlg = New Auswahlmaske 'neue Instanz erzeugen
Load aDlg 'Instanz in den Speicher laden
'Liste des Formulars mit externen Daten füllen
With aDlg
.AuswahlProfitCenter.AddItem "Czech Republic" 'Daten einfügen
.AuswahlProfitCenter.AddItem "Hungary"
.AuswahlProfitCenter.AddItem "Poland"
.AuswahlProfitCenter.AddItem "Turkey"
.AuswahlProfitCenter.AddItem "China"
.AuswahlProfitCenter.AddItem "GUS"
.AuswahlProfitCenter.AddItem "Croatia"
.AuswahlProfitCenter.AddItem "Directexport"
.AuswahlProfitCenter.AddItem "Romania"
.AuswahlProfitCenter.ListIndex = 0 'Anfangsmarkierung setzen
End With
aDlg.Show 'Dialogfeld anzeigen
If aDlg.Canceled Then
MsgBox prompt:="Auswahl der Stadt wurde abgebrochen.", _
Title:="Demo für ein Listenfeld", _
Buttons:=vbExclamation
Else
MsgBox prompt:="Sie wählten: " & aDig.AuswahlProfitCenter.Value, _
Title:="Demo für ein Listenfeld", _
Buttons:=vbInformation
End If
Unload aDlg
Set aDlg = Nothing
End Sub
und die Klassenmodule
Option Explicit
Dim fCancel As Boolean
Property Get Canceled() As Boolean
Canceled = fCancel
End Property
Private Sub AuswahlProfitCenter_Change()
'Beschriftung aktualisieren
With Me
.Label1.Caption = .AuswahlProfitCenter.Value
End With
End Sub
Private Sub btnCancel_Click()
fCancel = True 'Schaltfläche Abbrechen wurde angeklickt
Me.Hide
End Sub
Private Sub btnOK_Click()
fCancel = False 'Dialog wurde bestätigt
Me.Hide
End Sub
Private Sub Label1_Click()
End Sub
Private Sub UserForm_Click()
End Sub