Eine Spalte weiter...

Diese Frage wurde bestimmt schon mehr als einmal gstellt, aber
irgendwie habe ich die Antwort nicht gefunden.

Ich habe eine SuchRoutine und die betr. Zeile wurde gefunden und markiert, aber wie kriege das jetzt hin ,das die Zelle der nächsten Spalte markiert wird?
(Bsp. Zelle A1 wird gefunden und B1 soll markiert werden)

'DER CODE

Dim heute As Date
Dim zelle As Range
Application.ScreenUpdating = False
Sheets("Tagesspruch").Select
heute = Fix(Now)
On Error Resume Next
For Each zelle In ActiveSheet.UsedRange
If zelle.Value = heute Then
zelle.Activate
txtSpruch.Text = zelle
Exit For
End If
Next zelle

Danke!