Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
292to296
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
292to296
292to296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

addieren

addieren
14.08.2003 17: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

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

Betreff
Datum
Anwender
Anzeige
AW: addieren
15.08.2003 22: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 11: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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige