Thema Datum  Von Nutzer Rating
Antwort
10.04.2024 06:06:26 Michael
*
NotSolved
10.04.2024 06:28:15 ralf_b
NotSolved
10.04.2024 06:41:40 Michael
NotSolved
10.04.2024 20:07:41 xlKing
NotSolved
Rot Zelleninhalt ver- & entschlüsseln
 10.04.2024 20:27:57 xlKing
NotSolved
11.04.2024 05:23:23 Michael
NotSolved
Rot 1
 08.06.2024 14:29:35 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:45 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:29:47 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:48 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:29:49 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:50 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:29:50 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:59 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:30:10 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:30:17 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:30:25 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:30:33 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:30:44 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:30:54 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:02 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:31:10 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:20 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:31:30 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:38 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:31:47 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:54 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:03 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:14 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:25 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:34 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:43 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:44 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:44 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:45 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:30 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:39 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:40 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:41 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:42 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:42 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:50 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:58 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:04 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:13 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:20 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:27 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:35 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:41 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:50 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:59 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:05 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:13 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:16 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:20 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:25 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:28 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:33 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:36 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:40 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:42 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:43 qeNtfPNC
NotSolved
Rot Rot 1
 08.06.2024 14:35:48 qeNtfPNC
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
10.04.2024 20:27:57		 Views:
303		 Rating:
     
Antwort:
  Ja
Thema:
Zelleninhalt ver- & entschlüsseln

Da hab ich doch glatt das Codebeispiel vergessen: Für die Verschlüsselung mit jedem Buchstaben + 3 könnte der Code so aussehen:

Sub Test()
  Debug.Print Verschlüsseln("Passwort")
  Debug.Print Entschlüsseln("Sdvvzruw")
End Sub

Function Verschlüsseln(Wort As String) As String
  For i = 1 To Len(Wort)
    Verschlüsseln = Verschlüsseln & Chr(Asc(Mid(Wort, i, 1)) + 3)
  Next i
End Function
Function Entschlüsseln(Wort As String) As String
  For i = 1 To Len(Wort)
    Entschlüsseln = Entschlüsseln & Chr(Asc(Mid(Wort, i, 1)) - 3)
  Next i
End Function

Wenn du es noch sicherer willst, dann kannst du z.B. jeden zweiten oder dritten Buchstaben nach unten statt nach oben verschieben. Probier dich mal ein bisschen mit den String-Funktionen CHR und ASC aus.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
10.04.2024 06:06:26 Michael
*
NotSolved
10.04.2024 06:28:15 ralf_b
NotSolved
10.04.2024 06:41:40 Michael
NotSolved
10.04.2024 20:07:41 xlKing
NotSolved
Rot Zelleninhalt ver- & entschlüsseln
 10.04.2024 20:27:57 xlKing
NotSolved
11.04.2024 05:23:23 Michael
NotSolved
Rot 1
 08.06.2024 14:29:35 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:45 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:29:47 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:48 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:29:49 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:50 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:29:50 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:29:59 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:30:10 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:30:17 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:30:25 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:30:33 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:30:44 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:30:54 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:02 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:31:10 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:20 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:31:30 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:38 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:31:47 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:31:54 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:03 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:14 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:25 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:34 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:43 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:44 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:32:44 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:32:45 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:30 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:39 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:40 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:41 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:42 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:42 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:33:50 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:33:58 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:04 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:13 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:20 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:27 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:35 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:41 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:34:50 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:34:59 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:05 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:13 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:16 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:20 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:25 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:28 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:33 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:36 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:40 qeNtfPNC
NotSolved
Rot 1
 08.06.2024 14:35:42 qeNtfPNC
NotSolved
Blau 1
 08.06.2024 14:35:43 qeNtfPNC
NotSolved
Rot Rot 1
 08.06.2024 14:35:48 qeNtfPNC
NotSolved