Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
228to232
228to232
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

=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
Anzeige
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

Anzeige
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



Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige