=Wenn

Forumthread: =Wenn

=Wenn

07.03.2003 04:00:44

Didi

Guten Morgen Excelfreunde,

ich bastle schon seit Stunden an einer Formel und komm nicht drauf.

Ich habe 9 Tabellenblätter:

In den Tabellen 1 und Tabelle 2 soll der Bereich Q19:Q30 durchsucht werden.

In den Tabellen 3 bis Tabelle 7 soll der Bereich R19:R30 durchsucht werden.

In den Tabellen 8 und Tabelle 9 soll wieder der Bereich Q19:Q30 durchsucht werden.

Wenn sich in einem der genannten Bereichen eine Zahl <>0 befindet, dann möchte ich, daß im 10. Tabellenblatt in Zelle A1 ein X eingetragen wird.

Vielen Dank für Euere Mühe

Gruß
Didi

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: =Wenn

07.03.2003 07:33:41

michel
Re: =Wenn

07.03.2003 07:41:12

Willie
Re: =Wenn

07.03.2003 09:03:15

Jörg Gradert

Re: =Wenn

07.03.2003 07:33:41

michel

hallo didi,
ein evtl. unkonventioneller und sicherlich verbesserungswürdiger ansatz:

Wenn(Zählenwenn(Tabelle1!Q19:Q30;0)+zählenwen.....=108;"";"X")

michel

Re: =Wenn

07.03.2003 07:41:12

Willie

Versuche es mal damit mit ich habe es bei mir auspobiert
da hat es funktioniert

Sub suchen()
start = 19

Do
If Sheets("Tabelle1").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31

start = 19
Do
If Sheets("Tabelle2").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle8").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle9").Cells(start, 17) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31

start = 19
Do
If Sheets("Tabelle3").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle4").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle5").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle6").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
start = 19
Do
If Sheets("Tabelle7").Cells(start, 18) <> 0 Then
Sheets("Tabelle10").Cells(1, 1) = "X"
End If
start = start + 1
Loop Until start = 31
End Sub

Gruß

Willie

Re: =Wenn

07.03.2003 09:03:15

Jörg Gradert

Hallo Didi,
jetzt hab ich so lange gebastelt und bin mal wieder der letzte.
Du sollst die Formel trotzdem haben. Mein Ansatz lautet: zähle alle Zahlen in den Bereichen und ziehe davon die Anzahl der Nullen ab. Wenn das Ergebnis größer als Null ist, dann wurde mindestens eine Zahl gefunden. Wenn Du noch wissen willst, wie viele Zahlen ungleich Null eingegeben wurden, brauchst Du nur die Wenn Abfrage vorne "WENN((" und hinten ")>0;"X";"")" von der Formel abzubasteln.

Diese Formel braucht nur in Zelle A1 von Tabelle 10 kopiert werden.

=WENN((ANZAHL(Tabelle1!$Q$19:$Q$30;Tabelle2!$Q$19:$Q$30;Tabelle3!$R$19:$R$30;Tabelle4!$R$19:$R$30;Tabelle5!$R$19:$R$30;Tabelle6!$R$19:$R$30;Tabelle7!$R$19:$R$30;Tabelle8!$Q$19:$Q$30;Tabelle9!$Q$19:$Q$30)-ZÄHLENWENN(Tabelle1!$Q$19:$Q$30;"0")-ZÄHLENWENN(Tabelle2!$Q$19:$Q$30;"0")-ZÄHLENWENN(Tabelle3!$R$19:$R$30;"0")-ZÄHLENWENN(Tabelle4!$R$19:$R$30;"0")-ZÄHLENWENN(Tabelle5!$R$19:$R$30;"0")-ZÄHLENWENN(Tabelle6!$R$19:$R$30;"0")-ZÄHLENWENN(Tabelle7!$R$19:$R$30;"0")-ZÄHLENWENN(Tabelle8!$Q$19:$Q$30;"0")-ZÄHLENWENN(Tabelle9!$Q$19:$Q$30;"0"))>0;"X";"")

Gruß Jörg

Beliebteste Forumthreads (12 Monate)

Forumthread: =Wenn

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread