title image


Smiley Re: Importieren von Excel Datei in Outlook Kalender
Moin, K.Awischus,meinst Du etwas in der Art:   th {font-weight:normal}  ABCDEF1Terminenähere BeschreibungOrtTagDauer (min)beteiligte Personen2Termin1aSpotlight MIE18.04.2003 9:00180Müller; Meier; Schmidt3Termin2bSpotlight Excel19.04.2003 9:00120Maier4Termin3cUebersicht20.04.2003 9:00150Krug; Schulze5Termin4dSpotlight Word21.04.2003 9:0060Miller; Meier; Awischus   Excel Tabellen einfach im Web darstellen   Excel Jeanie HTML  2.0    Download  Dazu der Code:

Sub TermineVonExcelNachOutlookÜbernehmen()

' Unbedingt Verweis auf Outlook setzen

' von Bernd Held, Excel-VBA-Programmierung

Dim objOutlook As Outlook.Application

Dim apptOutlook As Outlook.AppointmentItem

   Set objOutlook = CreateObject("Outlook.Application")

    Application.ScreenUpdating = False

' Die Schleife kann auch über die letzte genutzte Zeile gesteuert werden

    Range("A2").Select

    Do Until ActiveCell.Value = ""

     Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)

     With apptOutlook

        .Subject = ActiveCell.Value

        .Body = ActiveCell.Offset(0, 1).Value

        .Location = ActiveCell.Offset(0, 2).Value

        .Start = ActiveCell.Offset(0, 3).Value

        .Duration = ActiveCell.Offset(0, 4).Value

        .RequiredAttendees = ActiveCell.Offset(0, 5).Value

        .ReminderMinutesBeforeStart = 10

        .ReminderPlaySound = True

        .ReminderSet = True

        .Save

     End With

     ActiveCell.Offset(1, 0).Select

    Loop

    Application.ScreenUpdating = True

    MsgBox "Termine an Outlook übertragen!"

    Set apptOutlook = Nothing

    Set objOutlook = Nothing

End Sub

 Code eingefügt mit Syntaxhighlighter 1.15cujinx

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: