Sheets („KBE Überprüfung“). Auserwählt
Strecke („I2“). Auserwählt
x = 2
Bis Zellen tun (x, 3) = ""
Zellen (x, 9).Select
ActiveCell.FormulaR1C1 = _
„=IF (ISNA (VLOOKUP (RC [- 6], „KBE Daten, zum von zu ziehen“! C [- 8], 1, FALSCHES))=FALSE, "" OKAY"", "", die verfehlen KBE "")“
Wenn ActiveCell.Value = „verfehlenKBE“ dann
ActiveCell.FormulaR1C1 = _
„=IF (ISNA (VLOOKUP (RC [- 6], „KBE Daten, zum von zu ziehen“! C [- 6], 1, FALSCHES))=FALSE, "" zurückgewiesenes KBE "", "", das verfehlt KBE "")“
Wenn ActiveCell.Value = „verfehlenKBE“ dann
ActiveCell.FormulaR1C1 = _
„=IF (ISNA (VLOOKUP (RC [- 6], „KBE Daten, zum von zu ziehen“! C [- 4], 1, FALSCHES))=FALSE, "" KBE benötigt das Bericht "", "", die verfehlen KBE "")“
Wenn ActiveCell.Value = „verfehlenKBE“ dann
ActiveCell.FormulaR1C1 = _
„=IF (ISNA (VLOOKUP (RC [- 6], „KBE Daten, zum von zu ziehen“! C [- 2], 1, FALSCHES))=FALSE, "" in bereitem KBE 47 zum "", "", das verfehlt KBE "")“
Wenn ActiveCell.Value = „verfehlenKBE“ dann
ActiveCell.FormulaR1C1 = _
„=IF (ISNA (VLOOKUP (RC [- 6], „KBE Daten, zum von zu ziehen“! C, 1, FALSCHES))=FALSE, "" in bereitem KBE 48 zum "", "", das verfehlt KBE "")“
Beenden wenn
Beenden wenn
Beenden wenn
Beenden wenn
x = x + 1
Schleife
|