wieRelativeAdresseBei .FormulaR1C1 = "=Countif(..

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rudi,
Deine Frage verstehe ich so, dass Du Dich in die Irre geleitet fühlst. Das tut mir leid.
"und gib mal eine Formel ein" hilft nicht weiter, da die betreffenden Formeln ja per VBA in die betreffenden Zellen gelangen. Aber vielleicht bin ich auch beim Verständnis dieser Hilfestellung noch nicht weit genug.
Danke für Deine Hilfe.
Hallo an alle,
anhaken von "Z1S1" führt zu folgendem Ergebnis:
=ZÄHLENWENN(LV!Z9S99:Z8301S99;Z26S1)
Meine Problemsituation löst das leider nicht, da nach einem Sortiervorgang keine Anpassung von
Z26S1
passiert. Die Zelle mit dieser Formel wird dann zwar mit dem Produkt derselben Zeile in eine andere Zeile sortiert, zeigt dann aber immer noch in die (alte) Zeile 26.
Beispiel:
In Spalte Anzahl stehen die Zählenwenn-Formeln
Produkte: Anzahl:
C8 2
RC110 3
RC112 3
B8 2
RD112 1
D1 1
D5 1
Nach einer Sortierung nach Produkte sieht der Bereich so aus
Produkte: Anzahl:
B8 1
C8 2
D1 3
D5 1
RC110 2
RC112 1
RD112 3
Erklärung:
Die Zählenwenn-Funktion von z.B. Produkt B8 wird zwar mitsortiert, zeigt aber nach der Sortierung auf die Zelle, in der B8 vor der Sortierung stand. Dort steht jetzt D5. Wie man aus dem Stand vor Sortierung sehen kann, kommt das Produkt D5 einmal vor. Zählenwenn arbeitet also richtig. Allein der Bezug stimmt nach der Sortierung nicht mehr. Folge: das Ergebnis ist unbrauchbar.
Ich habe per manueller Änderung verifiziert, daß das Sortierproblem bei folgender Bezugsart (wie schon im einleitenden Thread dargestellt) nicht auftritt:
=ZÄHLENWENN(LV!$B$9:$B$8300;$D26)
statt
=ZÄHLENWENN(LV!$B$9:$B$8300;$D$26)
Kleiner Hinweis: in der "Echten" Anwendung handelt es sich nicht um nur 7 Produkte, sondern je nach Auswertung um bis zu 200.

Hallo Boris,
kaum macht man's richtig, schoin funktioniert's :-))
DANKE
Da ich's nicht auf Anhieb geblickt habe, erläutere ich für alle Interessierten nochmal die Einzelschritte.
Ich erhielt ja
=ZÄHLENWENN(LV!$B$9:$B$8300;$D$26)
Das änderte ich manuell in der erzeugten Datei auf
=ZÄHLENWENN(LV!$B$9:$B$8300;$D26)
Dann hakte ich in der erzeugten Datei Z1S1-Bezugsart an unter EXTRAS-OPTIONEN-ALLGEMEIN.
Die Formel änderte sich dann in
=ZÄHLENWENN(LV!Z9S99:Z8301S99;ZS1)
Daraufhin änderte ich in meinem VBA zur Erzeugung der Formel
VON
ActiveWorkbook.Worksheets("Übersicht").Cells(iRow, 2)._
FormulaR1C1 = "=Countif(LV!R9C99:R8301C99" & "," & "R" & iRow & "C1" & ")"
(in iRow steht/stand der Schleifenzähler, der an dieser Stelle nicht mehr benötigt wird)
IN
ActiveWorkbook.Worksheets("Übersicht").Cells(iRow, 2)._
FormulaR1C1 = "=Countif(LV!R9C99:R8301C99" & "," & "RC1" & ")"
Es ist nicht erforderlich, dass die Z1S1-Bezugsart in der Datei mit dem VBA-Code angehakt ist. In meinem konkreten Fall ist das zur Vermeidung von "Verhaltensänderungen" an anderen Kodestellen sogar unerwünscht.
Nochmals danke an Boris!

Beliebteste Forumthreads (12 Monate)

wieRelativeAdresseBei .FormulaR1C1 = "=Countif(..

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread