ZÄHLENWENNS() mit vba
05.04.2016 13:56:41
Felix
Ausgangslage:
Ich habe in Spalte B3:B18 mit Platzhaltern Suchbegriffe stehen (bspw. *Pilot*) und möchte deren Anzahl in der Spalte C3:C18 durch Abgleich der Spalte Mirror!B2:B10500 angezeigt bekommen. Da das ganze automatisch über Makro-Knopf geschehen soll benötige ich einen entsprechenden vba-Befehl.
Folgende Befehle habe ich bereits geschrieben:
Range("C3").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B3])
Range("C4").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B4])
Range("C5").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B5])
Range("C6").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!"*"&B6&"*"])
Range("C7").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!"*"&B7&"*"])
Range("C8").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!"*"&B8&"*"])
Range("C9").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!"*"&B9&"*"])
Range("C10").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B10])
Range("C11").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B11])
Range("C12").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B12])
Range("C13").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B13])
Range("C14").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B14])
Range("C15").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B15])
Range("C16").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B16])
Range("C17").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B17])
Range("C18").Value = WorksheetFunction.CountIfs([Mirror!$B$2:$B$10576], [Häufigste Themen!B18])
Da mir ständig das Ergebnis 0 angezeigt wird, obwohl ich sicher weiß dass bspw. der Suchbegriff aus B4 mind. 5x vorhanden ist habe ich zweitweise versucht den Suchbegriff ohne Platzhalter einzutragen und vba den Platzhalter selbstständig setzen zu lassen aber ebenfalls ohne Erfolg.
Was mache ich falsch?
Grüße
Felix