Zeile markieren

[Jürschen175]

Hallo ich möchte gerne das die Fahrweg in Excel markiert werden

also erst soll A2 gelb ausgefüllt mit gelb werden dann A4 dann B6 usw. Makro darf es aber nicht zu schnell machen  so ca. 2 sek würde das gehen?

lieben Dank

[Gast 123]

Hallo an die Ostsee

dazu ist eine Beispieldatei sinnvoll, denn die Forum Ratgeber sind keine Hellseher!  
Wir können ja nicht sehen wie der Weg (die Wege) aussieht?  Welche Zellen wie gefaerbt werden müssen?
Eine kleine Beispieldatei mit dem Weg als Lösung ist unbedingt erforderlich. Das alles erraten können wir nicht.

mfg  Gast 123

[Jürschen175]

Hallo,

danke für deine Hilfe,
ich habe einmal eine Beispiel Datei erstellt. Es soll vom Start losfahren und mit gelb markieren. Auch wenn er nach rechts muß wie rot muss markiert werden.

Kann man auf einen Button klicken, dann wird die erste Zelle gelb nach  2 sek. die  nächste usw...

Bei Ende ist schluß.

Klickt man nochmal auf dem Start werden die gelben und roten wieder weiß und es geht von vorne los.

Würde das funktionieren ?

[IchBinIch]

Hallo Jürschen,

machbar ist vieles.
Aber mir entzieht sich der Nutzen der ganzen Aktion.

Gruß 
Ich

[Jürschen175]

Hallo
 der nutzen ist, das ich den Code anpasse und so wird ein großer  Lagerplan in Excel der Weg beschrieben wie ein stapler zu fahren hat. 

Denn Mitarbeiter kann man sowas besser zeigen wenn wir die Fahrwege ändern würden.
Deswegen wäre das sehr wichtig für mich.

Danke

[IchBinIch]

Hallo Jürschen,

dann pack den Code mal in ein allgemeines Modul.
Ich denke damit sollte der Ablauf klar sein.

Private Sub Navigieren()
With Tabelle1
    'Formatierung im Bereich A1:F20 aufheben (ggf. anpassen) 
    .Range("A1:F20").ClearFormats
    
    .Cells(5, 1).Interior.Color = vbYellow
    Application.Wait (Now + TimeValue("0:00:02"))
    .Cells(5, 2).Interior.Color = vbYellow
    Application.Wait (Now + TimeValue("0:00:02"))
    .Cells(5, 3).Interior.Color = vbYellow
    Application.Wait (Now + TimeValue("0:00:02"))
    .Cells(6, 3).Interior.Color = vbYellow
    
End With
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Gruß
Ich

[Jürschen175]

Hey Ich
schau mal da kommt fehlermeldung

[IchBinIch]

Nimm mal das "Option Explicit raus.

[Jürschen175]

kommt immer noch die Meldung:
Fehler beim Kompilieren 
Sub oder Function nicht definiert .

[IchBinIch]

Bei mir nicht  


  Fahrentest.xlsm (Größe: 20,61 KB / Downloads: 5)