Excel VBA Cäsar Funktion

Question

Servus Leute,

Brauche bitte eure Hilfe bei dieser Aufgabenstellung.

Erstellen Sie die in Excel aufrufbare Funktion Caesar(Text t, Zahl d),
die den Text t mit der Distanz d Cäsar-verschlüsselt und ausgibt.

für eine Antwort.

Ausführung mit Hilfe von Excel VBA und Excel normal.

Ciao Rellis :-)

Answer 1

Hier die Funktion, die Du in einem Modul definieren musst.

Function caesar(itext As String, d As Integer) As String

Start = 65 'Asccode von A
itext = UCase(itext) 'nur Großschrift
caesar = ""

For I = 1 To Len(itext)
    asccode = Asc(Mid(itext, I, 1))
    caesar = caesar & Chr(((asccode - Start + d) Mod 26) + Start)
Next I
End Function

Der Aufruf in einer Excel-Zelle:   =caesar(A1,5)

Comments

Super danke für die tolle Antwort.

:-)