Summe bilden mit Buchstaben

Computer: Software & Programmierung Office Software
1

Hallo liebe Leut,
habe in einer Zeile mehrere „u“, die ich am Ende addieren möchte.
Mit der Funktion summewenn funktioniert es nicht.
Wer kann mir weiterhelfen?
Über eine Nachricht würde ich mich sehr freuen.
Sabine

2

Hallo liebe Leut,

Hi,

habe in einer Zeile mehrere „u“, die ich am Ende addieren
möchte.

Was verstehst du unter addieren? Zählen?Dann so:

Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Dim von, bis, ergebnis\_in As String
Dim cs As Boolean
Dim anzahl As Integer
cs = False 'Groß-/Kleinschreibung beachten
ergebnis\_in = "B3"
von = "A1"
bis = "A10"
For Each cell In Range(von, bis)
 If cs = True Then
 anzahl = anzahl + UBound(Split(cell.Value & " ", "u", , vbBinaryCompare))
 Else
 anzahl = anzahl + UBound(Split(cell.Value & Chr(1), "u", , vbTextCompare))
 End If
Next cell
Range(ergebnis\_in).Value = anzahl
End Sub

Gruß.Timo

Mit der Funktion summewenn funktioniert es nicht.
Wer kann mir weiterhelfen?
Über eine Nachricht würde ich mich sehr freuen.
Sabine

3

Genauso einfach: Zählenwenn!

habe in einer Zeile mehrere „u“, die ich am Ende addieren
möchte.
Mit der Funktion summewenn funktioniert es nicht.
Wer kann mir weiterhelfen?

Hallo Sabine,

wenn ich Dich richtig verstehe, möchtest Du zählen, wieviel „u“ in einer Zeile stehen. Die Funktion heißt dann nicht Summewenn, sondern Zählenwenn. Z.B. =ZÄHLENWENN(A1:F1;„u“)
War es das, was Du wolltest?

xxx
Nic