Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
252to256
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
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Anzahl eines bestimmten Wertes in Bereich

Anzahl eines bestimmten Wertes in Bereich
12.05.2003 17:02:37
LarsLarsen
Hallo Ex(cel)perten,

Ich will ermitteln wie oft ein betsimmter Wert in einem Bereich
vorkommt folgenden Weg hätte ich eingeschlagen, das geht aber bestimmt eleganter, oder? (Hoffe jedenfalls)

Sub test()
Dim bereich As Range
Dim zelle As Range
Dim count as integer

count = 0
Set bereich = Range("A1:F17")

for each zelle in bereich
if zelle.value = "test" then count = count + 1
next
msgbox "Das Wort test ist: " & count & " mal enthalten."
end Sub

P.S.: Gibt es eigentlich eine Möglichkeit eine Integervariable
geschickter zu inkrementieren?

Vielen Dank für Eure Hilfe

Lars


9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Anzahl eines bestimmten Wertes in Bereich
12.05.2003 17:08:22
Nepumuk

Hallo Lars,
so zum Beispiel:

Gruß
Nepumuk

Re: Anzahl eines bestimmten Wertes in Bereich
12.05.2003 17:09:49
andre

hallo lars,
etwa so:

Sub test()
Dim count%
count = Application.WorksheetFunction.CountIf(Range("a1:a17"), "test")
msgbox "Das Wort test ist: " & count & " mal enthalten."
End Sub

zum PS: ??? wenn du was zählen willst, musst du es eben zählen

gruss andre

Re: Anzahl eines bestimmten Wertes in Bereich
12.05.2003 17:10:08
LarsLarsen

Vielen Dank

Re: Anzahl eines bestimmten Wertes in Bereich
12.05.2003 17:10:18
Ramses

Hallo,

Ja, es geht eleganter :-)

Gruss Rainer

Re: Anzahl eines bestimmten Wertes in Bereich
12.05.2003 17:13:42
LarsLarsen

Hi Andre auch dir Dank,

zum P.S. bei C hat man beispielsweise die Möglichkeit
eine Variable zu inkrementieren mit i++ oder inc(i)...
Das geht dann einfach schneller...

in diesem Sinne...

Larsen

Anzeige
Re: An Nepumuk
12.05.2003 17:38:30
Ralf

Hallo nepumuk,
Sorry das ich dich hier anspreche, aber ich habe da noch ein Problem mit dem Spalten Vergleich. Siehe den Beitrag:

https://www.herber.de/forum/messages/255282.html

Gruß, Ralf

Re: An Nepumuk
12.05.2003 17:58:47
Nepumuk

Hallo Ralf,
könnte an unterschiedlichen Excel-Versionen liegen. Versuch es mal so:

Gruß
Nepumuk

Re: An Nepumuk
12.05.2003 18:05:49
Ralf

Hallo Nepumuk,
Danke dir. Scheint zu funktionieren.
Wenn nicht, melde ich mich ......
Gruß, RAlf

Re: An Nepumuk
12.05.2003 18:10:57
andre

hallo allerseits,
noch ein verbesserungsvorschlag:

If Zelle Is Nothing Then Cells(Zeile, 1).Interior.ColorIndex = 3 _
Else Cells(Zeile, 1).Interior.ColorIndex = 0

da wird es auch wieder weis, wenn sich was zum gleichen ändert.

gruss andre

Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige