jerry0110
Erfahrenes Mitglied
Hi,
ich stehe vor volgender Herausvorderung.
Ich habe eine Tabelle mit Daten. Dort habe ich per Makro 3 Spalten erstellt. Suffix, Benutzername und Passwort.
In Suffix möchte ich per Zufall 3 willkürliche kleine Buchstaben haben. Der Benutzername soll der Suffix + die Kundennummer sein welche ich z.B. mit Verkettung eintragen kann. Das Passwort soll ein willkürliches Passwort mit 7 Zahlen und kleinen Buchstaben sein.
Habe im Netz jetzt auch mal nach Möglichkeiten gesucht. Welche nutzen einen Passwortgenerator und welche nutzen Zufallsgenerator durch eine Formel.
Das habe ich gefunden für einen Passwort Generator. Hier kann ich "Const strText As String" anpassen. Jedoch die Länge nicht.
Und ich stehe noch vor der Herausforderung, dass ich es nicht hinbekomme, die Formel so lange einzutragen bis die Zelle leer ist. Und er kopiert im Grunde nur die Formel und es ist immer das gleich Ergebnis.
Ich hoffe ich konnte ein wenig mein Problem erklären.
ich stehe vor volgender Herausvorderung.
Ich habe eine Tabelle mit Daten. Dort habe ich per Makro 3 Spalten erstellt. Suffix, Benutzername und Passwort.
In Suffix möchte ich per Zufall 3 willkürliche kleine Buchstaben haben. Der Benutzername soll der Suffix + die Kundennummer sein welche ich z.B. mit Verkettung eintragen kann. Das Passwort soll ein willkürliches Passwort mit 7 Zahlen und kleinen Buchstaben sein.
Habe im Netz jetzt auch mal nach Möglichkeiten gesucht. Welche nutzen einen Passwortgenerator und welche nutzen Zufallsgenerator durch eine Formel.
Code:
Option Explicit
Public Function machs(A As Integer) As String
Const strText As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789!""§$%&()[]{}\?**#:;,.-+<>"
Dim B() As Byte
Dim Z As Integer
Dim I As Integer
Dim tmp
B = StrConv(strText, vbFromUnicode)
Randomize
For I = 0 To UBound(B)
Z = Int(UBound(B) * Rnd)
tmp = B(Z)
B(Z) = B(I)
B(I) = tmp
Next
machs = Left(StrConv(B, vbUnicode), A)
End Function
Das habe ich gefunden für einen Passwort Generator. Hier kann ich "Const strText As String" anpassen. Jedoch die Länge nicht.
Und ich stehe noch vor der Herausforderung, dass ich es nicht hinbekomme, die Formel so lange einzutragen bis die Zelle leer ist. Und er kopiert im Grunde nur die Formel und es ist immer das gleich Ergebnis.
Ich hoffe ich konnte ein wenig mein Problem erklären.