zelle mit datum ansprechen
27.09.2021 16:20:26
Willi
diese beiden makros habe ich von einem Mitglied erhalten. Funktionieren auch wenn
ich in der Zelle A1 stehe.
Ich habe eine lange Spalte mit Datum eingetragen (z.B. von a1 bis a500)
diese beide Moduls funktionieren allerdings nur in A1. Was muss ich eintragen, daß
es auch funktioniert wenn der Cursor z.B. im Datum von Zelle A50 steht?
Sub DateUP()
Dim raC As Range: Set raC = ActiveCell
If raC.Address(0, 0) = "A1" And IsDate(raC) Then raC = raC + 1
End Sub
Sub DateDWN()
Dim raC As Range: Set raC = ActiveCell
If raC.Address(0, 0) = "A1" And IsDate(raC) Then raC = raC - 1
End Sub
Ich hoffe Ihr könnt mir helfen und bedanke mich im voraus
Mfg Willi Meier
Anzeige