Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1696to1700
1696to1700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Passwortgenerator

Passwortgenerator
17.06.2019 20:12:22
Mani
Hallo - ich habe hier den Passwortgenerator mit klein und Großschreibung. Nun müssten auch Zahlen dazu gemischt werden.
Wer kann mir helfen.
Habe hier den Generator mit Groß und Kleinschreibung
For i = 1 To 8
tx = tx + Chr(Int(Rnd * 26) + 65 + 32 * Int(Rnd + 0.5))
Next i

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Passwortgenerator
17.06.2019 21:16:04
Sepp
Hallo Mani,
so ist immer mindestens eine Zahl enthalten.
Sub password()
  Dim lngIndex As Long, lngRND As Long, strPW As String

  Const PWD_LENGTH As Long = 8
  Const USED_CHARS As String = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"

  Randomize Timer

  Do
    strPW = ""
    For lngIndex = 1 To PWD_LENGTH
      lngRND = Int(Len(USED_CHARS) * Rnd + 1)
      strPW = strPW & Mid(USED_CHARS, lngRND, 1)
    Next
  Loop While Not strPW Like "*#*"

  Debug.Print strPW
End Sub


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Anzeige
AW: Passwortgenerator
17.06.2019 21:33:10
onur 

Dim i, tx, Txt
Randomize Timer
Txt = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
For i = 1 To 8
tx = tx + Mid(Txt, Int(Rnd(Timer) * 62) + 1, 1)
Next i

AW: Passwortgenerator
18.06.2019 15:49:02
Mani
Danke für die funktionierenden Möglichkeiten.
Da kann ich von beiden etwas lernen.
Schönen sonnigen TAG!!!

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige