Summe ausrechnen mit vba
10.11.2022 14:06:53
Tim
ich habe in diesem Forum das Ausrechen einer Summe recherchiert und die Lösung
Application.Sum(Range("D2:D19"))
bekommen.
Wenn ich aber als Range eine Variable eingebe, kommt die Fehlermeldung:
Laufzeitfehler 1004
Die Methode Range ist für das Objekt "_Global" fehlgeschlagen
Außerdem werden vorher Werte aus einem anderen Blatt in Tabelle kopiert....
Hier der Code:
Sub summe()
dim arg as string, i as integer, q as variant, res as variant, l as integer, ie as integer, ist as integer
res = array("D")
l = 0
ist = 2 'Startzeile der zu summierenden Zeiten
ie = 9 'Endzeile der zu summierenden Zeiten
i = 10 'Zeile, wo die Summe rein soll
icol4 = 4 'Spalte, wo die Summe rein soll
ztab = "Tabelle3" 'Arbeitsblatt, wo die Summe rein soll
q = chr(34) 'Anführungszeichen oben
arg = q & res(l) & ist & ":" & res(l) & ie & q
MsgBox arg
sheets(ztab).Activate
'Sheets(ztab).Cells(i, icol4).Value = Application.Sum(Range(arg)) 'funzt nicht
Sheets(ztab).Cells(i, icol4).Value = Application.Sum(Range("D2:D9")) 'funzt
End Sub