addieren

Forumthread: 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

AW: addieren

15.08.2003 22:47:40

Bernhard Mächler
AW: addieren

16.08.2003 11:57:25

Bernhard

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

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

Beliebteste Forumthreads (12 Monate)

Forumthread: addieren

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

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread