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
Nun benötige ich noch weitere Makros die jeweis den ersten Tag eines Monats finden.Kann mir jemand für irgend einen Monat den Code anpassen?
1.000 Dank
Micha