msgbox
22.09.2016 07:14:28
Annette
der Tipp besser eine msgbox zu machen finde ich total super.
Habe auch die halbe Nacht schon die ersten Erfolge, doch bis zum Ende reicht das Wissen mal wieder nicht.
Folgenden Code habe ich in DieseArbeitsmappe getan:
Sub kontrolle_msgbox()
Sheets("Mitarbeiter").Select
msgbox "Wichtiger Hinweis zur Führerscheinkontrolle", vbCritical, "ACHTUNG!!!"
Dim strText As String
strText = " wichtig !!!"
Text = "Folgene Mitarbeiter stehen zur Kontrolle an:" & ActiveCell.Value
msgbox Text, vbOKOnly, "Auflistung"
End Sub
Wenn ich den Code ausführen lassen klappt er schon ganz gut.Aber nun zu meinen Fragen.
Ich möchte aber gern das die msgbox nach der Öffnung angezeigt wird und mitteilt welche Mitarbeiter (Name steht auf Blatt Mitarbeiter Spalte B) und das Datum (Steht in Spalte F)für die nächste Prüfung.
Alles was ich bisher ausprobiert habe läuft nicht.Es müsste doch ein Vergleich vom Datum heute mit der Spalte F sein, oder liege ich da falsch?
Und noch eine Grundsatzfrage dazu. Ist es möglich die Info aus der masgbox dann gleichzeit als Email zu versenden an den entsprechenden Vorgesetzten?
vielen Dank
Annette