ich möchte gerne beim öffnen einer Datei eine MsgBox erscheinen lassen,
welche mir alle infos aus der Zeile mit dem aktuellen Datum anzeigt.
Wisst ihr wie das geht?
Gruß
Andi
Private Sub Workbook_Open()
MsgBox (Date & " " & Range("A1").Value)
End Sub
Private Sub Workbook_Open()
Dim zaehler As Integer
For zaehler = 2 To Worksheets("Schichtplan").Cells(65536, 2).End(xlUp).Row
If Worksheets("Schichtplan").Cells(zaehler, 2).Value = Date Then
MsgBox Date & " " & Worksheets("Schichtplan").Cells(zaehler, 6).Value
End If
Next zaehler
End Sub