Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

addieren

Forumthread: addieren

addieren
14.08.2003 19:32:52
Andreas
Hallo Excelgemeinde,
ich brauche mal eure Hilfe. Folgendes Problem: Ich lese in Tabelle2 Daten aus einer Produktivliste ein, bestehend aus Spalte A: Artikelnummern und Spalte B: Bestellzahlen. Das selbe mache ich aus der Archivliste nur in Spalte C und Spalte D. Wie kann ich Spalte A und C miteinander auf gleiche Artikelnummern vergleichen, deren Bestellzahlen (in Spalte B und D) addieren und in Tabelle3, in Spalte A Artikelnummern und in Spalte B addierte Bestellwerte einfügen? Wenn die Artikelnummern in einer der beiden Listen nicht vorkommen, so sollen sie und deren Bestellwerte übernommen werden. Die Artikelnummern sind nicht immer in der gleichen Zelle.
Für eure Hilfe wäre ich dankbar
Andreas
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: addieren
16.08.2003 00:47:40
Bernhard Mächler
Hallo Andreas,
füge den nachfolgend Code ins Modul von Tabelle2
und bewege den Curser in Spalte A
Gruss Beni

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Makro von Bernhard Mächler
If Target.Column = 1 And Target <> "" Then
If Cells(Target.Row, 1) = Cells(Target.Row, 3) Then
Dim lRow As Long
With Worksheets("Tabelle3")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = Cells(Target.Row, 1)
.Cells(lRow, 2).Value = Cells(Target.Row, 2) + Cells(Target.Row, 4)
End With
End If
End If
End Sub


Anzeige
AW: addieren
16.08.2003 13:57:25
Bernhard
Hallo Andreas,
habe nicht daran gedacht, dass die Werte die ungleich sind,
auch in Tablle3 einzufügen, hir die Verfolständigung.
Gruss Beni

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Makro von Bernhard Mächler
If Target.Column = 1 And Target <> "" Then
Dim lRow As Long
With Worksheets("Tabelle3")
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If Cells(Target.Row, 1) = Cells(Target.Row, 3) Then
.Cells(lRow, 1).Value = Cells(Target.Row, 1)
.Cells(lRow, 2).Value = Cells(Target.Row, 2) + Cells(Target.Row, 4)
Else
.Cells(lRow, 1).Value = Cells(Target.Row, 1)
.Cells(lRow, 2).Value = Cells(Target.Row, 2)
lRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(lRow, 1).Value = Cells(Target.Row, 3)
.Cells(lRow, 2).Value = Cells(Target.Row, 4)
End If
End With
End If
End Sub


Anzeige

Forumthreads zu verwandten Themen

Zellen aus verschiedenen Arbeitsmappen addieren
Roland
Zellen aus verschiedenen Arbeitsmappen addieren, wobei die Arbeitsmappen in der einer Arbeitsmappe aufgelistet sind. D.h. in der ersten Arbeitsmappe gibt es eine Spalte mit verschiedenen Arbeitsmappennamen. Abhängig von diesen will ich immer die gleiche Zelle in den Mappen addieren.
17.02.2004 17:33:44
Thread-ID: 383993
1 Beitrag
Formel wo Ergebnis immer Addiert wird
Stefan

Hallo, will eine Formel machen wo ich jeden Tag meine Arbeitszeit eingebe und sie mir gleich meine Überstunden ausrechnet und das Ergebnis immer addiert.
Die Formel habe ich schon so weit. Aber das mit dem Ergebnis addieren haut nicht hin.
z.B.
Kommen: 07:00 Gehen: 16:45 Arbeitsze...
25.07.2002 20:36:25
Thread-ID: 140753
2 Beiträge
Anzeige
Summe alle Tabellen Makro
Martin

Hallo Zusammen
Ich habe eine grössere Datei mit vielen verschiedenen Tabellenblättern. Die meisten sind ausgeblendet. Die Namen der Tabellenblätter sind auch unterschiedlich und nicht vorausdefinierbar.
Mir ist klar das ich immer nur die gleiche Zelle pro Blatt zusammen addieren will.
21.12.2010 16:52:31
Thread-ID: 1192395
2 Beiträge
Zeilen mit doppelten Inhalten zusammenschmelzen
Jassi

Hallo liebes Forum,
habe schon ueberall nach einer Loesung gesucht aber leider noch keine gefunden. Ich will keine Summen addieren nur Zeilen zusammenfuegen/schmelzen, die dieselbe ID haben.
Ich suche fuer folgendes Problem ein Makro.
Ich habe ein Excel-Datei, die mir von einem Comp...
22.01.2019 14:37:19
Thread-ID: 1670033
14 Beiträge
Excel-Summe
Karen

Wie kann ich in einem neuen Dokument immer die gleiche Zelle aus ca. 20 Tabellenblättern eines anderen Dokumentes addieren.
24.11.2004 11:56:28
Thread-ID: 522334
4 Beiträge
Anzeige
unterschiedl. Pos aus Registern addieren
Thomas
Hallihallo,
in einer großen Arbeitsmappe habe ich u.a. 12 Arbeitsblätter (Januar-Dezember), auf denen ich alle „Restzahlungen“ sammle, die ich in der große Arbeitsmappe nicht aufführen kann.
Zum Teil wiederholen sich die Posten, z.B. Kontoführungsgebühren oder Steuerberater, Lebensmitteleink...
04.05.2022 13:28:02
Thread-ID: 1882189
23 Beiträge
Abfrage von Wahrheitswerten und Auswahl von Daten
Wahrheitswerten

Hallo zusammen,
ich habe folgendes Problem, an dem ich nun schon ne Weile arbeite und nicht weiter komme: In der Tabelle Medienresonanz werden Werte und Fakten eintragen.
Diese möchte ich gern dann mit einer Abfrage in eine andere Tabelle (Tabellen 2005) übertragen lassen. Ich möchte ger...
06.09.2005 14:59:30
Thread-ID: 663209
6 Beiträge
Summe aus mehreren Dateien bestimmts Tabellenblatt
Roman

Hallo,
lange nicht mehr hier gewesen - aber noch in guter Erinnerung :-)
Ich benötige Eure Hilfe und meine Deadline rückt immer näher...
Mein Problem:
Ich habe mehrere Exceldateien in einem Verzeichnis welche aus unterschiedlich vielen, gleichen Tabellenblättern bestehen.
Je...
11.05.2016 16:46:45
Thread-ID: 1492804
5 Beiträge
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum