Huhu
Ich möchte die Quersumme einer Zelle - in diesem Beispiel ist es die Zelle D2 mit dem Wert 3 - ausgeben...
Habe das momentan so:
Code: [Auswählen]
Private Sub CommandButton1_Click()
Dim bytSumme As Byte
bytSumme = Cells(2, 4)
bytSumme = CByte(Quersumme(bytSumme))
MsgBox bytSumme
End Sub
-----------------------------------------------------
Private Function Quersumme(ByVal bytSumme As String)
Dim bytZaehler As Byte
Quersumme = 0
For bytZaehler = 1 To Len(bytSumme)
Quersumme = Quersumme + Val(Mid(bytSumme, bytZaehler, 1))
Next bytZaehler
End Function
Das klappt auch wunderbar... ABER... ich frage mich gerade warum das klappt... habe das nämlich durch Internetrecherche zusammengebastelt... durch das Argument "ByVal" wird doch jediglich eine Kopie erstellt, und die Variable "BytSumme" gar nicht verändert/Übergeben... Müsste man nicht eig. "ByRef" benutzen?
Hab auch nicht wirklich was im Internet dazu gefunden, was mir weiterhilft - jediglich die Definitionen und die versteh ich anscheinend nicht ganz richtig
Das mit den Funktionen hab ich echt noch nicht raus
Übrigens: Ich bin was VBA und Programmierung an sich angeht noch ein totaler Anfänger... falls ich mich gerade "lächerlich" mache, weil ich sozusagen den Wald vor lauter Bäumen nicht sehe, so lasst Gnade walten
