Frage : Dieses Makro Zielzellen in den Gleichreihe Zellen einer genannten Strecke

Ich benötige ein Makro, das in einer Strecke schaut, die „Klingelne“ genannt wird und für jede Zelle in dieser Strecke, die auswertet, um AUSZURICHTEN, stellt sie heraus alle Zellen in der gleichen Reihe in der Strecke „AllAll“ auf Null ein. Mit anderen Worten wenn werden CL17=TRUE („Klingelne“ ist im Spalte CL), dann alle Zellen in Reihe 17 von „AllAll“ ein zero.

Thanks,
John gegeben

Antwort : Dieses Makro Zielzellen in den Gleichreihe Zellen einer genannten Strecke

John,

so (Beispiel sehen)

Ich angenommen, dass Klingelne und AllAll auf verschiedenen Blättern sein können n, der Code behandele das gleiche eithe oder die verschiedenen Blätter

Dave



1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

VorZeroEm ()
    Schwaches c als Strecke
    Schwaches rng1 als Strecke
    Schwaches WS als Arbeitsblatt
    Einstellen WS = Strecke („AllAll“). Elternteil
    Für jedes c in der Strecke („Klingelne“)
        Wenn UCase$ (c.Value) = „ZUTREFFEND“ dann
            Einstellen rng1 = schneiden (Strecke („AllAll“), WS. Reihen (c.Row))
            rng1.Value = „0“
        Beenden wenn
    Zunächst
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us