Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
276to280
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
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Fehler in einem Macro

Fehler in einem Macro
03.07.2003 15:31:03
Sava
Hallo zusammen,
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


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehler in einem Macro
03.07.2003 15:35:27
Mike E.
Hallo,
ich nehme an, du hast dich verschrieben:
die Variable heißt: aDlg
und nicht, wie in der MsgBox: aDig
Gruß
Mike

AW: Fehler in einem Macro
03.07.2003 15:42:29
Sava
Vielen Dank,
ich habe mich tatsächlich verschrieben
Gruß
Sava

AW: Fehler in einem Macro
03.07.2003 15:47:43
Knut
Option Explicit verwenden, dann kann sowas gar nicht erst passieren.
Knut

AW: Fehler in einem Macro
03.07.2003 15:49:54
Sava
Ein guter Hinweis für die Zukunft
Danke
Sava

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige