AW: Sp. A Zählen wenn in Spalte C,E, x steht
01.03.2023 22:35:21
Yal
Hallo Nadine,
die Aufstellung der Blätter ist natürlich erfassung-freundlich, aber weit entfernt von Auswertung freundlich.
Schon wenn nicht x, sondern 1 erfasst wäre, könntest Du
=Summe (1:28!B:B)
schreiben anstatt diese endlose Zählenwenn (füge 3 leere Blätter 29 bis 31, sodass Du nicht jede Monat die Formel anpassen musst).
Folgende Makro führt das Ersetzen auf alle Blätter durch, dessen Namen aus einem Zahl besteht:
Sub DurchEins_ersetzen()
Dim w As Worksheet
For Each w In Worksheets
If IsNumeric(w.Name) Then w.Cells.Replace What:="x", Replacement:="1", LookAt:=xlWhole, MatchCase:=False
Next
End Sub
Aber es ändert das Problem der geänderte Debitoren nicht. Am einfachste fügt man in jeder Zeile von jedes Blatt eine Formel zur Auswertung:
Sub DurchEins_ersetzen()
Dim w As Worksheet
For Each w In Worksheets
If IsNumeric(w.Name) Then
w.Range("S3:S35").FormulaLocal = "=SUMMENPRODUKT((SUMME(B3:Q3)>0)*(A3>""""))"
End If
Next
End Sub
Die voll krasse Formel in Auswertung!A6 ist dann
=SUMME('1:28'!S:S)
Man kann natürlich die beide Verarbeitungen in einem Zug zusammenbringen:
Sub DurchEins_ersetzen()
Dim w As Worksheet
For Each w In Worksheets
If IsNumeric(w.Name) Then
w.Cells.Replace What:="x", Replacement:="1", LookAt:=xlWhole, MatchCase:=False
w.Range("S3:S35").FormulaLocal = "=SUMMENPRODUKT((SUMME(B3:Q3)>0)*(A3>""""))"
End If
Next
End Sub
VG
Yal