Outlook Task mit VBA automatisieren

Hallo zusammen
Ich nutze diese Seite um autodidaktisch VBA zu erlernen. Allerdings stehe ich ein klein wenig im Zeitdruck, da ich bis Ende Woche zwei Skripts fertig stellen muss.
Vielleicht bekomme ich durch euch Profis den richtigen Hinweis mein Skript zu vervollständigen.
Problem:
Ich muss bestimmte Datensätze in Excel mit Outlook automatisieren. In der Masterliste finden sich jeweils Datensätze, welche nach einer Gültigkeit abgefragt werden sollen. Dies funktioniert soweit gut, wenn die Zeile, welche in den Outlook-Task gezogen werden soll, die letzte Zeile in der Tabelle ist.
Ich konnte leider die Variablen nicht anders definieren als wie folgt:
Dim ID As Integer
Set ID = Range("A6").End(xlDown).Value
Wie schaffe ich es, dass mein Skript es versteht, wenn die Zelle z.B. K50
aktiv ist, dass dann A50 + B50 + C50 in den Task gezogen wird?
(Für K51, dann A51 + B51 + C51, usw.)
Besten Dank für jede Hilfe!
Liebe Grüsse
VBA_Beginner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Zeilenbestimmung() Dim i As Variant Dim k As Long Dim ID As String ID = Cells(i, 1) Dim Nr_OLD As Integer Nr_OLD = Cells(i, 2) Dim Nr_NEW As Integer Nr_NEW = Cells(i, 3) For i = 1 To 500 If ActiveCell.Columns(i, 3) = ActiveCell.Activate Then Cells(i, 1 - 3) = k 'Hier habe ich Mühe den Syntax nachzuvollziehen End If 'Outlook Assignment NewTask.Assign = ID.Value & Nr_NEW.Value & ", " & Nr_OLD.Value End Sub

Hallo Klaus
Danke für deine Antwort und deinen Rat betreffend Name. Hier mein gesamter Code und Denkansatz:

Sub Schaltfläche4_Klicken()
UserForm1.Show
End Sub

Function GetTaskActions(NewTask As Outlook.TaskItem) As Outlook.Actions
Set GetTaskActions = NewTask.Actions
End Function

Sub Mail_to_PM_with_Outlook()
Dim objOLApp As Outlook.Application
Dim NewTask As Outlook.TaskItem
Dim Acts As Outlook.Actions
Dim myDelegate As Outlook.Recipient
Dim Editor As String
Editor = Range("J6").End(xlDown).Value
Dim Process_OLD As Variant
Process_OLD = Range("B6").End(xlDown).Value
Dim Process_NEW As Variant
Process_NEW = Range("C6").End(xlDown).Value
Dim Status As String
Status = Range("K6").End(xlDown).Value
Set objOLApp = CreateObject("Outlook.Application")
Set NewTask = objOLApp.CreateItemFromTemplate("[Template_Path]\Aufgabenvorlage.oft")
Set myDelegate = NewTask.Recipients.Add("user@domain") 'Empfänger E-Mail
Set Acts = GetTaskActions(NewTask)
'Send to Outlook Task Form
NewTask.StartDate = Now()
NewTask.Status = olTaskInProgress
NewTask.DueDate = Format(Now() + 3, "dd.mm.yyyy")
NewTask.Assign = Editor & ", " & Process_OLD & " / " & Process_NEW & " / " & Status
NewTask.Display
MsgBox "Prozess erfolgreich übertragen"
End Sub

'Der obengenannte Code funktioniert prima für die letzte Zeile in der Tabelle.. Ich möchte jetzt aber bewirken, dass
wenn ich auf Zelle D3 bin und mein Skript per Button auslöse, dass dann jeweils den Wert von der Zelle A3 + B3 + C3 verkettet
wird und dann im Titel-feld der Outlook-Task-Form gezogen wird. Siehe unten mein Denkansatz von heute Morgen.

Sub Zeilenbestimmung()
Dim i As Variant
Dim k As Long
Dim ID As String
ID = Cells(i, 1).Value
Dim Nr_OLD As Integer
Nr_OLD = Cells(i, 2).Value
Dim Nr_NEW As Integer
Nr_NEW = Cells(i, 3).Value
i = ActiveCell.Value
If Columns(i, 3) = ActiveCell.Select Then
Cells(i, "1:3").Value 'Hier habe ich Mühe den Syntax nachzuvollziehen
End If
'Outlook Assignment
NewTask.Assign = ID & ", " & Nr_NEW & " / " & Nr_OLD
End Sub

Sub Macro2() Dim MyRow As Long MyRow = ActiveCell.Row Dim ID As String ID = Cells(MyRow, 1).Value Dim Nr_OLD As Integer Nr_OLD = Cells(MyRow, 2).Value Dim Nr_NEW As Integer Nr_NEW = Cells(MyRow, 3).Value

Sub Macro2() Dim MyRow As Long Dim ID As String Dim Nr_OLD As Integer, NR_NEW As Integer MyRow = ActiveCell.Row ID = Cells(MyRow, 1).Value Nr_OLD = Cells(MyRow, 2).Value NR_NEW = Cells(MyRow, 3).Value

Beliebteste Forumthreads (12 Monate)

Outlook Task mit VBA automatisieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Outlook Task mit VBA automatisieren

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread