Werte aufaddieren + Laufzeitfehler
28.06.2004 09:40:41
Daniel
Ich habe ein Makro geschrieben, das eine Zeile in einer Tabelle durchlaufen soll, jeden zweiten Wert addieren und das Ergebnis nachher in einer Meldung ausgeben soll:
Dim a As Variant
Dim b As Variant
Dim ls As Variant
Dim s As Variant
ls = Cells(ActiveCell.Row, 256).End(xlToLeft).Column
For s = 1 To ls Step 2
a = Cells(ActiveCell.Row, s)
b = b + a
Next
MsgBox a
Wenn ich das Makro starte kommt es nur bis zur Stelle b= b+ a und gibt die Fehlermeldung "Laufzeitfehler 13 Typen unverträglich" aus.
Weiss jemand einen Ausweg? Meiner Meinung nach müsste es funktionieren, denn die Typen sind doch gleich?
Mfg Daniel