Hi Forum,

kann man in VB innerhalb eines Arrays die Wörter mit dem gleichen Namen zählen? Hab ein Array wo zweimal das Wort "Test" vorkommt. Wie kann ich nun die Anzahl dieser beiden Wörter ermitteln?

Gruß

David

Hallöchen

ich hab zwar keine Ahnung von VB, aber es müßte doch möglich sein das Array mit einer Schleife zu durchlaufen und die Wörter miteinander zu vergleichen jedesmal wenn das Wort gleich ist setzt du eine Variable um einen höher und somit müßtest du am Ende die Anzahl haben.

Es ist zwar ein bisschen Gedankenarbeit aber das müßte gehen.

Katja

Moin Moin,

so gehts... du mußt nur noch eine Textbox und einen CMD Button anlegen.

Private Sub CommandButton1_Click()

Dim MeinArray(50)

Dim Zaehler As Integer

Dim TextVar As String

Dim VarZaehler As Integer

Dim i As Integer

TextVar = UserForm1.TextBox1.Value

Zaehler = 0

i = 0

VarZaehler = 0

MeinArray(1) = "Test"

MeinArray(5) = "Test"

MeinArray(7) = "Test"

MeinArray(37) = "Test"

MeinArray(21) = "Test"

MeinArray(29) = "Test"

MeinArray(34) = "Test"

MeinArray(47) = "Test"

For Zaehler = 1 To 100

i = i + 1

If MeinArray(i) = TextVar Then

VarZaehler = VarZaehler + 1

Else

End If

Zaehler = Zaehler + 1

Next Zaehler

MsgBox ("Das Wort " & TextVar & " kommt " & VarZaehler & " mal vor!")

End Sub

Bitte schön....