0
Ich habe ein Makro, das prüfen muss, ob es eine 1 in einer Zelle aus der gleichen Zeile gibt. Das Problem, das ich habe, ist, dass ich das für einen Bereich von 3 Spalten tun muss.Excel VBA, Überprüfung auf Wert von einer Zelle in der gleichen Zeile
Eigentlich funktioniert dieser Teil überhaupt nicht, aber ich kann es in Zellenform setzen.
Ich muss für alle Zellen von überprüfen ("P3: R" & iNbKids), wenn es eine 1 in der Zelle gibt ("K" & ActiveCell.Row). Ich habe viele Dinge ausprobiert, aber ich kann es nicht herausfinden.
iNbKids ist ein Integer
bitte ändern müssen sehen [dies] (http://stackoverflow.com/help/how-t o-ask) – OldUgly
Können Sie ein Code-Snippet oder einen Screenshot hinzufügen? –
Wie gesagt, im Moment funktioniert nichts für diesen Teil, aber ich kann hinzufügen, was ich habe. Ich brauche die Zellen in r2 nur dann gelb, wenn eine 1 in einer oder mehreren Zellen im Bereich ist (k: activecell.row). Das ist, wo mein Problem ist. Set r2 = ActiveWorkbook.Worksheets ("Feuil1") Bereich. ("P3: r" & iNbEnfants + 2) ‚für jede Zelle in r2 Wenn Cell.Value <> 0 Then Cell.Select Mit Active .Interior .Pattern = xlSolid .PatternColorIndex = XlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If Next –