Office: (Office 2016) Alle Spalten rechts von der aktuellen Zelle addieren

Moin allerseits,

macht's Euch doch nicht so schwer, nehmt VBA! Dieser Code ins Arbeitsblatt ...

Code:

Option Explicit

Sub Zeilensumme()
Dim i As Integer, j As Integer, r As Integer, c As Integer
r = UsedRange.Rows.Count

For i = 1 To r
    Cells(i, 1).Clear
    c = Cells(i, 256).End(xlToLeft).Column
    For j = 2 To c
        Cells(i, 1) = Cells(i, 1) + Cells(i, j)
    Next j
Next i

End Sub

... schreibt die Summen ab Spalte B bis zur letzten belegten Zelle auch mit Lücken.

Grüße

 

Hi,

wenn ich versuche dein Programm zu starten, erhalte ich einen Fehler. ???



EDIT:
Jetzt habe ich es notdürftig repariert und erhalte den nächsten Fehler

 

Moin Helmut!

Frage: Wo hast Du den Code hingepackt? In meinem Arbeitsblatt (s.o.) tut er brav seinen Job...
Das Arbeitsblatt kennt seinen UsedRange.

Grüße

 

Hi Bastler,

ganz normal in ein allgemeines Modul.

 

Helmut?!?!
In einem Allg. Modul kann das nicht gehen! Mein Hinweis in #16 war doch eindeutig:

Huch!

 

Aber für Dich noch mal als Code für ein ALLGEMEINES MODUL

Code:

Option Explicit

Sub Zeilensumme()
Dim i As Integer, j As Integer, r As Integer, c As Integer

With ActiveSheet

r = .UsedRange.Rows.Count

For i = 1 To r
    .Cells(i, 1).Clear
    c = .Cells(i, 256).End(xlToLeft).Column
    For j = 2 To c
        .Cells(i, 1) = .Cells(i, 1) + .Cells(i, j)
    Next j
Next i

End With

End Sub

Und als auslösenden Event dieses aber bitte ins Arbeitsblatt

Code:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Zeilensumme
End Sub

ein Doppelklick im Blatt genügt.

Grüße

 

Oh, sorry, das hatte ich überlesen.
Jetzt steht der Code im Tabellenblatt und funktioniert fast. Also er läuft durch, zählt aber meine Spalten nicht zusammen, sondern kopiert nur Spalte B.

 

Ich habe den Code bei mir mit mehreren Testszenarien durchgespielt. Und er funktioniert. Vielleicht solltest Du nicht Deine Reparatur nutzen, sondern den Original-Code?

Wenn nur in Spalte B ein Wert steht, wird auch nur der summiert. Hast Du's mit mehreren Werten, vielleicht sogar welchen mit Lücken in der Zeile probiert? Anbei eine Beispieltabelle.

Grüße

 

Hi,

ich habe deinen Code verwendet (im Arbeitsblatt). Und natürlich habe ich viele Spalten gefüllt. Der Bereich B2:JA20 ist komplett gefüllt.

 

EDIT in #23

 

Moin!
Ich ahne ja, @d'r Bastler, dass Du hier nur etwas trollen möchtest, dennoch gestatte mir folgende Anmerkungen:

Was genau empfindest Du an SUMME() so schwer, als dass es VBA bräuchte?
Dein:

Code:

c = Cells(i, 256).End(xlToLeft).Column

ist ja fast schon dreist!
Oder willst Du jetzt ernsthaft behaupten, dass Du niemals Tabellen mit mehr als 256 Spalten nutzt?
Vorsicht, Spoiler!

Spoiler

Ein Jahr hat zum Beispiel mindestens 365 Tage …

Was macht Dein toller Code eigentlich, wenn in einer Zelle Text steht?

Code:

.Cells(i, 1) = .Cells(i, 1) + .Cells(i, j)

Richtig: Er fliegt ab!

Gruß Ralf

 

Oh Ralf,
wann lernst Du endlich, dass ich nicht als Troll unterwegs bin, sondern mir Aufgaben suche, an denen ich selbst etwas lernen kann. Also bitte: Lass die dämlichen Beleidigungen. Hast Du die echt nötig??

Was wenn Text? Die Aufgabenstellung sprach von numerischen Werten. Also alles gut mit meinem Ansatz..

Wirf einen Blick nach hier, und Du hast eine qualifizierte Antwort auf Dein Gedümmel.
Schade, dass Du nun selbst zu den Trolls gewechselt bist.
Dennoch Grüße

 

Wenn Du Dich beleidigt fühlst, kann ich das leider nicht ändern.
Jedenfalls erkenne ich nirgendwo in meiner Antwort die Intention, dies zu tun.
Der Thread war doch "eigentlich" mit meiner Antwort =SUMME(F2:XFD2) erschlagen.
Ich selbst bin ja weiß Gott kein VBA-Unkundiger, käme aber niemals auf die Idee, eine gegebene Funktion ohne Not in VBA nachbilden zu wollen.
(Mal ganz davon abgesehen, dass Funktionen im Quellcode stehen, folglich nicht kompiliert zu werden brauchen, und aus der Fülle der heutzutage vorhandenen Prozessorkerne einfach alle nimmt, während VBA sich nur einen schnappen darf)
Was glaubst Du eigentlich, was "Gedümmel" ist:
Eine Beleidigung gegen mich oder doch eine korrekte Selbsteinschätzung Deines Forums?

 

Und was macht Deine Formel mit Text?? ...

 

Nix. Summe() ignoriert Text.