2016-09-28 17 views
0

Excelでシートを自動化しようとしています。Excel/VBA Countif関数の場合

解決策がvbaで動作するのかExcel機能であるのかは気にしません。

私は次欲しい:

Sub Kopieren() 
Dim Zelle As Range 
Dim i% 
    i = 7 


    For Each Zelle In Sheets("AufgabenListe").Range("B8:B12") 
    If Zelle <> "" Then 
    Zelle.Copy 
    Sheets("Mikro-RACI").Cells(i, "B").PasteSpecial Paste:=xlPasteValues 
    Application.CutCopyMode = False 

End If 


Next 
End Sub 

:私はすでに持っているどのようなC(別のシートで)

をセルに行Bに隣接セルをコピーし、

を行Aは、特定の単語が含まれている場合上記はコピーだけです。 Wheter Row Aには特定のテキストがあります。条件(行Aに特定のテキストが含まれている場合)を追加するにはどうすればよいですか?

+0

VLOOKUPこれを行うのだろうか? –

答えて

0

してみてください。列Cで

=IFERROR(IF(SEARCH("search text here",AufgabenListe!A8),AufgabenListe!B8),"")