Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
492to496
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
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Code erklären

Code erklären
03.10.2004 19:01:00
image
Wer kann mir Code unten erklären?
Wie kann das überhaupt einfach so funktionieren ohne dass ich z.B an dieser
Stelle "x = zahl" angebe was x überhaupt vom Typ für eine Variable ist(String,int,doublu usw..)?
Grüße

Function pw(zahl)
erg = ""
x = zahl
While x > 0
If x Mod 2 = 0 Then
erg = "A" & erg
Else
erg = "B" & erg
End If
x = x \ 2
Wend
While Len(erg) < 11
erg = "A" & erg
Wend
pw = erg
End Function

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Code erklären
03.10.2004 19:18:54
Hajo_Zi
Hallo Image
falls Du folgende Regeln einhälts macht sich vielleich jemand die Mühe.
ist Dir schon mal aufgefallen das die meisten hier den Beitrag min. mit einem Vornamen unterschreiben.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP2 und Excel Version 2003 SP1.


AW: Code erklären Misst?
03.10.2004 19:26:54
ww
kannst du nicht mehr
AW: Code erklären
03.10.2004 19:28:56
Klaus
Bleib lieber bei Berti.
AW: Code erklären
03.10.2004 23:27:00
image
Hallo Zusammen!
Völlig korrekt, bitte vielmals um Verzeihung wegen meiner unhöfflichen Art.
Ich hoffe ihr nimmt mir das nicht übel bin im Grunde ein sehr höffliches Wesen,
kann mir selber nicht erklären wie das passieren konnte.
Ich war so frustiert als ich diese Funtkion gelesen habe, weiss immer
noch nicht wie sie funktionieren kann. Hoffe aber jemand kann näher darauf eingehen
und mir erklären wie die Variable x z.B ohne Typendeklaration funktionieren kann oder
in der Zeile "x = x \ 2" das '\' was ist damit gemeint? Ist das etwa eine Division
oder was?
Grüße
image
Anzeige
AW: Code erklären
04.10.2004 06:47:09
Hajo_Zi
Hallo ?

Function pw(zahl)
'   Variable nicht definiert,
'   bei erster verwendung ist die Variable leer
'   braucht also nicht auf "" gesetzt werden
'   ich vermute mal Sie sollte als String definiert werden
erg = ""
'   Warum neue Variable? Mann kann im gesamten Code mit
'   der Varuiablen Zahl arbeiten
x = zahl
'   Schleife solange die Variable X größer als Null
While x > 0
'       Mod Gibt den Rest einer ganzzahligen Division zweier Zahlen zurück.
'       z,B. 9 mod 2 ergibt 1
If x Mod 2 = 0 Then
'           Variable erg ist gleich Buchstabe A und was schon auf der Variablen erg steht
'           falls der Rest der ganzahligen Division 0  ist
erg = "A" & erg
Else
'           Variable erg ist gleich Buchstabe B und was schon auf der Variablen erg steht
'           falls der Rest der ganzahligen Division anders als 0  ist
erg = "B" & erg
End If
'       Variable X verringern
'       \ Dient zur Division zweier Zahlen und gibt ein ganzzahliges Ergebnis zurück.
'       z.B.  9\2 =4
x = x \ 2
Wend
'   Variable erg auf eine min. Länge von 11 bringen
While Len(erg) < 11
erg = "A" & erg
Wend
'   ab die Funktion die Variable erg übergeben
'   diesen Teil hätte man sich sparen können, wenn man gleich die Variable PW
'   genommen hätte
pw = erg
'   In der Zelle steht =PW(A1) in A1 muß eine Zahl stehen
End Function

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Pro SP2 und Excel Version 2003 SP1.


Anzeige
AW: Code erklären
nighty
hi hajo :)
das mit den forumsregeln bzw. bild fand ich ja mal wieder KLASSE von dir :))
gruss nighty :))
AW: Code erklären
04.10.2004 21:48:41
Jö.....
Hi Hajo
forumsregeln kannst du mit deiner Frau zu Hause
AW: Code erklären
Hübi
Hi image
kopiere den Code doch einfach mal in ein VB-Modul einer Excel-Arbeitsmappe.
Nutze anschließend in einem Tabellenblatt den Funktionsassistent und füge aus der Kategorie Benutzerdefiniert die Funktion pw ein.
Da kannst du spielen und selbst ergründen, was diese Funktion macht.
Mir ist der Un/Sinn auch nicht klar. A's und B's an verschiedenen Stellen auszugeben.
Viel Spaß
Hübi
AW: Code erklären
tobias
Hallo
also ich finde auch das mit der Begrüßung usw. ist eine gute Sache!!
Zu deiner Frage:
Die Blattschutz-Passwörter werden Excel-Intern in einer 11-stelligen Kombination aus A und B sowie einem ASCII-Zeichen gespeichert. Diese Funktion versucht nun alle 2047 A,B Kombinationen der eingegebenen Zahl zu finden. Das heist also, die Funktion alleine kann so nicht arbeiten. Da fehlt noch ein bisschen was...
mfg tobias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige