Sub SofortMaßnahme()
'X setzen sobald ein Erfüllungsgrad =0
If Sheets("CAP").Cells(10, 2) = "0" Then
Sheets("CAP").Cells(10, 6) = "X"
Else: Sheets("CAP").Cells(10, 6) = ""
End If
If Sheets("CAP").Cells(11, 2) = "0" Then
Sheets("CAP").Cells(11, 6) = "X"
Else: Sheets("CAP").Cells(11, 6) = ""
End If
If Sheets("CAP").Cells(12, 2) = "0" Then
Sheets("CAP").Cells(12, 6) = "X"
Else: Sheets("CAP").Cells(12, 6) = ""
End If
If Sheets("CAP").Cells(13, 2) = "0" Then
Sheets("CAP").Cells(13, 6) = "X"
End If
If Sheets("CAP").Cells(14, 2) = "0" Then
Sheets("CAP").Cells(14, 6) = "X"
End If
If Sheets("CAP").Cells(15, 2) = "0" Then
Sheets("CAP").Cells(15, 6) = "X"
End If
If Sheets("CAP").Cells(16, 2) = "0" Then
Sheets("CAP").Cells(16, 6) = "X"
End If
If Sheets("CAP").Cells(17, 2) = "0" Then
Sheets("CAP").Cells(17, 6) = "X"
End If
If Sheets("CAP").Cells(18, 2) = "0" Then
Sheets("CAP").Cells(18, 6) = "X"
End If
If Sheets("CAP").Cells(19, 2) = "0" Then
Sheets("CAP").Cells(19, 6) = "X"
End If
If Sheets("CAP").Cells(20, 2) = "0" Then
Sheets("CAP").Cells(20, 6) = "X"
End If
If Sheets("CAP").Cells(22, 2) = "0" Then
Sheets("CAP").Cells(22, 6) = "X"
End If
If Sheets("CAP").Cells(23, 2) = "0" Then
Sheets("CAP").Cells(23, 6) = "X"
End If
If Sheets("CAP").Cells(24, 2) = "0" Then
Sheets("CAP").Cells(24, 6) = "X"
End If
If Sheets("CAP").Cells(25, 2) = "0" Then
Sheets("CAP").Cells(25, 6) = "X"
End If
If Sheets("CAP").Cells(26, 2) = "0" Then
Sheets("CAP").Cells(26, 6) = "X"
End If
End Sub
Hallo
2. Frage ist:
Wenn von TAbellenblatt1 alles was <2 übertragen wird z.B. Null, dann möchte ich das in Tabellenblatt2 in der Spalte z.B. C ein Kreuz erscheint sobald in Spalte z.B. A) Null steht. und zwar genau die Gleiche Zeile. Ich habe einiges schon rumprobiert, leider wird mir nur erste Zeile immer übertragen. irgendwie klappt das nicht mit zwei Variablen z.B. i=i+1 und k=k+1. Zum Schluss habe ich jeder Spalte Manuel in VBA angegeben s. Code aber das ist auch nicht die optimale Lösung sobald mehr Zeilen dazu kommen.
Danki und Liebe Grüße :)
MArta
|