Analyse der Werte aus 2 Tabellen
25.11.2004 15:40:15
Russi
Ich bin mit der Überarbeitung eines Makros überfordert. Bitte helft mir noch einmal:
Das funktioniert bisher: Die Funktion durchsucht den Zellbereich A1:K65536 der Tabelle "best", ob die in den Spalten enthaltenen Zahlen bestimmten Kriterien entsprechen.
Das soll jetzt dazukommen: Es existiert in der Datei noch eine weitere Tabelle Namens "org", deren Zellbereich A1:K65536 ebenfalls mit Zahlen gefüllt ist.
Entspricht der Eintrag in "org" in der identischen Zelle wie in "best" "xx01xxxx", dann soll zaehler nicht um 1 erhöht werden, sondern eine Variable Namens "sonstige" soll hochgezählt werden.
Unklar genug? Also: In "best" wird Zelle für Zelle überprüft. Als weiteres Kriterium soll die entsprechende Zelle in "org" (bspw. best!A1, dann auch org!A1 usw.) überprüft werden, ob dort an 3. und 4. Stelle "01" steht. Trifft dies zu, soll nicht "zaehler", sondern "sonstige" hochgezählt werden.
Hier mein Code bisher:
Public
Function bestanz(von, bis)
Dim Zelle As Variant
Dim Wert As Variant
Dim zaehler As Variant
With Worksheets("best")
Zelle = .Range("A1:K65536")
For Each Wert In Zelle
If Wert <> "" Then
If CInt(Right(Wert, 2)) >= von _
And CInt(Right(Wert, 2)) <= bis Then
zaehler = zaehler + 1
End If
End If
Next Wert
bestanz = zaehler
End With
End Function
Wäre echt toll, wenn Ihr mir mal wieder helfen könntet!!!
Viele Grüße
Russi
www.Russi.de.tt