Makroänderung
24.01.2004 13:21:54
Jürgen
Habe dises Makro das mir Terminfälligkeiten anzeigt.
Habe in Spalte A Namen, in Spalte B sind Datums.
Möchte nun noch die Spalten C-M mit Datums belegen. Was muss am Makro geändert werden das mir die Termine in den restlichen Spalten bei fälligkeit auch angezeigt werden.
Option Explicit
Sub Termin()
Dim nam As String
Dim Datum1 As Date, z
z = 1
Datum1 = Format(Now() + 21, "dd.mm.yy")
Do While Cells(z, 1) <> ""
If Cells(z, 2) = Datum1 Then _
MsgBox "Achtung ! Es steht ein Termin an mit Herr/Frau " & (Cells(z, 1)) & " am " & Cells(z, 2)
z = z + 1
Loop
End Sub
Gruss Jürgen