VBA- Aktive farbe, Codevervollständigung

[schauan]

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 ...:

Code:

Cells.Find(What:=deskNo, After:=ActiveCell, LookIn:=xlFormulas2, LookAt:=xlPart, _
                SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, _
                SearchFormat:=False).Interior.Color = vbGreen