Ich habe den folgenden Code unter dem Reiter Tabellenblatt eingefügt (nicht Modul). Es funktioniert nicht bzw. wirft immer 0 aus. Ich vermute mal, dass es nicht klappt die Daten aus Tabellenblatt in die Variablen einzulesen. Aber ich weiß nicht darum. Wer weiß woran das liegt?
ption Explicit
Sub Testproggy()
' Definiere die beteiligten Variablen
Dim Zahl1 As Double
Dim Zahl2 As Double
Dim Ergebnis As Double
' Lese die Zahlen aus dem Tabellenblatt ein
Range("B1").Value = Zahl1
Range("B2").Value = Zahl2
' Addiere die beiden Zahlen und speichere diese unter Ergebnis ab
Ergebnis = Zahl1 + Zahl2
'Gebe das Ergebnis in einer Checkbox aus
MsgBox Ergebnis
End Sub
|