Function SummeZeichen(Zellen As Range) As Variant
Application.Volatile
Dim wert(90)
Dim zaehler As Integer
wert(65) = 1: wert(66) = 122: wert(67) = 12: wert(68) = 122: wert(69) = 12: wert(70) = 122: wert(71) = 12: wert(72) = 122
wert(73) = 12: wert(74) = 122: wert(75) = 12: wert(76) = 122: wert(78) = 12: wert(79) = 122: wert(80) = 12: wert(81) = 122
wert(82) = 12: wert(83) = 122: wert(84) = 12: wert(85) = 122: wert(86) = 12: wert(87) = 122: wert(89) = 12: wert(90) = 122
For zaehler = 1 To Len(Zellen)
SummeZeichen = SummeZeichen + wert(Asc(Mid(Zellen, zaehler, 1)))
Next zaehler
End Function
Autokennzeichen Kreis-QQ-Nummer. Bedutung von Buchstaben
Lurchi 27.04.2007 - 284 Hits - 6 Antworten
Wie kann man den Ziffernblock mit anderen Zahlen/Buchstaben belegen?
Californication 07.07.2007 - 63 Hits - 3 Antworten
Zwischenzeichen bei Zahlen entfernen
Partisan84 10.07.2007 - 70 Hits - 3 Antworten
buchstaben entfernen
adrian1 22.08.2007 - 63 Hits - 4 Antworten
Buchstaben und ziffern addieren und ausschließen
paelzer 07.04.2008 - 75 Hits - 7 Antworten