Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
236to240
236to240
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro

Makro
28.03.2003 13:06:39
Caro
Hallo Zusammen,

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


2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Makro
28.03.2003 14:09:45
Mo

Versuch es mal so

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"
for i = 1 to 65536
.Start = Range("F" & I).Value + TimeValue("9:00")
.Duration = 60
.ReminderMinutesBeforeStart = 10
.Categories = "Hauptkunde"
.Display
.Importance = olImportanceHigh
next i
End With
Set termin = Nothing
End Sub

Danke im voraus


Anzeige
Re: Makro
28.03.2003 15:28:54
Caro

Werde es sofort testen!!
Vielen dank für die Hilfe!



Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige