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

Werte von Tabelle 2 zu Tabelle 1 addieren

Forumthread: Werte von Tabelle 2 zu Tabelle 1 addieren

Werte von Tabelle 2 zu Tabelle 1 addieren
24.06.2008 10:42:00
Tabelle
Hallo,
ich hoffe hier kann mir jemand weiterhelfen. Ich muss die Bestände (Spalte G) aus der Tabelle 2 zu den Beständen der Artikel in der Tabelle 1 dazuaddieren, dabei kann der Artikel in der Tabelle mehrfach vorkommen.
Wenn der Artikel nicht in der Tabelle 1 vorkommt, dann soll die ganze entsprechende Zeile aus der Tabelle 2 und alle bisherigen Werten in Tabelle 1 kopiert werden.
Hat jemand eine Idee wie man dies mit VBA lösen könnte, hab dies mit einer Macroaufzeichnung nicht hinbekommen.
Hier mein Beispiel:
https://www.herber.de/bbs/user/53304.xls
Würde mich sehr über jeden Lösungsansatz freuen.
Gruß
Sascha

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte von Tabelle 2 zu Tabelle 1 addieren
25.06.2008 00:05:27
Tabelle
Hallo Sascha,
hier mein Vorschlag
Gruß
Franz

Sub Tabelle2nach1Einlesen()
Dim wksZiel As Worksheet, wksQuelle As Worksheet
Dim lngZeileQ As Long, lngSpalte As Long
Dim rngArtikel As Range
Dim varArtikel
If MsgBox("Soll der Bestand aus Tabelle2 nach Tabelle1 eingelesen werden?", _
vbOKCancel, "Datenübernahem aus Tabelle 2 nach 1") = vbOK Then
Set wksZiel = Worksheets("Tabelle1")
Set wksQuelle = Worksheets("Tabelle2")
With wksQuelle
For lngZeileQ = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
varArtikel = .Cells(lngZeileQ, 1).Value
'Artikel in Spalte eins der Zieltabelle suchen
Set rngArtikel = wksZiel.Columns(1).Find(what:=varArtikel, LookIn:=xlValues, _
lookat:=xlWhole, MatchCase:=False)
If rngArtikel Is Nothing Then
'nächste freie Zeile in Spalte A der Zieltabelle wählen
With wksZiel
Set rngArtikel = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
'Alle Daten  des Artikels aus Quelltabelle übernehmen
rngArtikel.Value = varArtikel
For lngSpalte = 2 To 8 'Spalte B bis H
rngArtikel.Offset(0, lngSpalte - 1) = .Cells(lngZeileQ, lngSpalte).Value
Next
Else
'Bestand aus Tabelle 2 zum Bestand in Tabelle 1 addieren
rngArtikel.Offset(0, 6) = rngArtikel.Offset(0, 6) _
+ .Cells(lngZeileQ, 7).Value
End If
Next
End With
End If
Set wksZiel = Nothing: Set wksQuelle = Nothing
Set rngArtikel = Nothing
End Sub


Anzeige
;

Forumthreads zu verwandten Themen

Werte aus allen Tabellen in ein Tabelle zusammenfü
Kurt

Hallo Zusammen,
ich möchte gern alle Werte aus den vorhandenen Tabellen in eine Tabelle eingelesen werden.
Es dürfen nur nicht aus der "Muster + Alle" Tabelle, geht das per Makro?
Aus folgenden Zellen sollen alle Werte addiert in die "Alle" Tabelle reingesetzt werden.
D17 + D17<...
16.01.2009 16:14:00
Thread-ID: 1040622
10 Beiträge
Spalte nur die negativen Werte zusammenzählen
Jessi

Hallo zusammen,
ich möchte ich einer Spalte ab Zeile 6 alle negativen Werte zusammenzählen und alle positiven Werte, gibt es hierfür eine gesonderte Formel? Über Rückmeldung wäre ich dankbar.
LG
Jessi
07.03.2009 10:33:26
Thread-ID: 1057539
4 Beiträge
Zahlenwerte automatisch in Tabelle anzeigen lassen
Bine

Hallo liebe Excel Helfer,
ich steh mal wieder vor einem Problem und habe im Archiv leider nix hilfreiches gefunden:
Ich habe folgendes Makro zur Zeichnung von Rechtecken:
Sub Makro1() start: On Error Resume Next Dim a, b, c, d As Integer Dim zelle As Range a = InputBox("Geben Si...
27.03.2009 11:55:53
Thread-ID: 1064556
6 Beiträge
Werte in Tabelle setzen
Friedhelm

Hallo,
habe folgendes Problem.
In Tabelle1 A1:H20 können mehrere Personen Daten eingeben. In Tabelle2 C1:J10 werden Daten nur von einer Person eingegeben. Nur wenn in Tabelle2 Daten vorhanden sind sollen diese in Tabelle1 mit einer anderen Schriftart und Hintergrund angezeigt werden. We...
12.11.2009 08:00:52
Thread-ID: 1116345
3 Beiträge
Anzeige
Nur in 2 Zellen Nullwerte anzeigen
Heinz

Hallo Leute
Ich habe in einer Tabelle die Nullwerte ausgeblendet.
Nun möchte ich aber in J5 und in J36 die Nullwerte "0,00" angezeigt haben.
Gibt es dazu bitte eine Möglichkeit ?
Gruß Heinz
06.07.2010 18:02:45
Thread-ID: 1165742
3 Beiträge
Anzeige
=Auswerten(Tabelle1!$A$1)+0*Jetzt()
Frank

Hallo liebe Excel Freunde,
ich habe eine Datei, bei der man in Zelle A2 eine Funktionsgleichung eingeben kann und diese wird dann in einem DIagramm ausgegeben. Die Datei arbeitet ganz ohne Makros. Nun habe ich mich auf die Suche begeben, wie das funktioniert und bin im Namensmanager auf die...
30.07.2010 11:09:25
Thread-ID: 1169620
7 Beiträge
wenn minusbereich dann warnen
ottgunter

Hallo
Brauche wieder Fachwissen.
Ich habe in Tabelle1 im Zellenbereich bi4 bis bi23 Zahlen zustehen.
wenn eine Zelle in diesem Bereich unter null fällt, also im minusbereich rutscht, dann soll eine Warnung gegeben werden.
Gruß gunter
18.08.2010 18:18:34
Thread-ID: 1172952
5 Beiträge
Werte aus ListBox in Tabelle / Zellenformat Zahl
Mike

Hallo Excel Gemeinde!
Mit dem Folgenden Code übertrage ich aus einer ListBox Werte in eine Tabelle. In der Spalte 3 - 5 der ListBox stehen Zahlen. Private Sub CommandButton_Druck_Click() With Me.ListBox1 Sheets("Test").Cells(5, 1).Resize(.ListCount, .ColumnCount) = .List End With Unload Me...
02.01.2011 13:43:59
Thread-ID: 1193572
14 Beiträge
VBA zu Tabelle - Variablenwerte kommen nicht an
Perry

Hallo!
Mein Problem stellt sich folgendermaßen dar:
Habe eine Arbeitsmappe mit mehreren Worksheets - das erste ist eine Übersicht, die zusammenfassend angeben soll, wie oft bestimmte Ausdrücke in den nachfolgenden Worksheets vorkommen.
Das Zusammenzählen, wie oft die gesuchten Ausdr...
03.07.2011 19:12:26
Thread-ID: 1220730
2 Beiträge
Zwei Tabellen mit zwei verschiedenen Werten vergle
Thomas

Ich benutze 2 Sheet zum auswerten von Daten. Im Sheet „N2“ möchte ich gerne das eine gewisse Zahl von Sheet „SAP“ übertragen wird.
Ich suche eine Formel die folgendes kann:
Durchsuche in „N2“ die Spalte A2 nach unten und vergleiche sie mit „SAP“ Spalte A2. Werden zwei gleiche Zahlen gef...
27.09.2011 13:31:19
Thread-ID: 1231683
5 Beiträge
Werte von einer Tabelle in die andere "ziehen"
einer

Hallo, ich habe in Tabelle 2 in Spalte 1 alle Stellplätze aus meinem System. In Spalte zwei die technische ID dazu.
In Tabelle 1 finden sich in Spalte 1 auch Stellplätze. Dem jeweiligen Stellplatz in Tabelle 1 soll nun die entsprechende ID aus Tabele 2 zugeordnet werden.
Kann mir da jem...
01.02.2012 12:52:29
Thread-ID: 1248771
7 Beiträge
Anzeige
wurzelfunktion mit tabellenwerten
peter

hallo zusammen.
ich würde gerne in hochgeladener datei jeweils die werte in der tabelle berechnen. ich habe das am beispiel in zelle B3 gemacht, leider kann ich das nicht über die ganze tabelle ziehen, ich denke weil die formel die bereiche kennen muss - leider hat das bei meinen versuchen...
26.02.2012 16:26:09
Thread-ID: 1252554
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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