Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code-Hilfe

Code-Hilfe
MatthiasJ
Hallo
ich habe folgenden Code:

Sub Try()
Dim OutApp As Object, Mail As Object
Dim x As Integer
Dim y As Integer
Dim Nachricht
For x = 1 To Cells(65536, 5).End(xlUp).Row
For y = 1 To Cells(65536, 5).End(xlUp).Row
If Cells(x, 5) = Cells(y, 5) Then
Set OutApp = CreateObject("Outlook.Application")
Set Nachricht = OutApp.CreateItem(0)
With Nachricht
.To = Cells(x, 12)
.Subject = "Pending Action Item Reminder--> " & Cells(x, 2) & "; " & Cells(y, 2)
.Body = "Please check your scheduler!" & vbCrLf & Cells(x, 8) & Cells(y, 8)
.Display
End With
Set OutApp = Nothing
Set Nachricht = Nothing
Application.Wait (Now + TimeValue("0:00:02"))
End If
Next x
Next y
End Sub

Ich bekomme jedesmal den Fehler:
"Fehler beim kompilieren:
Ungültiger Verweis auf Next-Steuervariable"
Kann mir da jemand raushelfen?
MFG
Matthias

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

Betreff
Benutzer
Anzeige
AW: Code-Hilfe
Ramses
Hallo
du schaltest auf die äussere Schleife während du in der inneren bist
Next x
Next y
es muss heissen
Next y
Next x
Gruss Rainer
Danke...oT
15.04.2004 11:03:41
MatthiasJ
-

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige