Mit Makro Monat finden?
Micha
ich brauche mal wieder Eure kompetente Unterstützung!
Mit dem folgenden Code finde ich in Spalte 3 die Zelle mit dem aktuellen Datum.
Sub heute()
Dim varZ As Variant, rg As Range
varZ = Application.Match(CDbl(Date), Columns(3), 0)
If Not IsNumeric(varZ) Then
MsgBox "Datum " & Date & " wurde nicht gefunden!"
Else
Set rg = Cells(varZ, 3)
rg.Activate
End If
End Sub
Kann mir jemand für irgend einen Monat den Code anpassen?
1.000 Dank
Micha
Anzeige