---

Hallo zusammen,

ich hab mal wieder ein Problem.

In meinem Makro gibt es ein Problem mit der Unverträglichkeit von Variablen.

Die Funktion "IstKontakt_DblClick" ist so definiert:

Code:

---

  Private Sub IstKontakt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With IstKontakt
        Cancel = True
    End With
  End Sub

---

Der Aufruf erfolgt in der Funktion UserForm_Initialize.

Code:

---

Private Sub UserForm_Initialize()
  Dim Abbruch As MSForms.ReturnBoolean
' UserForm Initialisieren
  Empfaenger = "leer"
  Abbruch = False
  Set objOutlook = New Outlook.Application                          ' Outlook initialisieren
  Set Namensraum = objOutlook.GetNamespace("MAPI")                  ' Namespace initialisieren
  AktUser = Namensraum.CurrentUser                                  ' Aktueller User in Outlook ermitteln
  Set MailFolder = Namensraum.GetDefaultFolder(olFolderContacts)    ' Ordner setzen, in unserem Fall Contacts
  Kontakte_Lesen
  IstKontakt.SetFocus
  With IstKontakt
    Do Until (Abbruch = True)
        Empfaenger = .List(.ListIndex)
        MsgBox Empfaenger
        IstKontakt_DblClick (Abbruch)
    Loop
  End With
End Sub

---

Die Typbezeichnung in UserForm_Initialize habe ich aus der Funktion IstKontakt_DblClick kopiert, also sollten sie gleich sein.

Leider bekomme ich die Fehlermeldung, daß die Typen unverträglich wären.

Kann mir jemand die Ursache dafür nennen und einen Tipp zur Abhilfe geben?

Viele Grüße,

CEROG

------------------
Inoffizielle Linux-Hilfeseite http://linux.cad.de

---

Hallo,

versuch's so:

IstKontakt_DblClick Abbruch

oder so:

Call IstKontakt_DblClick(Abbruch)

HTH, Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo bst,

danke für deinen Tipp.

Leider ist mir zwischenzeitlcih aufgegangen, daß ich den Rückgabewert von IstKontakt_DblClick gar nicht abzufragen brauche. Damit hab das Problem umgehen können.

Aber du kannst sicher sein, das nächste Problem kommt bestimmt.

Viele Grüße,

CEROG

------------------
Inoffizielle Linux-Hilfeseite http://linux.cad.de