Thema Datum  Von Nutzer Rating
Antwort
15.01.2016 01:59:42 Ivan
Solved
15.01.2016 09:18:33 Gast52215
NotSolved
15.01.2016 14:18:05 Ivan
NotSolved
15.01.2016 20:13:23 Gast99416
NotSolved
15.01.2016 21:40:34 Ivan
NotSolved
15.01.2016 21:48:15 ivan
NotSolved
16.01.2016 10:16:00 Gast66387
NotSolved
20.01.2016 07:07:39 Ivan
NotSolved
20.01.2016 11:23:33 Gast78124
NotSolved
20.01.2016 12:02:35 Ivan
NotSolved
20.01.2016 12:57:00 Gast11440
Solved
21.01.2016 07:41:27 Ivan
NotSolved
21.01.2016 10:06:31 Ivan
NotSolved
21.01.2016 11:06:28 Gast43298
Solved
21.01.2016 12:04:29 Ivan
NotSolved
21.01.2016 12:25:18 Gast35883
NotSolved
21.01.2016 17:38:06 Ivan
NotSolved
21.01.2016 18:47:02 Gast92778
Solved
21.01.2016 19:54:37 Ivan
NotSolved
21.01.2016 19:55:29 Gast21474
Solved
22.01.2016 11:19:16 Ivan
NotSolved
22.01.2016 14:52:35 Gast83025
Solved
22.01.2016 17:17:53 Ivan
NotSolved
23.01.2016 09:39:22 Gast57577
NotSolved
25.01.2016 16:34:26 Ivan
NotSolved
25.01.2016 19:32:12 Gast55614
Solved
25.01.2016 20:24:53 Ivan
NotSolved
25.01.2016 20:30:59 Ivan
NotSolved
25.01.2016 20:36:44 Gast9840
Solved
26.01.2016 16:56:22 Ivan
NotSolved
27.01.2016 00:32:09 Gast7711
NotSolved
27.01.2016 08:54:43 Ivan
NotSolved
27.01.2016 15:03:31 Gast88684
Solved
27.01.2016 17:23:38 Ivan
NotSolved
27.01.2016 17:43:56 Gast30255
NotSolved
27.01.2016 17:49:05 Ivan
NotSolved
27.01.2016 19:45:38 Gast98493
NotSolved
27.01.2016 20:01:00 Ivan
NotSolved
28.01.2016 14:20:52 Ivan
NotSolved
28.01.2016 17:15:53 Gast60985
NotSolved
28.01.2016 19:05:16 Ivan
NotSolved
Blau 3 Abhängige Kombinationsfelder
28.01.2016 19:32:05 Gast86626
NotSolved
28.01.2016 19:32:57 Gast99677
NotSolved
28.01.2016 19:52:20 Ivan
NotSolved
28.01.2016 20:15:16 Gast91096
NotSolved
28.01.2016 20:29:50 ivan
NotSolved
28.01.2016 21:30:32 Gast46622
NotSolved
29.01.2016 16:27:37 Ivan
NotSolved
29.01.2016 17:30:33 Gast3228
NotSolved
29.01.2016 17:40:19 Ivan
NotSolved
29.01.2016 18:23:17 Gast29453
*****
Solved
29.01.2016 18:38:05 Ivan
NotSolved
29.01.2016 18:45:59 Gast28669
Solved
29.01.2016 18:52:31 Ivan
Solved
29.01.2016 14:20:40 ivan
NotSolved

Ansicht des Beitrags:
Von:
Gast86626
Datum:
28.01.2016 19:32:05
Views:
1643
Rating: Antwort:
  Ja
Thema:
3 Abhängige Kombinationsfelder

Ok. Startmaske.cells sagt mir aber nichts. Gehe davon aus, dass es ein Bereichsname ist oder ein Verweis auf ein Worksheet, der extra vergeben wurde.

Bei der Mail, hast du aber das datum also den 27.01. geändert auf das von heute!? Ansonsten gehe mal bitte in de VBE und dann den Code einzeln mit F8 durch. Dann siehst du, wo Fehler sind (bei mir zB hängt es schon am Startmaske.cells) bzw. wie der Code verläuft (bei den Vergleichen). Vorher lief das versenden ja mit dem selben Code!?

Und zweite Möglichkeit. Die Makros sind aber aktiviert? Du startest den Code ja automatisch beim Öffnen.

 

Wenn wir es dann hinbekommen haben, würde ich an deiner Stelle den Code etwas einkürzen. Brauchst du bei Änderungen nicht so viel ändern.

Könnte dann so wie unten aussehen. Wobei prüf mal, ob du Sheets am Anfang wirklich brauchst und ob Startmaske auh was macht.

VG

 

With Sheets(1)

Startmaske.Cells(8, 7) = Date

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'FA1'

'Email Erinnerung für die Kohlenprüfung in den FA`S
Set olApp = CreateObject("Outlook.application")
Set olMyItem = olApp.CreateItem(0)
With olMyItem
        .To = ""
        .CC = ""
        .Subject = "Kohlenmeßen"
        
If Date = ("27.01" & Year(Date)) Then
.Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA1 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
Else
 'FA2 und FA4'
    If Date = ("01.03" & Year(Date)) Then
    .Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA2 und FA4 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
    Else
    'FA3 und FA5'
        If Date = ("01.05" & Year(Date)) Then
        .Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA3 und FA5 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
        Else
        'FA1'
            If Date = ("01.07" & Year(Date)) Then
            .Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA1 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
            Else
            'FA2 und FA4'
                If Date = ("01.09" & Year(Date)) Then
                'FA1'
                .Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA2 und FA4 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"""
                Else
                'FA3 und FA4'
                    If Date = ("01.11" & Year(Date)) Then
                    .Body = "Hallo Ivan und Markus" & vbCrLf & vbCrLf & "bitte denk dran das jetzt in FA3 und FA5 die Kohlen gemeßen werden müßen." & vbCrLf & vbCrLf & "Mit freundlichen Grüßen Ivan und Markus:"
                    End If
                End If
            End If
        End If
    End If
End If
.Send
       
End With 'für olMyItem
End With 'für sheets(1)
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
15.01.2016 01:59:42 Ivan
Solved
15.01.2016 09:18:33 Gast52215
NotSolved
15.01.2016 14:18:05 Ivan
NotSolved
15.01.2016 20:13:23 Gast99416
NotSolved
15.01.2016 21:40:34 Ivan
NotSolved
15.01.2016 21:48:15 ivan
NotSolved
16.01.2016 10:16:00 Gast66387
NotSolved
20.01.2016 07:07:39 Ivan
NotSolved
20.01.2016 11:23:33 Gast78124
NotSolved
20.01.2016 12:02:35 Ivan
NotSolved
20.01.2016 12:57:00 Gast11440
Solved
21.01.2016 07:41:27 Ivan
NotSolved
21.01.2016 10:06:31 Ivan
NotSolved
21.01.2016 11:06:28 Gast43298
Solved
21.01.2016 12:04:29 Ivan
NotSolved
21.01.2016 12:25:18 Gast35883
NotSolved
21.01.2016 17:38:06 Ivan
NotSolved
21.01.2016 18:47:02 Gast92778
Solved
21.01.2016 19:54:37 Ivan
NotSolved
21.01.2016 19:55:29 Gast21474
Solved
22.01.2016 11:19:16 Ivan
NotSolved
22.01.2016 14:52:35 Gast83025
Solved
22.01.2016 17:17:53 Ivan
NotSolved
23.01.2016 09:39:22 Gast57577
NotSolved
25.01.2016 16:34:26 Ivan
NotSolved
25.01.2016 19:32:12 Gast55614
Solved
25.01.2016 20:24:53 Ivan
NotSolved
25.01.2016 20:30:59 Ivan
NotSolved
25.01.2016 20:36:44 Gast9840
Solved
26.01.2016 16:56:22 Ivan
NotSolved
27.01.2016 00:32:09 Gast7711
NotSolved
27.01.2016 08:54:43 Ivan
NotSolved
27.01.2016 15:03:31 Gast88684
Solved
27.01.2016 17:23:38 Ivan
NotSolved
27.01.2016 17:43:56 Gast30255
NotSolved
27.01.2016 17:49:05 Ivan
NotSolved
27.01.2016 19:45:38 Gast98493
NotSolved
27.01.2016 20:01:00 Ivan
NotSolved
28.01.2016 14:20:52 Ivan
NotSolved
28.01.2016 17:15:53 Gast60985
NotSolved
28.01.2016 19:05:16 Ivan
NotSolved
Blau 3 Abhängige Kombinationsfelder
28.01.2016 19:32:05 Gast86626
NotSolved
28.01.2016 19:32:57 Gast99677
NotSolved
28.01.2016 19:52:20 Ivan
NotSolved
28.01.2016 20:15:16 Gast91096
NotSolved
28.01.2016 20:29:50 ivan
NotSolved
28.01.2016 21:30:32 Gast46622
NotSolved
29.01.2016 16:27:37 Ivan
NotSolved
29.01.2016 17:30:33 Gast3228
NotSolved
29.01.2016 17:40:19 Ivan
NotSolved
29.01.2016 18:23:17 Gast29453
*****
Solved
29.01.2016 18:38:05 Ivan
NotSolved
29.01.2016 18:45:59 Gast28669
Solved
29.01.2016 18:52:31 Ivan
Solved
29.01.2016 14:20:40 ivan
NotSolved