auf Herbers CD habe ich folgendes Makro entdeckt:
Text-Index: 114100
Thema: Allgemein
Subject: Datum suchen und Adresse der Fundzelle ausgeben
Problem: Wie kann ich in Spalte A ein Datum suchen und die Adresse der Fundzelle in einer MsgBox ausgeben lassen?
Lösung: Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub SuchDatum()
Dim rng As Range
Dim dat As Date
Dim var As Variant
dat = DateSerial(2000, 5, 5)
var = Application.Match(CDbl(dat), Columns(1), 0)
If IsError(var) Then
Beep
MsgBox prompt:="Datum wurde nicht gefunden!"
Else
MsgBox prompt:="Fundzeile: " & var
End If
End Sub
Wie kann ich das so abändern, dass
a) wenn das Datum vorhanden ist der Cursor in diese Zelle springt
b) wenn das Datum nicht vorhanden ist, der Cursor in die Zelle springt, die dem aktuellen (Tages-)Datum am nächsten kommt?
Vielen Dank!
mfg
Erich