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.