Mit einer Funktion die Zellfarbe wechseln
Guten Abend liebe VBA Cracks
Ich möchte abhängig des Wertes der Zelle r (z.B F7 in der Mappe ISO27002_Cockpit) die Farbe der Zelle D6 in der Mappe "ISO27002_Audit_2020" grün setzen. Dafür habe ich die Funktion CheckControl (r) geschrieben und in der Spalte E der Mappe "ISO27002_Cockpit" jeweils die Formel "=CheckControl(Fxx) " eingetragen. Das Ding will aber nicht das tun was ich möchte...
Kann mir jemand dabei helffen??
Danke und viele Grüsse
Auditeur2019
Function CheckControl(r)
Application.ScreenUpdating = False
Application.Volatile
If r.Value = "Ja" Then
CheckControl = "OK"
adr = r.Address
adr = "$d" & Mid(adr, 3, 2)
Worksheets("ISO27002_Audit_2020").Activate
Range(adr).Select
ActiveCell.Offset(-1, 0).Select
ActiveCell.Interior.ColorIndex = 4
End If
End Function
Guten Abend!
Können Sie ein Fragment Ihrer Datei anhängen, damit wir Sie besser erfassen und Ihnen helfen können?
Ihre Arbeitsmappe erkennt externe Links.
Wenn diese Links aus anderen Arbeitsmappen stammen, passen Sie die Funktion oder das Makro an, indem Sie zuerst die Arbeitsmappe (n) öffnen, bevor Sie die betreffende Zelle einfärben. Ich melde mich morgen um 10 Uhr bei Ihnen, falls niemand reagiert.
Es tut mir leid, ich verwende den Google Übersetzer. Ich hoffe wir verstehen uns.
Bonsoir Nathalie
Je suis francophone donc..Je n'ai pas très bien compris les raisons de mon problème, comment pouvons-nous communiquer le plus efficacement?
Bonne soirée
Auditeur2019 (alias Gabriel)
Salut tout le monde,
via traduction Google de la demande
Private Sub Worksheet_Change(ByVal Target As Range)
'
Worksheets("ISO27002_Audit_2020").Cells(Target.Row - 1, Target.Column).Interior.ColorIndex = IIf(Target = "Ja", 4, 0)
'
End SubPas de fonction (keine function, keine formel) ni de formule : une Sub_Change.
A+
Salut tout le monde,
via traduction Google de la demande
, essaie ceci. Private Sub Worksheet_Change(ByVal Target As Range) ' Worksheets("ISO27002_Audit_2020").Cells(Target.Row - 1, Target.Column).Interior.ColorIndex = IIf(Target = "Ja", 4, 0) ' End SubPas de fonction (keine function, keine formel) ni de formule : une Sub_Change.
A+
As-tu vu ceci ?
Je pensais déjà à la même option... Bonne soirée
Wouaaaa c'est une écriture très dense et élégante! Je ne sais pas comment introduire les paramètres…
Salut Auditeur,
Ah!? Plus facile en français, dis donc!
Pas de paramètres!
Tu as juste à taper "Ja" dans une cellule quelconque de 'ISO27002_Cockpit', la macro faisant le reste.
La macro se trouve dans le module VBA de 'ISO27002_Cockpit'.
Ai-je tapé dans le mille?
A+
Merci plein dans le mille, cette function est fantastique….