Msgbox

[artcreativity]

Hallo Ralf,

habe den Cod von Ich auch angewendet, aber es wird Spalte c und nicht A angezeigt.
Brauche auch nur Spalte A = Name und Spalte F = Datum aus Formel verstellt, mehr nicht.

Hier der Code mit Email-Versand, der Teil funktioniert sauper.

Private Sub Workbook_Open()      'es erscheint eine MsgBox
Sheets("Mitarbeiter").Select
Dim zm As Long
Dim Feld As Range
Dim Fällig As String

zm = Cells(Rows.Count, 1).End(xlUp).Row

For Each Feld In Range("C2", "E" & zm)
    If Feld.Value < Date Then
       Fällig = Fällig & Feld.Offset(0, -2) & " " & Feld.Value & vbNewLine
    End If
Next Feld

msgbox "Führerscheinkontrolle fällig bei: " & vbNewLine & Fällig
    
    Dim Nachricht As Object, OutlookApplication As Object
    Set OutlookApplication = CreateObject("Outlook.Application")
    Dim Anhang As String
    Set Nachricht = OutlookApplication.CreateItem(0)
With Nachricht
    Sheets("Emailversand").Select
    .To = Range("A2")                                'Auswahl Emailadresse
    .BCC = Range("A6")                               'Auswahl Emailadresse Blindkopie
    .Subject = Range("A3")                           'Betreffzeile
    .Body = Range("A4")                              'Nachrichtentext
    .Display
End With
Set OutlookApplication = Nothing
Set Nachricht = Nothing
      
End Sub

[artcreativity]

Hallo an Alle

ich glaube ich habe das eine Problem heraus gefunden

For Each Feld In Range("F2", "F" & zm)  'Spalte F ist das Datum + 6 Monate
    If Feld.Value < Date Then
       Fällig = Fällig & Feld.Offset(0, 5) & " " & Feld.Value & vbNewLine '5 steht für 5 Spalten nach rechts von F (-5 wäre links)
    End If
Next Feld

Spalte F2 und F sind die Spalte mit dem entsprechendem Datum und dann geändert (0, 5) für rechts Spalten, dadurch zeigt mir die Msgbox jetzt das Datum an aber nicht den Namen dafür.
Wo steht das er den Namen auch anzeigen soll?

Ausserdem ist meine MSgbox riesig. Wie kann ich diese verkleinern?

[IchBinIch]

Feld.Offset(0, 5)
Steht der Name in Spalte K?

[artcreativity]

Nein Name steht in A

[artcreativity]

Ja hast ja so Recht muss -5 schreiben dann kommt der Name.

Danke für den Denkanstoos, stand auf der Leitung.

Wie kann ich aber die Msgbox verkleinern sie nimmt fast den ganzen Monitor ein?

[IchBinIch]

Die Größe der MessageBox kannst Du nicht anpassen.
Sie hängt von den angezeigten Werten ab. Ich vermute ein paar Namen sind
etwas länger?!
Wobei sprichst Du von Höhe oder Breite?
Die Höhe hängt natürlich von der Menge der fälligen Daten ab.

[artcreativity]

Wird die Msgbox kleiner wenn ich diese auf A2:A45 begrenze?

Oder kann ich diese anders begrenzen?

[IchBinIch]

Du wolltest eingangs eine "Anzeige" aller Fälligkeiten in einer Messagebox.
Im Code werden alle Daten ermittelt

Code:

For Eache Feld In Range...

Wenn Du etwas kürzen willst, dann musst Du die Range anpassen.
Das wird dann aber mit diesem Code
a) nicht mehr zu dem gewünschten Ergebnis führen und
b) ist das etwas anderes als eingangs beschrieben.

Ich denke Du solltest eine anonymisierte Datei einstellen. Das bringt so nix. 

Gruß 
Ich

[artcreativity]

Alle Anzeigen ist richtig. Ich habe nur 45 Eintragungen und mehr werden es wohl nicht werden.

Versuche mal eine Probedatei zumachen.

[RPP63]

Brrrrrh!
Selbst 45 Zeilen werden auf meinem Monitor problemlos angezeigt:

Code:

Sub WattIsLos()
Dim i&, Msg$
For i = 1 To 45
  Msg = Msg & vbLf & "Zeile: " & Format(i, "00")
Next
MsgBox Msg
End Sub

[offtopic]
Bei 45 Auszubildenden hatte ich dammalz die Daten im Kopf …
[/offtopic]

Gruß Ralf