Formel mit Schleife

31/10/2010 - 08:43 von Tom | Report spam
Hallo Leute

Win 7 Office 2007

Im Breich E3 bis E11 stehen 9 verschiedene Begriffe
In Zelle I1 gebe ich einen der Begriffe ein
In Zelle J3 möchte ich ein a angezeigt bekommen
wenn der Begriff vorhanden ist ansonsten ein b
mit folgender Formel erreiche ich das auch

=WENN(ZÄHLENWENN($E$3:$E$11;$I$1)>0;"a";"b")

Im Bereich E15 bis E23 stehen wieder 9 verschiedene
nun möchte ich diesen Bereich genauso durchsuchen

=WENN(ZÄHLENWENN($E$15:$E$23;$I$1)>0;"a";"b")

diese Formel kommt dann in J4 und so weiter bis J37
die Bereiche die durchsucht werden sollen stehen jeweils in
neuner Blöcken getrennt durch 3 Leerzeilen bis Zeile 407
Die Formeln kommen noch in 3 andere Spalten und anstatt
des a und des b kommen da noch SVerweis-Formeln in
denen der Bereich auch angepasst werden muss
um mir nun die Schreibarbeit zu sparen dachte ich an eine
Schleife aber die Zàhler x und z die ich in die Formel eingebaut
habe zàhlen in jeder Zeile weiter bis das Max von x und z erreicht ist

hier die Schleife:

Sub Makro4()

Dim i As Long
Dim x As Long
Dim z As Long

For i = 3 To 37
For x = 3 To 399 Step 12
For z = 11 To 407 Step 12

Cells(i, 10).FormulaR1C1 = "=IF(COUNTIF(R" & x & "C5:R" _
& z & "C5,R1C9)>0,""a"",""b"")"

Next
Next
Next

End Sub

wie kriege ich das jetzt hin, dass die Zàhler x und z pro Zeile
die richtigen Bereiche enthalten?

mit freundlichen Grüßen

Thomas Koch
 

Lesen sie die antworten

#1 Claus Busch
31/10/2010 - 09:21 | Warnen spam
Hallo Tom,

probiers mal so:

Sub Test()
Dim i As Long
Dim m As Long

m = 3
For i = 3 To 399 Step 12
Range("J" & m).Formula = "=If(CountIf(E" & i & ":E" & i + 9 & _
",$I$1)>0,""a"",""b"")"
m = m + 1
Next
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen