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
1788to1792
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
1788to1792
1788to1792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Addieren von Werten zu bestehenden Wertn

Addieren von Werten zu bestehenden Wertn
29.10.2020 22:08:18
Werten
Hallo Gemeinde,
vielleicht kann mir jemand helfen.
Ich möchte gern so wie in der angehängten Excel Datei ersichtlich in eine Tabelle Werte zu den bestehenden dazu addieren falls es diese schon gibt, falls nicht soll eine neue Zeile angelegt werden.
Es soll quasi B3 und B4 überwacht werden ob es die Werte schon in Tabelle2 gibt, falls es diese gibt zu den bestehenden dazu addieren und falls nicht eine neue Zeile generiert werden!
Also vielleicht über eine if-Schleife, aber ich weiß leider nicht wie ;)
Vielen Dank schon mal im Voraus.
https://www.herber.de/bbs/user/141176.xlsx

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

Betreff
Datum
Anwender
Anzeige
AW: Addieren von Werten zu bestehenden Wertn
30.10.2020 09:48:04
Werten
Hallo Starko,
Nachfolgend ein entsprechendes Makro
LG
Franz
Sub Abgleichen()
Dim wks1 As Worksheet
Dim wks2 As Worksheet
Dim varWert, rngWerte As Range
Dim Zeile_1 As Long, Zeile_2 As Long
Dim rng2 As Range
Set wks1 = ActiveWorkbook.Worksheets("Tabelle1")
Set wks2 = ActiveWorkbook.Worksheets("Tabelle2")
With wks1
For Zeile_1 = 3 To 4
varWert = .Cells(Zeile_1, 2).Value 'Werte in Spalte C
Set rngWerte = .Range(.Cells(Zeile_1, 3), .Cells(Zeile_1, 7))
With wks2
Set rng2 = .Range("A:A").Find(what:=varWert, LookIn:=xlValues, lookat:=xlWhole)
If rng2 Is Nothing Then
Zeile_2 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Zeile_2, 1).Value = varWert
rngWerte.Copy
.Cells(Zeile_2, 2).PasteSpecial Paste:=xlPasteValues
Else
Zeile_2 = rng2.Row
rngWerte.Copy
.Cells(Zeile_2, 2).PasteSpecial Paste:=xlPasteValues, Operation:= _
xlPasteSpecialOperationAdd
End If
End With
Next
Application.CutCopyMode = False
End With
End Sub

Anzeige
AW: Addieren von Werten zu bestehenden Wertn
30.10.2020 22:43:10
Werten
Guten Abend!
Muss sagen es funktioniert einwandfrei und genau so wie ich gebraucht habe.
Super vielen Dank dafür!

253 Forumthreads zu ähnlichen Themen

Wenn nur Text in Zelle...
MichiM

Hallo,
ich habe eine umfangreiche Artikelliste (ca. 250.000 Artikel) aus einer Datanormdatei erstellt.
Aus dieser muss ich jetzt alle Artikel entfernen, dessen Artikelnummer (in Spalte A; als Text formatiert, damit führende Nullen nicht gelöscht werden) keinerlei Zahlen enthalten.
E...
22.08.2008 16:24:44
Thread-ID: 1003960
4 Beiträge
Anzeige
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Absolute Werte addieren mit VBA
Peter

Guten Abend
Mit der Formel
=SUMMENPRODUKT(ABS(BenannterBereich))
ermittle ich den absoluten Wert aller Zahlen im Bereich "BenannterBereich".
Leider lässt sich diese Formel in VBA mit WorksheetFunction. nicht verwenden.
Wer kennt einen alternativen Lösungsansatz?
Danke fü...
06.02.2009 21:30:35
Thread-ID: 1047925
6 Beiträge
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 Beiträge
Null-werte verschwinden beim addieren
Joachim

Hi,
Ich glaube Tino war es, hatte mir mal ein Beispiel gemacht. Wenn in meinem datenbestand in Spalte B zwei gleiche NUmmern vorkommen, sollen diese zu EINEM Datensatz gemacht werden. Die Zaheln in den Spalte S und AA sollen addiert werden und dann der überflüssige datensatz gelöscht werden...
10.06.2009 13:30:52
Thread-ID: 1080454
2 Beiträge
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 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
3
12
5
5
4
5
4
5
1
1
2
5
6
5
4
5
1
11
3
2
4
2
2
4
3