die folgende Auflistung funktioniert im aktiven Tabellenblatt. Wenn aber Heute in einem anderen Tabellenblatt ist gibt es eine Fehlermeldung. Könnt ihr mir helfen und den VBA Code ändern.
Sub Heute()
Dim z As Range, sp As Range
Set sp = Range("B:GG")
For Each z In sp
If z.Value = Date Then
Cells(z.Row, z.Column).Select
Exit For
End If
Next z
End Sub
Danke für die HilfeGruß
KON