VBA: Zellen farbig nach Vergleich mit Zellentext
21.09.2017 17:14:59
Daniel
Danke erstmal für die Aufnahme. Jetzt hab ich mich doch mal angemeldet. Dieses Forum hat mir schon sehr oft und gut geholfen. Doch jetzt komme ich an meine Grenzen.
Ich habe in Excel2007 einen Projektstrukturplan erstellt. Die Datei macht bereits:
- Mit CommundButton eine Kopie eines Arbeitsblattes (Template einer Arbeitspaketbeschreibung (Apb))
- Link in die Zelle zum neuen Arbeitsblatt
- Zelle nach Erstellung der Apb gelb färben (für in Arbeit)
- Userform nicht aufrufen zur Erstellung der Apb aber MsgBox wenn falsche Zelle angewählt. Soweit so gut.
Jetzt mein Problem:
*Abp_111 ist Beispiel-Tabellenblatt*
In den Arbeitsblättern der Apb gibt es in Zelle F15 das Ist-Datum. Die Position des Datum ist immer gleich. Der jetzige Code färbt die Zelle im Projektstrukturplan (PSP), erstes Tabellenblatt, mit dem Arbeitspaket-Titel grün (für erledigt).
##############
Public Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If ActiveSheet.Cells(15, 6).Text = Format(Date) Then
Worksheets("PSP").Cells(11, 4).Interior.Color = 5296274
End If
End Sub
##############
Ich möchte aber gerne, dass er den Zelleninhalt A7 (also Arbeitspaket-Titel) in den Arbeitsblättern Abp_... mit dem Zelleninhalt aus dem Tabellenblatt PSP vergleicht. Er soll sozusagen den Bereich in PSP nach dem gleichen Text absuchen wie in Blatt Abp_111.
Ich hoffe Ihr könnt mir helfen. Herzlichen Dank vor ab und liebe Grüße aus Berlin
https://www.herber.de/bbs/user/116433.xlsm