Hallo Amstelchen,
Ich habe hier das Code bin leider in der hinsicht ein Leie, der Computer wurde leider nach meiner Zeit erfunden .
Wo und Wie gebe ich das Code ein damit es funktioniert ??
Gruß Markus
Private Sub CommandButton10_Click()
Dim OutApp As Object, apptOutApp As Object
Dim Spalte, SpalteN As Variant
Dim b, i, x As Integer
'Hier beginnen die Termine
Range("B36").Select
For i = 2 To 6 'Die Schleife müsste evtl angepasst werden (Derzeit waagerecht Ab B2)
Set OutApp = CreateObject("Outlook.Application")
Set apptOutApp = OutApp.CreateItem(1) 'olAppointmentItem)
With apptOutApp
.Start = Format(ActiveCell.Value, "dd/mm/yyyy") & " 09:00"
'Termininfo
.Subject = [b37]
'.Location = 'ort
.Duration = "10"
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
'Erinnerung wiederholen
.ReminderSet = True
'Termin speichern
.Save
End With
ActiveCell.Offset(0, 1).Select 'Nächste Zelle auswählen
Set apptOutApp = Nothing 'Variablen leeren!!!
Set OutApp = Nothing
Next i
MsgBox "Termine an Outlook übertragen!"
End Sub
