Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 5338 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 ..
Ähnliche Inhalte
VB for Applications
gelöst VBA-Makro verschwindet nach Speichern (5)

Frage von lupi1989 zum Thema VB for Applications ...

Microsoft Office
gelöst Excel-Formel oder VBA (7)

Frage von nicki01 zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel VBA Datein auslesen (8)

Frage von schwalbepilot zum Thema Microsoft Office ...

VB for Applications
Fusszeile mit PageSetup mit VBA in Excel Makro funktioniert nicht? (5)

Frage von HerrHart zum Thema VB for Applications ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Windows 10 Fall Creators Update Fehler (13)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...