|
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
|