Thema Datum  Von Nutzer Rating
Antwort
Rot Übertrag Daten in Outlook Kalender aus Excel
02.06.2022 09:57:28 Chris
NotSolved

Ansicht des Beitrags:
Von:
Chris
Datum:
02.06.2022 09:57:28
Views:
108
Rating: Antwort:
  Ja
Thema:
Übertrag Daten in Outlook Kalender aus Excel

Hallo zusammen,

ich habe folgende Aufgabenstellung:

Aus einer Tabelle möchte ich bei Klick auf die jeweilige Zelle in Spalte G die Daten in den Outlookkalender übertragen:

Dabei hab ich in Zelle B den jeweiligen Text und in Spalte D das Datum hinterlegt.

Soweit hab ich auch 2 Codes geschrieben welche sich aber nur auf Zeile 4 bezieht:

Der Code

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Count = 1 Then
        If Not Intersect(Target, Range("G4")) Is Nothing Then
            Call Outlook_Termin
        End If
    End If
End Sub

ruft das folgende Modul auf:

Sub Outlook_Termin()

Dim oApp As New Outlook.Application
Dim oTermin As Outlook.AppointmentItem
Set oTermin = oApp.CreateItem(olAppointmentItem)

With oTermin
    '.Display
    .Subject = Tabelle1.Range("I4").Value
    .RequiredAttendees = "christian.woehrle@rud.com"
    .Start = Tabelle1.Range("D4").Value
    .Save

End With

Set oApp = Nothing
Set oTermin = Nothing

Variable = MsgBox("Termin in Outlook übertragen", vbOKOnly, "Übertrag erfolgreich")


End Sub

Ich habe allerdings Einträge von Zeile 4 bis Zeile 11.

Wie muss ich die Codes anpassen damit ich den jeweiligen Bezug zur Zeile habe? Also Anstatt I4 = I6 und I4 = I6 wenn ich auf G6 klicke.

Grüße Chris


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Übertrag Daten in Outlook Kalender aus Excel
02.06.2022 09:57:28 Chris
NotSolved