ExecuteExcel4Macro CountIf
12.05.2016 01:47:53
DirkR
Ich suche einen Weg, in einer geschlossenen Arbeitsmappe zu überprüfen, ob ein Wert in einem Bereich vorkommt.
Das versuche ich nun schon eine ganze Zeit, leider ohne Erfolg. Ich habe schon einiges umgebaut und wieder umgebaut.
Letztlich endete es immer in Fehlermeldungen!
Ich bitte um Hilfe!!!
Hier mal mein letzter Ansatz zu dem beschriebenen Problem:
Function xl4CountIf(strParam As String, strFind As String) As Variant
xl4CountIf = ExecuteExcel4Macro("CountIf(" & strParam & "," & strFind & ")")
End Function
Sub CallCountIf()
Dim Adresse As String, Suchbegriff As String, Zellbezug As String
Pfad = "C:\Users\Dirk\Desktop\XL4\"
Datei = "xl4Datenbank.xlsx"
Register = "Tabelle1"
Zellbezug = Range(Cells(1, 2), Cells(100, 2)).Address(ReferenceStyle:=xlR1C1)
Adresse = "'" & Pfad & "[" & Datei & "]" & Register & "'!" & Zellbezug
Suchbegriff = 10
MsgBox "ZÄHLENWENN in " & Zellbezug & " nach " & Suchbegriff & ": " & xl4CountIf(Adresse, _
Suchbegriff)
End Sub
Danke schon mal im Voraus!
Grüße
DirkR