Excel-VBA: Rückgabe Anzahl Zeichen in String

Computer: Software & Programmierung Visual Basic
#1

Hallo Zusammen,

kennt jemand in Excel VBA eine Funktion, die mir die Anzahl eines bestimmten Zeichens (Suchkriteriums) innerhalb einer Zeichenkette zurückgibt?

Zelle A1 enthält folgenden String: #abc#def#ghi

Suchkriterium: #

Gewünschter Rückgabewert: 3 (Anzahl # in A1)

Vielen Dank für die Antworten

Gruss

Salvo

#2

Hi Salvo,

Split wäre eine Möglichkeit.

 Dim Teile() As String
 Dim Zeile As String
 Zeile = "123#456#789#"
 Teile = Split(Zeile, "#")
 MsgBox ("Anzahl # im Text = " + CStr(UBound(Teile)))

Gruß, Rainer

#3

Grüezi Salvo

Es ist zwar schon einen Moment her, aber vielleicht hilft es dich ja noch.

kennt jemand in Excel VBA eine Funktion, die mir die Anzahl
eines bestimmten Zeichens (Suchkriteriums) innerhalb einer
Zeichenkette zurückgibt?

Zelle A1 enthält folgenden String: #abc#def#ghi

Suchkriterium: #

Gewünschter Rückgabewert: 3 (Anzahl # in A1)

MsgBox Len(Range(„A1“)) - Len(Replace(Range(„A1“), „#“, „“))

–
Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -