für eine Prüfung brauche ich einen (äußerst einfachen, auf Zellinhalte beschränkte) Caeser Cipher. Ich hab auch schon einiges geschafft, allerdings wird z.B. bei W ein _ draus. Kann man das irgendwie auf reine Buchstaben beschränken? Danke schon mal für eure Hilfe, bin froh, wenn ich VB nach der Prüfung wieder los bin
Option Explicit Dim verschiebung As Integer Dim ac As Integer Dim intcol As Integer Sub caesar() verschiebung = Cells(1, 2) intcol = 2 Do While Cells(2, intcol) <> "" Cells(3, intcol) = encipher(Cells(2, intcol)) intcol = intcol + 1 Loop End Sub Function encipher(inputc As String) As String ac = Asc(inputc) ac = ac + verschiebung encipher = Chr(ac) End Function
Dieser Beitrag wurde von TheGreatTimmy bearbeitet: 04. Juli 2015 - 10:28