Große Datenbank durchsuchen
03.02.2004 02:17:33
michael
hab da eine größere Datenbank zu durchsuchen.
Meine Datenbank besteht aus 120 Spalten und 100 Zeilen.
In dieser Datenbank sind an umbestimmten Stellen Werte eingetragen.
Ich möchte nun zählen wie oft der Wert (zb. 13) in der Datenbank vorkommt,
wenn drei Spalten weiter der Wert (zb. fertig) steht.
- a b c d e f g h i
1......13.................
2....13...... fertig......
3.........................
4..........13.............
5....13...................
6..........13.......fertig
Wie oft kommt "13" mit drei Spalten weiter "fertig" vor.
Hier = 2 mal
Danke im voraus
Michael
------------------------------------------------------------------------
Dank an Mac4 für diese Lösung:
=ANZAHL(WENN(A1:E100=13;WENN(BEREICH.VERSCHIEBEN(A1:E100;;3="fertig";A1:E100)))
klappt leider nicht so richtig.
-------------------------------------------------------------------
Dank an AndreasS für diese Lösung:
Sub Suchen()
Dim Bereich As Range
Dim zelle As Range
Dim i&
Set Bereich = Range("A1:G100")
For Each zelle In Bereich
If zelle.Value = "13" And zelle.Offset(0, 3).Value = "fertig" Then
i = i + 1
End If
Next
MsgBox ("Es gibt:" & i&)
End Sub
Leider habe ich ca. 2X20 Werte, und müßte somit 40 Macros laufen lassen. :-(