Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Steuern von Outlook über ein Excel VBA Makro

Frage Entwicklung VB for Applications

Mitglied: matt1967

matt1967 (Level 1) - Jetzt verbinden

30.08.2010 um 12:35 Uhr, 5218 Aufrufe, 1 Kommentar

Hallo zusammen, ich hoffe einer von Euch kann mir den richtigen Tipp geben oder mich zumindest in
die richtige Richtungen lenken.

Ich habe ein Excel Makro geschrieben und in diesem Makro ist ein Teilbreich das automatische setzen von Terminen.
Das setzen von Termin funktioniert auch ohne Probleme, nur muss ich in einigen Fällen gewisse Aussnahmen oder Abhängigkeiten beachten
und da fängt mein Problem an.

Der Code sieht im Moment so aus:

Private Sub CommandButton7_Click()
Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)

olAppt.Start = Now() + (720# / 24# / 60#)

' Setup other appointment information...
With olAppt
.Duration = 10
.Subject = "Status MLP Ausfall" + " " + Me.TextBox1.Value + " " + "Bitte auf event. notwendigen Cacti Eintrag überprüfen"
.Body = ""
.Location = "Office"
.ReminderMinutesBeforeStart = 30
.ReminderSet = True
End With
End Sub
Was ich jetzt möchte ist folgendes. Nehmen wir an der Eintrag wird um 12:30 gesetzt, dann soll das Makro die Differenz von Now bis 22:00 PM rechnen und diesen Wert dann automatisch an Stelle für xxx eintragen (xxx# / 24# / 60#).
Ich habe so etwas wie Zeiten berechnen leider noch nie gemacht und habe ehrlich gesagt nich einmal den Ansatz einer Ahnung

;-(

Danke schon mal für Eure Hilfe

Gruß
Matthias
Mitglied: 76109
30.08.2010 um 12:52 Uhr
Hallo matt1967!

In etwa so:
01.
Dim Differenz As Date 
02.
     
03.
Differenz = DateAdd("h", 22, Date) - Now
Gruß Dieter
Bitte warten ..
Neuester Wissensbeitrag
Ähnliche Inhalte
Microsoft Office
gelöst CSV-Datei mit einem VBA Makro in Excel einlesen und leicht anpassen (5)

Frage von JoSiBa zum Thema Microsoft Office ...

VB for Applications
Excel VBA Sortierung von Daten (4)

Frage von easy4breezy zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (27)

Frage von patz223 zum Thema Windows Userverwaltung ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (20)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...