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

Helfe beim Thema Alle Spalten rechts von der aktuellen Zelle addieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Moin allerseits, macht's Euch doch nicht so schwer, nehmt VBA! Dieser Code ins Arbeitsblatt ... Option Explicit Sub Zeilensumme() Dim i As Integer, j... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von lxztlr, 5. September 2023.

  1. d'r Bastler
    d'r Bastler hat Ahnung

    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
     
    Zuletzt bearbeitet: 6. September 2023
    d'r Bastler, 6. September 2023
    #16
  2. HKindler
    HKindler hat Ahnung
    Hi,

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

    Alle Spalten rechts von der aktuellen Zelle addieren 2023-09-06 14_40_08-Microsoft Visual Basic for Applications - Mappe2 [Aktiv] - [Modul1 (Code)].png

    EDIT:
    Jetzt habe ich es notdürftig repariert und erhalte den nächsten Fehler
    Alle Spalten rechts von der aktuellen Zelle addieren 2023-09-06 14_40_08-Microsoft Visual Basic for Applications - Mappe2 [Aktiv] - [Modul1 (Code)].png
     
  3. d'r Bastler
    d'r Bastler hat Ahnung
    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
     
    d'r Bastler, 6. September 2023
    #18
  4. HKindler
    HKindler hat Ahnung

    Alle Spalten rechts von der aktuellen Zelle addieren

    Hi Bastler,

    ganz normal in ein allgemeines Modul.
     
  5. d'r Bastler
    d'r Bastler hat Ahnung
    Helmut?!?!
    In einem Allg. Modul kann das nicht gehen! Mein Hinweis in #16 war doch eindeutig:
    Huch!
     
    d'r Bastler, 6. September 2023
    #20
  6. d'r Bastler
    d'r Bastler hat Ahnung
    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
     
    d'r Bastler, 6. September 2023
    #21
  7. HKindler
    HKindler hat Ahnung
    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.
     
  8. d'r Bastler
    d'r Bastler hat Ahnung

    Alle Spalten rechts von der aktuellen Zelle addieren

    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
     
    Zuletzt bearbeitet: 6. September 2023
    d'r Bastler, 6. September 2023
    #23
  9. HKindler
    HKindler hat Ahnung
    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.
     
  10. d'r Bastler
    d'r Bastler hat Ahnung
    EDIT in #23
     
    d'r Bastler, 6. September 2023
    #25
  11. RPP63_neu hat Ahnung
    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!
    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
     
    RPP63_neu, 6. September 2023
    #26
  12. d'r Bastler
    d'r Bastler hat Ahnung
    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
     
    d'r Bastler, 6. September 2023
    #27
  13. RPP63_neu hat Ahnung

    Alle Spalten rechts von der aktuellen Zelle addieren

    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?
     
    RPP63_neu, 6. September 2023
    #28
  14. d'r Bastler
    d'r Bastler hat Ahnung
    Und was macht Deine Formel mit Text?? ...
     
    d'r Bastler, 6. September 2023
    #29
  15. steve1da Office Guru
    Nix. Summe() ignoriert Text.
     
Thema:

Alle Spalten rechts von der aktuellen Zelle addieren

Die Seite wird geladen...
  1. Alle Spalten rechts von der aktuellen Zelle addieren - Similar Threads - Spalten aktuellen Zelle

  2. VBA - Wenn Eintrag in Spalte vorhanden dann aktualisieren, sonst neue Zeile

    in Microsoft Excel Hilfe
    VBA - Wenn Eintrag in Spalte vorhanden dann aktualisieren, sonst neue Zeile: Hallo an Alle, ich habe ein Problem und finde keine Lösung in den Foren. Ich hoffe, dass mir jemand hier helfen kann. Ich habe in einer Datei zwei Blätter - eins "TC_Template" ist optisch wie...
  3. Teil der Daten von Spalte A in Spalte B verschieben

    in Microsoft Excel Hilfe
    Teil der Daten von Spalte A in Spalte B verschieben: Hallo zusammen, ich habe in Spalte A/ Zelle 1 folgenden Textinhalt: P-100-403497-EL30. Gerne möchte ich nun "-EL30" von Spalte A/Zelle1 ausschneiden und in Spalte B/Zelle 1 "EL30" einfügen....
  4. nächste freie Zelle in aktueller Spalte ab aktueller Cursorposition

    in Microsoft Excel Hilfe
    nächste freie Zelle in aktueller Spalte ab aktueller Cursorposition: Hallo zusammen, ich habe mal eine Frage und hoffe, dass ihr mir helfen könnt. Ich möchte, dass in VBA die nächste freie Zelle in einer vorher definierten Spalte ab der aktiven Cursor Position...
  5. Zelle färben wenn Datum in Spalte kleiner als aktuelles Datum

    in Microsoft Excel Hilfe
    Zelle färben wenn Datum in Spalte kleiner als aktuelles Datum: Hallo zusammen, ich bin gerade dabei einen Projektplan zu erstellen und komme am folgenden Punkt nicht weiter. Der Plan hat Deadlines und ich will Punkte des Projektplans hervorheben, wenn sie...
  6. Aktuelles Datum in Spalte finden

    in Microsoft Excel Hilfe
    Aktuelles Datum in Spalte finden: Hallo zusammen, ich habe eine Datei, in der ich in Spalte C das Datum vom ganzen Jahr habe. Jetzt möchte ich gerne, dass wenn ich die Datei aufmache, der Courser automatisch zum aktuellen Datum...
  7. Aktuelle Zeile und Spalte markieren

    in Microsoft Excel Hilfe
    Aktuelle Zeile und Spalte markieren: Hallo zusammen. Gibt es eine Möglichkeit die aktuelle Zeile und Spalte farblich zu hinterlegen. Gerade bei sehr großen Tabellen, kann das von Vorteil sein. Vielen Dank für Eure Hilfe im voraus....
  8. Spalten in weiterem Arbeitsblatt aktuell halten

    in Microsoft Excel Hilfe
    Spalten in weiterem Arbeitsblatt aktuell halten: hallo im rahmen einer pivotauswertung einer grossen tabelle die originaltabelle hat a-r spalten, auswerten muss ich spalten b, i und j. wie kann ich jeweils die ganze spalte in einem...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden