Bin zu blöd, welche formel muss ich benutzen

Computer: Software & Programmierung Office Software
1

… und vor allem wie bei excel

ich habe eine zeile, in der in den zellen buchstaben wie zB a b c mehrmals vorkommen. jetzt möchte ich wissen, wieoft zb das „c“ vorkommt …

wer kann helfen …

vielen dank!

gruss marian

2

Hi Marian,

ich habe eine zeile, in der in den zellen buchstaben wie zB a
b c mehrmals vorkommen. jetzt möchte ich wissen, wieoft zb das
„c“ vorkommt …

Die benötigte Funktion heißt ZÄHLENWENN.

Ciao

Uwe

3

danke, funktioniert teilweise ;o)

ich hab zellen, in denen steht „c“ und in welchen „cb“ und in anderen „cb/f“ - der befehl gibt mir aber nur „cb/f“ zurück, die drei "c"s ingesamt erkennt er nicht …

gruss marian

4

Hallo Marian,

bitte kopiere unterstehendes VBA-Makro in ein Modul und lege ein ShortKey drauf.
Bei Bedarf kannst du es noch einwenig anpassen.
Gruss,
Marc

Sub zaehleVorkommen()

Dim gesamtstring As String, suchstring As String
Dim anz As Integer

suchstring = InputBox(„Bitte zu suchende Zeichen eingeben“)

For Each cell In Application.Selection
gesamtstring = gesamtstring & cell.Value
Next

gesamtstring = Trim(gesamtstring)

For i = 1 To Len(gesamtstring)

If Mid(gesamtstring, i, 1) = „c“ Then anz = anz + 1
Next

MsgBox „Die Zeichenfolge '“ & suchstring & „’ würde " & anz & " mal gefunden.“

End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

5

KORREKTUR!!

… und vor allem wie bei excel

ich habe eine zeile, in der in den zellen buchstaben wie zB a
b c mehrmals vorkommen. jetzt möchte ich wissen, wieoft zb das
„c“ vorkommt …

wer kann helfen …

vielen dank!

gruss marian

Hallo Marian,

bitte kopiere unterstehendes VBA-Makro in ein Modul und lege
ein ShortKey drauf.
Bei Bedarf kannst du es noch einwenig anpassen.
Gruss,
Marc

Sub zaehleVorkommen()

Dim gesamtstring As String, suchstring As String
Dim anz As Integer

suchstring = InputBox(„Bitte zu suchende Zeichen eingeben“)

For Each cell In Application.Selection
gesamtstring = gesamtstring & cell.Value
Next

gesamtstring = Trim(gesamtstring)

For i = 1 To Len(gesamtstring)

If Mid(gesamtstring, i, 1) = suchstring Then anz = anz + 1
Next

MsgBox „Die Zeichenfolge '“ & suchstring & „’ würde " & anz &
" mal gefunden.“

End Sub