Aus Wort oder Zeichenfolge Zahl generieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Matze
Teste mal:
Tabelle1

	A	B
1	abcü123
2	Buchstabensumme:	41
3	Buchstabenprodukt:	1044
4	Anzahl Zeichen:	7
5

Formeln der Tabelle

Zelle	Formel
B2	=Buchstabensumme(A1)
B3	=buchstabenprodukt(A1)
B4	=Anzahl_Zeichen(A1)

Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Das ist der Code:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Function Buchstabensumme(strText As String) As Long
Dim L As Long
Dim tmp
For L = 1 To Len(strText)
    tmp = Mid(strText, L, 1)
    Select Case tmp
        Case "a" To "z"
            Buchstabensumme = Buchstabensumme + Asc(tmp) - 96
        Case "ä"
            Buchstabensumme = Buchstabensumme + 27
        Case "ö"
            Buchstabensumme = Buchstabensumme + 28
        Case "ü"
            Buchstabensumme = Buchstabensumme + 29
        Case 1 To 9
            Buchstabensumme = Buchstabensumme + tmp
    End Select
Next
End Function

Public Function Buchstabenprodukt(strText As String) As Long
Dim L As Long
Dim tmp
For L = 1 To Len(strText)
    tmp = Mid(strText, L, 1)
    Select Case tmp
        Case "a" To "z"
            If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
            Buchstabenprodukt = Buchstabenprodukt * (Asc(tmp) - 96)
        Case "ä"
            If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
            Buchstabenprodukt = Buchstabenprodukt * 27
        Case "ö"
            If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
            Buchstabenprodukt = Buchstabenprodukt * 28
        Case "ü"
            If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
            Buchstabenprodukt = Buchstabenprodukt * 29
        Case 1 To 9
            If Buchstabenprodukt = 0 Then Buchstabenprodukt = 1
            Buchstabenprodukt = Buchstabenprodukt * tmp
    End Select
Next
End Function

Public Function Anzahl_Zeichen(strText As String) As Long
Dim L As Long
Dim tmp
For L = 1 To Len(strText)
    tmp = Mid(strText, L, 1)
    Select Case tmp
        Case "a" To "z", 0 To 9, "ä", "ö", "ü"
            Anzahl_Zeichen = Anzahl_Zeichen + 1
    End Select
Next
End Function

ransi

Beliebteste Forumthreads (12 Monate)

Aus Wort oder Zeichenfolge Zahl generieren

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread