AscToString Fehler

Forumthread: AscToString Fehler
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: AscToString Fehler

AscToString Fehler

16.10.2017 12:26:29

stormlamp

Hallo,
bei mir funktioniert die Funktion AscToString nicht:

Private Sub CommandButton1_Click()
Dim strPfad As String
Dim strFrei As String
strFrei = AscToString(97, 100, 109, 105, 110)

Es kommt die Fehlermeldung "Sub oder Function nicht definiert"
Was ist hier falsch?
Viele Grüße
stormlamp

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: AscToString Fehler

16.10.2017 12:35:23

Robert
AW: AscToString Fehler

16.10.2017 12:36:25

stormlamp
Dazu brauchst Du natürlich...

16.10.2017 12:37:10

Case
Nebenbei, Case, da gibt's Besseres, ...

16.10.2017 22:56:27

Luc:-?

AW: AscToString Fehler

16.10.2017 12:35:23

Robert

Hallo stormlamp,
AscToString als Excel-/VBA-Funktion kenne ich nicht. Ich vermute mal, dass es sich deshalb um eine Benutzerdefinierte Funktion handelt. Ist diese denn von Deinem Makro aus überhaupt erreichbar?
Gruß
Robert

AW: AscToString Fehler

16.10.2017 12:36:25

stormlamp

Hallo,
Problem gelöst, es fehlte der Part
Private Function AscToString(ParamArray nAsc() As Variant) As String

  Dim i As Integer
Dim sString As String
For i = 0 To UBound(nAsc)
sString = sString & Chr$(nAsc(i))
Next i
AscToString = sString
End Function

Gruß stormlamp

Dazu brauchst Du natürlich...

16.10.2017 12:37:10

Case

Hallo, :-)
... noch die entsprechende Funktion: ;-)
Funktion AscToString...
Servus
Case

Nebenbei, Case, da gibt's Besseres, ...

16.10.2017 22:56:27

Luc:-?

…nämlich Verschlüsselung des Passworts mit einer KryptisierungsFkt, die auch andere TextLängen als die originale erzeugen kann und dass dann im Klartext angeben (unbedenklich, da ja nicht so anwendbar). Beim Aufruf dann die passend argumentierte DekryptisierungsFkt angeben. Wenn die dann auch noch gut versteckt wird und man die PgmAbarbeitung nicht in ihr unterbrechen kann (regelmäßig bei Anwendung der vbFkt Evaluate der Fall), wäre das eher was… ;-)
🙈 🙉 🙊 🐵 Gruß, Luc :-?
Besser informiert mit …