Hilfe

mein Makro funktioniert soweit ganz gut nur das ich immer die Nummer und den Fahrer
trotz For Each Schleife neu eingeben muss.
Was habe ich bei diesen Makro für einen Fehler gemacht?
Kann mir jemand bei diesen Fehler behilflich sein?

Dim Zelle As Range, Zahl
Dim Zell As Range, Fahrer
For Each Z In Selection
Zahl = InputBox("Bitte eine Nummer eingeben")
Fahrer = InputBox("Bitte den Namen des Fahrers eingeben")
Range(Z.Address).Interior.ColorIndex = 3
Range(Z.Address).Offset(0, 26) = Date
Range(Z.Address).Offset(0, 25) = Zahl
Range(Z.Address).Offset(0, 27) = Fahrer
Next Z

Mit freundlichen Grüßen Thomas H.