Schleifendurchlauf zählen
06.10.2006 21:57:14
frank
ich suche nach einer Möglichkeit, dass ich die Anzahl meiner Schleifendurchgänge zählen und diese mittels Statuszeile oder msgBox ausgeben kann. Hatte letztens schon was in in der Recherche zur Statuszeile gefunden aber irgendwie ist das Codebeispiel mir abhanden gekommen. jesenfalls finde ich es nicht mehr.
Bei dem Beispiel wurde jeder Durchgang gezählt ob Bedingung erfüllt oder nicht. Ich bräuchte die Anzeige der Durchgänge die auch alle Bedingungen erfüllt haben und daraus eine Aktion ableiten.
In meinem Fall sollen erst Mails verschickt werden wenn gewisse Kriterien erfüllt sind. Zum Ende des Schleifendurchgangs wäre es für den User nützlich zu erfahren, dass bei der Aktion X Mails verschickt wurden sind. Diesen Counter könnte man dann in eine MsgBox einbauen.
Hat jemand einen Ansatz wie ich das realisieren könnte?
Ein Teil meines Codes sieht folgender maßen aus.
If Cells(irow, 6).Value = "angenommen" Then
If Cells(irow, 10).Value = "" Then
If Cells(irow, 9).Value <= DateValue(Date + 7) Then
If Not IsNumeric(Cells(irow, 8).Value) Then
Set objOutlook = CreateObject("Outlook.Application")
strRecipient = Cells(irow, 8)
strSubject = "VV Erinnerung!"
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
VVNR = Cells(irow, 2)
Thema = Cells(irow, 4)
Set objOutlookRecip = .Recipients.Add(strRecipient)
objOutlookRecip.Type = olTo
weiter:
objOutlookRecip.Resolve
End With
Set objOutlook = Nothing
objOutlookMsg.Display ' jede mail wird vorher angezeigt
'objOutlookMsg.Send ' jede mail wird gleich abgeschickt
Application.StatusBar = False
Application.DisplayStatusBar = bolStatusBar
End If
End If
End If
End If
Next irow
MsgBox "Entscheider wurden benachrichtigt!", vbInformation, "E-Mail Benachrichtigung"
[A1].Select
Danke und Gruß Frank