Labelanzeige
01.10.2006 22:10:08
frank
ich befasse mich mit der Recherche seit eta 18:00Uhr und komme nicht zum Ziel.
Unter Visual Basic habe ich eine Antwort im Netzt gefunden aber unter VBA ...!!
Mir geht es eigentlich nur um eine simple Anzeige.
Habe ein Teil meines Codes mitgeschickt. Ich erhalte nach ablauf meines makros in der Statuszeile meine gewünschte meldung (z.B. 22 mails wurden versendet). Wie bekomme ich die Anzeige in ein einfaches label. Es muß dort nur stehen, dass z.B. nach 22 Schleifendurchgängen 22 mails wurden versendet - ok Button und Makro ist beendet.
Hat jemand eine simple Antwort.
PS: Mein Makro wurde durch großartige Köpfe aus dem Forum geboren!!!
Gruß Frank
Sub Mail()
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim strFile As String, strRecipient As String, strSubject As String
Dim bolStatusBar
Dim irow As Integer
Dim irowl As Integer
bolStatusBar = Application.DisplayStatusBar
irowl = Cells(Rows.Count, 1).End(xlUp).Row
For irow = 2 To irowl
If Cells(irow, 6).Value = "x" Then ' erste Prüfung ob "x" gesetzt wurde
If Cells(irow, 12).Value = "" Then ' zweite Prüfung ob die Zelle leer ist
ells(irow, 11).Value <= DateValue(Date + 6) Then ' dritte Prüfung ob das erforderliche Alter des Datums erreicht wurde
If Not IsNumeric(Cells(irow, 10).Value) Then ' vierte Prüfung ob e-mail adresse vorhanden
Cells(irow, 12) = Cells(irow, 10) ' Kopiere Wert von Zeile/Spalte 10 nach Zeile/Spalte 12
Application.DisplayStatusBar = True
Application.StatusBar = irow - 1 & " Mails wurden versendet"