Msg Box Ausgabe Zelle.Address(False, False)
27.05.2014 16:14:07
Henry
Hallo Zusammen,
ich benutze einen Code um in einer seeehr langen Liste zu prüfen ob Datumseingaben genau heute sind.
Als Ergebnis wird eine Message Box angezeigt die mir die Treffer zeigt.
Die Message Box gibt die Adresse der gefundenen Zelle wieder.
Wie kann ich den Code ändern, dass er mir den Inhalt der Zelle die genau darüber liegt in die Box setzt. Zb. Datum A5 dann soll er den Inhalt A4 anzeigen statt die Adresse der geprüften Zelle.
Public Sub XCHECKDATE()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("A2:A6000")
For Each Zelle In Bereich
If Zelle = "" Then
'nix unternehmen
ElseIf Zelle = Date Then
MsgBox "Prüfen - siehe " & Zelle.Address(False, False)
End If
Next
End Sub