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

Fehlermeldung

Fehlermeldung
23.01.2006 13:12:15
J.
Hallo Freunde,
habe diesen Eingabebefehl geschrieben mit dem ich einen Termin aus einer Excel-Datei in den Outlook übertragen kann.
Hat bisher auch immer geklappt.
Nun bekomme ich aber neuerdings diese Fehlermeldung:
"Laufzeitfehler '-2147352571 (80020005)':
Typenkonflikt: Der Datentyp kann nicht umgewandelt werden. Outlook kann Ihre Zeichenfolge nicht übersetzen."

Sub Termin_in_Outlook()
'E 2000
'Dim OutApp As Outlook.Application
Dim OutApp As Object, apptOutApp As Object
'Hier beginnen die Termine
Range("A37").Select
Do Until ActiveCell.Value = ""
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = ActiveCell.Offset(0, 0)
'Hier wird der Beginn-Datum eingegeben
.Subject = ActiveCell.Offset(0, 1)
'Hier wird der Betreff eingegeben
.ReminderSet = True
'Termin speichern
.BusyStatus = olFree
'Terminstatus frei
.Save
End With
'Nächste Zelle auswählen
ActiveCell.Offset(1, 0).Select
'Variablen leeren,... sonst ist Outlook irgendwann überlastet
Set apptOutApp = Nothing
Set OutApp = Nothing
Loop
MsgBox "Termine an Outlook übertragen!"
Range("B3").Select
End Sub

Hat jemand eine Lösung für mich.
Danke im voraus
J. B.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fehlermeldung
27.01.2006 08:27:11
Werner
Hallo J.B.,
ich habe zwar keine Ahnung von Outlook und wie man dorthin Informationen aus Excel weitergibt, aber vielleicht hilft es, wenn die Daten etwas präziser übergeben werden:
.....
.Start = Format(ActiveCell.Offset(0, 0), "DD.MM.YYYY")
.....
mfg
Werner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige