Hallo,
mit Hilfe eines Kollegen habe ich VBA Module erstellen können, die mir aus einem Text die Buchstaben einzeln auslesen und mir die Summe des Textes ausgeben. Dabei soll A=1 ... Z=26 sein. (Also "herber forum" ergibt 129). Das Gleiche mit Z=1...A=26. Modul3 löscht das Textfeld. Die drei Module sind über Buttons zu erreichen. An einem PC klappt das sehr gut. Nur wenn ich es zum PPC 2003 Pocket Excel Format konvertiere sind die VBA Befehle weg. Nun würde ich gerne versuchen diese Aufgabe als Formel zu lösen in der Hoffnung, das die Formelbefehle im PPC akzeptiert werden. Hier würde die reine Rechenleistung reichen, Buttons sind überflüssig.
Ist diese Aufgabe zu lösen?
-------------------------
Modul 1:
Sub berechnen() laenge = Len(Cells(1, 2).Value) wert = 0 For i = 1 To laenge teil = Mid(Cells(1, 2).Value, i, 1) If teil = "a" Or teil = "A" Then wert = wert + 1 If teil = "b" Or teil = "B" Then wert = wert + 2 If teil = "c" Or teil = "C" Then wert = wert + 3 If teil = "d" Or teil = "D" Then wert = wert + 4 If teil = "e" Or teil = "E" Then wert = wert + 5 If teil = "f" Or teil = "F" Then wert = wert + 6 If teil = "g" Or teil = "G" Then wert = wert + 7 If teil = "h" Or teil = "H" Then wert = wert + 8 If teil = "i" Or teil = "I" Then wert = wert + 9 If teil = "j" Or teil = "J" Then wert = wert + 10 If teil = "k" Or teil = "K" Then wert = wert + 11 If teil = "l" Or teil = "L" Then wert = wert + 12 If teil = "m" Or teil = "M" Then wert = wert + 13 If teil = "n" Or teil = "N" Then wert = wert + 14 If teil = "o" Or teil = "O" Then wert = wert + 15 If teil = "p" Or teil = "P" Then wert = wert + 16 If teil = "q" Or teil = "Q" Then wert = wert + 17 If teil = "r" Or teil = "R" Then wert = wert + 18 If teil = "s" Or teil = "S" Then wert = wert + 19 If teil = "t" Or teil = "T" Then wert = wert + 20 If teil = "u" Or teil = "U" Then wert = wert + 21 If teil = "v" Or teil = "V" Then wert = wert + 22 If teil = "w" Or teil = "W" Then wert = wert + 23 If teil = "x" Or teil = "X" Then wert = wert + 24 If teil = "y" Or teil = "Y" Then wert = wert + 25 If teil = "z" Or teil = "Z" Then wert = wert + 26 Next Cells(2, 2).Value = wert End Sub
-----------------------------------
Modul 2:
Sub rueckwaerts() laenge = Len(Cells(1, 2).Value) wert = 0 For i = 1 To laenge teil = Mid(Cells(1, 2).Value, i, 1) If teil = "a" Or teil = "A" Then wert = wert + 26 If teil = "b" Or teil = "B" Then wert = wert + 25 If teil = "c" Or teil = "C" Then wert = wert + 24 If teil = "d" Or teil = "D" Then wert = wert + 23 If teil = "e" Or teil = "E" Then wert = wert + 22 If teil = "f" Or teil = "F" Then wert = wert + 21 If teil = "g" Or teil = "G" Then wert = wert + 20 If teil = "h" Or teil = "H" Then wert = wert + 19 If teil = "i" Or teil = "I" Then wert = wert + 18 If teil = "j" Or teil = "J" Then wert = wert + 17 If teil = "k" Or teil = "K" Then wert = wert + 16 If teil = "l" Or teil = "L" Then wert = wert + 15 If teil = "m" Or teil = "M" Then wert = wert + 14 If teil = "n" Or teil = "N" Then wert = wert + 13 If teil = "o" Or teil = "O" Then wert = wert + 12 If teil = "p" Or teil = "P" Then wert = wert + 11 If teil = "q" Or teil = "Q" Then wert = wert + 10 If teil = "r" Or teil = "R" Then wert = wert + 9 If teil = "s" Or teil = "S" Then wert = wert + 8 If teil = "t" Or teil = "T" Then wert = wert + 7 If teil = "u" Or teil = "U" Then wert = wert + 6 If teil = "v" Or teil = "V" Then wert = wert + 5 If teil = "w" Or teil = "W" Then wert = wert + 4 If teil = "x" Or teil = "X" Then wert = wert + 3 If teil = "y" Or teil = "Y" Then wert = wert + 2 If teil = "z" Or teil = "Z" Then wert = wert + 1 Next Cells(2, 2).Value = wert End Sub
-----------------------------------
Modul 3:
Sub Neu() Range("B1").Select ActiveCell.FormulaR1C1 = "" Range("B3").Select End Sub
Vielen Dank für Ihre Mühe
Oliver