Hilfe

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 2000
  • Hilfe von Thomas H. vom 11.05.2002 - 14:42:50
    • Re: Hilfe von WernerB. vom 11.05.2002 - 14:50:30
      • Re: Hilfe von Thomas H. vom 11.05.2002 - 15:02:01
nach unten

Betrifft: Hilfe
von: Thomas H.
Geschrieben am: 11.05.2002 - 14:42:50

Hallo Excelexperten,

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.


nach oben   nach unten

Re: Hilfe
von: WernerB.
Geschrieben am: 11.05.2002 - 14:50:30

Hallo Thomas,

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

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Hilfe
von: Thomas H.
Geschrieben am: 11.05.2002 - 15:02:01

Hallo Werner,

vielen Dank für Deine Hilfe.

Thomas.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "umbenennen von files"