Flexibel zählen m. 2 Variablen
05.12.2003 12:56:06
Gerhard Henneicke
ich habe ein Problem und komme nicht weiter. Mit folgendem Code kann ich eine Tabelle flexibel nach einer Zeichenkette durchsuchen:
Sub Flexibel_zählen()
Dim Anzahl As Double
Dim z As String
z = InputBox("Zu suchende Zeichenfolge eingeben.")
For Each sh In Sheets
Anzahl = Anzahl + Application.WorksheetFunction.CountIf(sh.Range("a:p"), "=" & z)
Next
MsgBox Anzahl
End Sub
Wie bekomme ich es hin, nur zu zählen, wenn eine zweite freiwählbare Zeichenkette in der Zeile vorhanden ist? Ich hoffe mein Problem ist verständlich geschildert.
Gruß Gerhard