Microsoft Excel

Herbers Excel/VBA-Archiv

Zeichenfolge aus Textfeld auslesen

Betrifft: Zeichenfolge aus Textfeld auslesen von: Robert
Geschrieben am: 18.02.2008 11:54:06

Hallo zusammen,

ich möchte aus einer Textbox "Optionen" die Anzahl der vorkommenden Zeichenfolge "+D15" auslesen.

In der Textbox steht zB so etwas: "+D15 +D15 +D15 +B00 +E86 +E87 +G63 "

Mit diesem Programm kann ich auslesen lassen ob "+D15" darin vorkommt. Das Ergebnis ist 1, klar.

Private Sub Belegen_Click()
Dim D15, Such, Erg
D15 = "+D15"
Such = Tabelle18.Optionen.Value
Erg = InStr(1, Such, D15)
Range("M4") = Erg
End Sub



Wie kann ich mir jedoch anzeigen lassen wie oft "+D15" darin vorkommt??

Danke schon mal..

  

Betrifft: AW: Zeichenfolge aus Textfeld auslesen von: Renee
Geschrieben am: 18.02.2008 12:05:14

Hi Robert,

So:

    Erg = (Len(Such) - Len(Replace(Such, D15, ""))) / Len(D15)



GreetZ Renée


 

Beiträge aus den Excel-Beispielen zum Thema "Zeichenfolge aus Textfeld auslesen"