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.

versuche es mal so:

Sub Tralala()
Dim Z as Range
Dim Zahl As String, Fahrer As String
    Zahl = InputBox("Bitte eine Nummer eingeben")
    Fahrer = InputBox("Bitte den Namen des Fahrers eingeben")
    For Each Z In Selection
      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
End Sub