---

Hallo Leute,

ehrlich gesagt versteh ich mein Problem nicht so richtig. Ich habe mir das ganze recht einfach vorgestellt.
Aber nicht mal mit Google konnte ich einen verwertbaren Ansatz finden.

Ich möchte einfach nur zählen wie oft ein bestimmter Eintrag in einer Liste vorhanden ist.

kann mir da bitte jmd. auf die Sprünge helfen?!

Danke  

edit: habe leider einen Buchstabendreher im Titel - kann das bitte jmd. für mich korrigieren?

[Diese Nachricht wurde von sto.teac am 23. Mrz. 2015 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Um was für ein Liste handelt es sich? (Collection, Array, Dictonary, Listbox...)
Kannst du nicht mit einer Schleife alle Einträge durchgehen und falls der Eintrag mit einer Suchkriterium übereinstimmt den Zähler hochsetzen?

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

meinst du mit einer for each Variante? darauf bin ich nicht klar gekommen ... hast du da mal ein Bsp. für mich?

Code:

---

Dim ControleListe(1000)

If AnzahlPublications > 0 Then
    For i = 1 To AnzahlSelection
   
        gesuchterString = PartListe(i)
   
        If IsInArray(gesuchterString, ControleListe()) Then
            MsgBox ("Der Name  " + PartListe(i) + " existiert mehrfach. Bitte den Namen anpassen.")
            JobStopper = JobStopper + 1
        End If
        ControleListe(i) = PartListe(i)
        'MsgBox (" controleliste  " + ControleListe(i))
    Next
End If

'--------------- Ende Abfrage, ob doppelte Namen existieren

If JobStopper > 0 Then
    MsgBox ("Makro wird beendet.")
    Exit Sub
End If

---

ich hätte halt gerne noch eine Angabe wie oft der Eintrag doppelt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich nehme mal an, Du hast zwei Listen:

- ein Array mit Strings(ControleListe)
- eine Liste mit Strings nach denen Du im Array suchen willst(PartListe)

Ausserdem nehme ich an, dass:
- 'AnzahlSelection' = PartListe.Count
- die Funktion 'IsInArray' das Array durchläuft und die Array-Einträge mit 'gesuchterstring' vergleicht

Wenn Du die Funktion 'IsInArray' um einen Zähler erweiterst und sie anstelle von 'True' die Zahl zurückgeben lässt,
hast Du was Du willst.

Also anstatt

Code:

---

function IsInArray(strToSearch as string, arrStrings() as string) as boolean

---

schreibst Du

Code:

---

function IsInArray(strToSearch as string, arrStrings() as string) as integer

---

Das Array wird _vollständig_ durchlaufen.
Innerhalb der IsInArray-Vergleichsschleife baust Du noch einen Zähler 'n' ein,
der bei jedem positiven Vergleich von Array-Element mit Suchstring um eins hochgezählt wird.

Am Ende gibt die Funktion den Zähler als Ergebnis zurück.

Also:
IsInArray = n '(mit n = Zähler)

Die Zeilen:

Code:

---

  ControleListe(i) = PartListe(i)
  'MsgBox (" controleliste  " + ControleListe(i))

---

versteh ich nicht. Das dürfte so nicht richtig sein.

Hope it helps,
Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

vielen Dank für den Input - ich werde es mal testen, klingt vielversprechend 

bzgl. der letzten beiden Zeilen:

die PartListe wird zu Beginn des Makros geschrieben und enthält alle vom User ausgewählten Bodies.
Die ControleListe wird erst in der gezeigten Schleife geschrieben, da ich ja einen aktiven Abgleich benötige.
Soll heißen, sobald das aktuelle Part verarbeitet wurde, wird es in die ControleListe aufgenommen.
Wird nun das nächste Part verarbeitet wird zunächst kontrolliert, ob schon ein gleichnamiges Part verarbeitet wurde (welches dann in der CntroleListe festgehalten ist).

Die MsgBox war nur fürs debug 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP