habe folgendes Problem, bei dem ihr mir hoffentlich helfen könnt.
Das Makro bezieht sich auf eine Zelle Spalte F, sollte aber auf alle Zellen dieser Spalte ausgeführt werden und den Inhalt von der Betreffenden Zeile aus Spalte A und D auch noch ins Textfeld übertragen:
Sub termin ()
Dim olApp As Outlook.Application
Dim termin As Outlook.AppointmentItem
Set olApp = New Outlook.Application
Set termin = olApp.CreateItem(olAppointmentItem)
With termin
.Subject = "Betreff"
.Body = vbCr & vbCr & "Dringend"
.Location = "Büro"
.Start = Range("F5).Value + TimeValue("9:00")
.Duration = 60
.ReminderMinutesBeforeStart = 10
.Categories = "Hauptkunde"
.Display
.Importance = olImportanceHigh
End With
Set termin = Nothing
End Sub
Danke im voraus!!!!