08.02.2023, 09:21
Hallöchen,
versuche auch mal, den "Arbeitsweg" Deines codes nachzuvollziehen.
In Deiner Zelle steht z.B. 1 Tisch
- Makrostart
- wegen der 1 selektion Blatt 1 Stock
- Suche 1 Tisch,
<--> wenn gefunden,
--> Zelle aktivieren
--> einfärben
Die Zelle mit 1 Tisch ist also in jedem Fall aktiv und Deine Bedingung wird nie eintreten.
Du müsstest anders herangehen. Hier wieder für 1 Tisch:
- Makrostart
- setzte eine Farbvariable auf grün
- wegen der 1 selektion Blatt 1 Stock
- schaue auf den Inhalt der aktiven Zelle
- wenn nicht 1 Tisch, dann Farbvariable auf xlNone setzen
- Suche 1 Tisch,
<--> wenn gefunden,
--> Zelle aktivieren
--> einfärben
Falls Dir das aktivieren nicht behagt, kannst Du das Einfärben auch ohne ...:
versuche auch mal, den "Arbeitsweg" Deines codes nachzuvollziehen.
In Deiner Zelle steht z.B. 1 Tisch
- Makrostart
- wegen der 1 selektion Blatt 1 Stock
- Suche 1 Tisch,
<--> wenn gefunden,
--> Zelle aktivieren
--> einfärben
Die Zelle mit 1 Tisch ist also in jedem Fall aktiv und Deine Bedingung wird nie eintreten.
Du müsstest anders herangehen. Hier wieder für 1 Tisch:
- Makrostart
- setzte eine Farbvariable auf grün
- wegen der 1 selektion Blatt 1 Stock
- schaue auf den Inhalt der aktiven Zelle
- wenn nicht 1 Tisch, dann Farbvariable auf xlNone setzen
- Suche 1 Tisch,
<--> wenn gefunden,
--> Zelle aktivieren
--> einfärben
Falls Dir das aktivieren nicht behagt, kannst Du das Einfärben auch ohne ...:
Code:
Cells.Find(What:=deskNo, After:=ActiveCell, LookIn:=xlFormulas2, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
SearchFormat:=False).Interior.Color = vbGreen