VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Tim	Datum: 29.12.2005 23:10:24	Views: 1148	Rating:	Antwort:
Thema: Aw:Aw:Aw:Summe
Tim schrieb am 29.12.2005 22:58:47: Rasta schrieb am 28.12.2005 10:43:05: Hi Tim, du kannst ausserdem so eine formel angeben: Columns("F:F").Select ActiveCell.FormulaR1C1 = "=SUM(R[3]C:R[32]C)" bei einer summenbildung kannst du nicht die gesamte spalte angeben, sondern nur einen bereich - auf diesen bereich musst du dich auch hier festlegen. probiere doch mal den makro-recorder aus und setze eine formel/summe-funktion in excel-- und dann schaust du dir den code in vba an. eine andere möglihckeit ist es, die einzelnen zeilen der spalte per code zu durchlaufen und zu addieren-- dauert aber viel zu lange meiner meinung nach. dim zaehler as long dim spalte as long spalte = 1 zaehler = 1 dim summe as double do until cells(zaehler, spalte) = "END" summe = summe + cells(zaehler, spalte) zaehler = zaehler + 1 loop musst natürlich am ende der spalte ein "END" setzen hoffe es hilft viele grüße rasta (ps- warum antwortest du nicht auf den original beitrag?) Tim schrieb am 28.12.2005 10:22:43: Möchte die Summe jedoch nur in VBA, da es für ein Schulprojekt notwendig ist. Hi rasta, Sorry, wusste ich nit. Aber ich probiere deinen Code mal.Danke Hi Rasta, Habe deinen Code übernommen, natürlich angepasst, jedoch bringt er mir einen Laufzeitfehler 13. Ist die Variable falsch deklariert?

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen