Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Flexible Addition von Spaltenwerten

Flexible Addition von Spaltenwerten
26.12.2012 14:27:30
Spaltenwerten
hallo,
habe ein Makro flexibel aufgebaut.
Anhand Werte Perioden: bilden sich die Spalten
Anhand der Werte von Produkte bilden sich Zeilen
es müssen alle Zeilen in einer Spalte (hier Produkt 1 und 2) addiiert werden.
Da der Aufbau flexibel ist, können natürlich auch viele Zeilen enstehen.
hier ist die Bezeichnnung It für Periode 1: Produkt1 + Produkt2
Die Summe sollte jeweils auch in einer bestimmten Zeile(ganz unten, leere Zeile) stehen.
Bitte um Unterstützung
https://www.herber.de/bbs/user/83136.xlsm

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Flexible Addition von Spaltenwerten
26.12.2012 15:04:29
Spaltenwerten
Hallo Baris
Versuch mal so:
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub machs()
    Dim Y As Long
    Dim X As Long
    With Sheets("Tabelle2")
        .Range("B4:ZZ4").ClearContents
        .Range("A5:A6112").ClearContents
        For Y = 1 To .Cells(1, 2).Value
            .Cells(4, Y + 1).Value = Y
        Next Y
        For X = 1 To .Cells(2, 2).Value
            .Cells(X + 4, 1).Value = X
        Next X
        .Cells(X + 4, 1).Value = "bt"
        .Cells(X + 5, 1).Value = "It"
        .Range(.Cells(X + 4, 2), .Cells(X + 4, Y)).FormulaLocal = "=Summe(B5:B" & X + 3 & ")"
    End With
End Sub


ransi

Anzeige
Schau Dir mal die Pivottabelle an -owT
26.12.2012 15:28:16
Sheldon
Gruß
Sheldon

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige