Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1728to1732
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
Inhaltsverzeichnis

Wert aus Zelle nemen, addieren, zurückschreiben

Wert aus Zelle nemen, addieren, zurückschreiben
09.12.2019 18:18:37
Gerhard
Hallo da draußen!!!
Folgendes "Problem"
Habe eine Spalte in der versch Zahlen stehen. Sagen wir Spalte A. In Spalte B trage ich mit einem Macro weitere Zahlen ein.
Wie könnte ein Makro lauten wenn ich folgendes jetzt haben möchte:
Nimm Wert aus Spalte B Zeile 2 und addiere diesen Zum Wert in Spalte A Zeile 2 und schreibe diesen Wert zurück in Spalte A Zeile 2. Dann das ganze für Zeile 2, 4 usw, Mach das so lange bis keine Werte mehr in Spalte B stehen.
Könnt ihr mir dabei helfen?
Gruß Gerhard

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Wert aus Zelle nehmen, addieren, zurückschreiben
09.12.2019 18:53:19
Gerhard
Kleiner Nachtrag, es hat sich n Fehler eingeschlichen der Satz:
Dann das ganze für Zeile 2, 4 usw, Mach das so lange bis keine Werte mehr in Spalte B stehen.
sollte lauten
Dann das ganze für Zeile 3,4,5 usw, Mach das so lange bis keine Werte mehr in Spalte B stehen.
AW: Wert aus Zelle nehmen, addieren, zurückschreiben
09.12.2019 21:03:43
Werner
Hallo Gerhard,
und warum zeigst du uns dein Makro, mit dem du Zahlen in Spalt B einträgst nicht?
Gruß Werner
AW: Wert aus Zelle nemen, addieren, zurückschreiben
09.12.2019 18:56:42
Hajo_Zi
trage den Code iin den vorhandenen ein.
Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue.Ich baue keine Datei nach.
Sollte die Datei verlinkt werden?

Anzeige
AW: Wert aus Zelle nemen, addieren, zurückschreiben
09.12.2019 21:27:13
Andi
Hallo Gerhard,
hier ein mögliches Makro:
Sub Summe()
Dim XWert1 As Long
Dim XWert2 As Long
Dim YStart As Long
Dim YEnde As Long
XWert1 = 1                                      'Spaltennr. der ersten Spalte mit Werten
XWert2 = 2                                      'Spaltennr. der zweiten Spalte mit Werten
YStart = 1                                      'Zeile, in der die Tabelle startet
YEnde = Cells(YStart, XWert1).End(xlDown).Row   'Zeile, in der die Tabelle endet
For i = YStart To YEnde                            'Schleife von Start bis Ende der Tabelle
Cells(i, XWert1).Value = Cells(i, XWert1).Value + Cells(i, XWert2).Value 'Summenbildung
Next
End Sub

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige