Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1300to1304
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
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zwei Bereiche mit VBA addieren

zwei Bereiche mit VBA addieren
01.03.2013 11:32:08
Peter
Guten Tag
Ich habe in einer Arbeitsmappe zwei in VBA defnierte Bereiche, rAktuell und rTemp.
rAktuell bezieht sich auf TabBezeichnung!G6:g40
rTemp bezieht sich auf TabBezeichnung!H6:H40
in beiden bereichen sind in einigen Zellen Zahlen enthalten, andere sind leer.
Nun möchte ich die einzelnen Zeilenwerte pro Zeile addieren und das Resultat in Range rAktuell ausweisen.
Wenn beispielsweise in G6 10 und in H6 3 steht, sollte anschliessend in G6 13 stehen
Kann ich beispielsweise je alle Werte der beiden Bereiche in eine Variable schreiben und anschliessend die Summe pro Zeile wieder in den Bereich rAktuell zurückschreiben?
Gruss, Peter

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

Betreff
Datum
Anwender
Anzeige
AW: zwei Bereiche mit VBA addieren
01.03.2013 12:16:42
Ralf
Hallo Peter,
da gibt es viele Wege.
händich geht das über Bereich H markieren
strg+c
Bereich G markieren
strg+alt+v
addieren auswählen
ok
das gleiche funktuioniert auch im vba
durch kannst auch eine Schleife bauen:
for each zelle in range(cells(6,7),cells(40,7))
zelle = zelle+zelle.offset(,1)
next
Gruß Ralf

zwei Bereiche mit VBA addieren
01.03.2013 12:38:20
Erich
Hi Peter,
das würde ich so machen: 

Sub Addiere()
Dim arrA, arrT, ii As Long
arrA = Range("rAktuell").Value
arrT = Range("rTemp").Value
For ii = 1 To UBound(arrA)
arrA(ii, 1) = arrA(ii, 1) + arrT(ii, 1)
Next ii
Range("rAktuell").Value = arrA
End Sub
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige
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
2
3
5