Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:48:22
Blatt in HTML exportieren wenn Checkbox aktiv ist
16.04.2024 11:43:37
Mehrere Druckbereiche dynamisch festlegen
16.04.2024 11:32:40
Vergleich 2 Spalten in Abhängigkeit vom Namen
16.04.2024 11:08:47
Text in Spalten zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
988to992
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
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

104 Forumthreads zu ähnlichen 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
Anzeige
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
=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
Nur bestimmte Werte in Combobox anzeigen lassen
Josef

Hallo!
Ich habe in einer Userform 2 ComboBoxen.
In die ComboBox1 werden die Werte aus der Tabelle1, Spalte H eingelesen.
In der ComboBox2 werden die Werte aus der Tabelle2, Spalte H eingelesen. Die Werte in der Tabelle2, Spalte H gibt es auch in der Tabelle1, Spalte H. Es kommt jed...
01.08.2011 09:11:29
Thread-ID: 1224430
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
9
3
5
2
2
6
4
13
1
3
4
6
3
5
1
5
4
2
2
4
6
1
10
3
3