Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Funktion erweitern

Funktion erweitern
13.01.2006 15:41:06
Lorenz
Hallo Spezialisten!
mit dem Code, der übrigens aus diesem Forum stammt, werden Texte aus einem Bereich gezählt, die mit einem Komma getrennt sind.
Wie gehört die Funktion erweitert, sodaß nicht nur das Komma (","), sondern auch das Plus("&")als Suchbegriff in Frage kommt.
Die Funktion:
Public

Function ZAEHLE(Suchbegriffe As Range, Suchbereich As Range) As Long
Dim arr, i As Integer
arr = Split(Suchbegriffe, (","))
For i = 0 To UBound(arr)
If WorksheetFunction.CountIf(Suchbereich, Trim(arr(i))) > 0 Then
ZAEHLE = ZAEHLE + 1
End If
Next i
End Function

Grüsse
Lorenz

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion erweitern
14.01.2006 01:26:53
MichaV
Hallo,
meinst Du, daß das Trennzeichen der Suchbegriffe auch ein & sein darf?
Dann schreibe
arr = Split(Replace(Suchbegriffe.Text, "&", ","), ",")
Damit werden alle & in , umgewandelt und an die Zählschleife übergeben.
Gruß- Micha
PS: Rückmeldung wäre nett.
AW: Funktion erweitern
14.01.2006 03:44:34
Lorenz
Hallo Micha!
Genauso meinte ich es! Code is OK u. funktioniert einwandfrei!
Danke vielmals für die Info(den Code).
Grüsse
Lorenz
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige