Excel - Outlook | HERBERS Excel Forum

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A2")) Is Nothing Then If Target.Value "" Then Call MainBas.ReadCalendarItems(Target.Value) Else 'Zelle ist leer, leere ausgabezellen Application.EnableEvents = False Range("A4:Z4,A6:Z6,A8:Z8,A10:Z10").ClearContents Application.EnableEvents = True End If End If End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Franz,
ich finde das Makro eigentlich für meine Zwecke ganz gut, da ich Kalendereinträge zu einem von mir eingegebenen Betreff angezeigt haben möchte. Und das funktioniert hier ganz gut, bis auf die kleinen Problemchen.
also zu 1.)
der veränderte Eintrag soll in Excel angezeigt werden: z.B. wird mir der Kalendereintrag von
Betreff: Müller
Ort: Berlin
Beginnt: 11.06.2012 15:00
Endet: 11.06.2012 17:00
in Excel angezeigt. Jetzt ändere ich den Termin in Outlook, weil ich mit Herrn Müller einen neuen Termin vereinbare (20.06.2012, 18:00), dann soll dieser geänderte Termin in Excel übernommen werden.
Bis jetzt schaffe ich das nur, wenn ich alles aus den Zellen rauslösche und das Makro mit Betreffeingabe neu starte.
zu 2.) und hier wollte ich eben wissen, wie ich das Makro verändern muss, damit nur
folgendes angezeigt wird:
Betreff: Müller
Beginnt: 11.06.2012 15:00
Endet: 11.06.2012 17:00
und nicht noch Ort und der Body-Teil.
LG Melek

Hallo Melek,
zu 1) aktualisierten Eintrag anzeigen.
ganz automatisch geht es nicht
Es geht aber ohne Neueingabe des Betreffs - z.B mit rechte-Maus-Klick in Zelle A2
zu 2) nur die Zeiten anzeigen
Wenn du nichts an dem Makro "ReadCalendarItems" ändern möchtest, dann kann man auch nachträglich die unerwünschten Infos wieder löschen.
Nachfolgend die angepassten/zu ergänzenden Makros
Gruß
Franz

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target.Value  "" Then
Call ClearData
Call HoleKalendereintraege(Target.Value)
Cancel = True
End If
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
If Target.Value  "" Then
Call HoleKalendereintraege(Target.Value)
Else
Call ClearData
End If
End If
End Sub
Private Sub ClearData()
'Zelle ist leer, leere ausgabezellen
Application.EnableEvents = False
Range("A4:Z4,A6:Z6,A8:Z8,A10:Z10").ClearContents
Application.EnableEvents = True
End Sub
Private Sub HoleKalendereintraege(ByVal Betreff)
Call MainBas.ReadCalendarItems(Betreff)
Application.EnableEvents = False
'in nachfolgender Zeile müssen ggf. die Zell-Bereiche angepasst werden
Range("D4:Z4,D6:Z6,D8:Z8,D10:Z10").ClearContents
Application.EnableEvents = True
End Sub

Beliebteste Forumthreads (12 Monate)

Excel - Outlook

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread