Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
724to728
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
724to728
724to728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

jede zweite zelle addieren VBA

jede zweite zelle addieren VBA
27.01.2006 12:01:13
Henrik
Hallo alle miteinander,
habe mal wieder ein Problemchen.
Möchte in Zelle f6 jede zweite Zelle der gleichen reihe summieren. habe per recorder folgendes aufgezeichnet:
Range("f6").FormulaR1C1 = "=SUM(RC[2],RC[4],rc[6])"
Das funktioniert ja auch, allerdings müßte es für ca. 300 zellen in der Reihe funktionieren.
Es muß doch irgendwie einfacher gehen als jede zweite zelle bis 300 zu markieren?!
Danke schon mal.
Gruß Henrik

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: jede zweite zelle addieren VBA
ransi
hallo
versuchs mal so:
wenn deine daten in spalte a sind
Range("f6").FormulaLocal = "=SUMMENPRODUKT((REST(ZEILE(A1:A300);2)=0)*A1:A300)"
ransi
AW: jede zweite zelle addieren VBA
27.01.2006 12:21:57
Henrik
hallo ransi,
hab ich mich wohl falsch ausgedrückt.
Es geht nur um die Zeile(Row)6. In spalte(column)f,Zeile6 also range("f6") sollen ab range("f8") alle werte in der gleichen Zeile(6) in zweier Schritten addiert werden.
Also: f6 = f8 + f10 + f12 + ... + f300
Hoffe ist verständlich.
danke Dir erstmal.
Henrik
AW: jede zweite zelle addieren VBA
ransi
Hallo henrik
dann so:
Range("f6").FormulaLocal = "=SUMMENPRODUKT((REST(ZEILE(F8:F300);2)=0)*F8:F300)"
ransi
Anzeige
OHOH
27.01.2006 12:50:17
Henrik
hallo ransi,
danke dir wieder. Werde gerade ganz rot! Hab mich wieder falsch ausgedrückt!
formel sollte lauten: f6 = H6 + J6 + L6 + ... + DZ6
Also in der Zeile zählen nicht die Spalte.
Entschuldige vielmals. Habe schon versucht deine Formel auf die Zeile zu beziehen. Bin aber gescheitert. Falls Dir hierzu auch eine Lösung einfällt, wäre ich dir dankbar.
Die Formel von Chris funktioniert einwandfrei. Wäre aber trotzdem an deiner Formel interessiert (wenn du noch Lust hast?).
Gruß Henrik
kein problem
ransi
Hallo henrik
frag die spalte ab.
Range("f6").FormulaLocal = "=SUMMENPRODUKT((REST(spalte(h6:dz6);2)=0)*h6:dz6)"
ransi
Anzeige
AW: jede zweite zelle addieren VBA
27.01.2006 12:18:18
ChrisL
Hi Henrik
Folgender Code in ein Standardmodul:

Function SummeSpezial() As Currency
Dim iSpalte As Integer
For iSpalte = Application.Caller.Column + 2 To Cells(Application.Caller.Row, 256).End(xlToLeft).Column Step 2
SummeSpezial = SummeSpezial + Cells(Application.Caller.Row, iSpalte)
Next iSpalte
End Function

In Zelle F6 die Tabellenfunktion "=SUMMESPEZIAL()".
Gruss
Chris
Funktioniert
27.01.2006 12:32:39
Henrik
Danke Chris,
funktioniert nun genauso wie ich mir das vorgestellt habe.
gruß Henrik
AW: Funktioniert
27.01.2006 13:25:06
ChrisL
Danke für die Rückmeldung. Allerdings so:

Function SummeSpezial() As Currency
Dim iSpalte As Integer
Application.Volatile
For iSpalte = Application.Caller.Column + 2 To Cells(Application.Caller.Row, 256).End(xlToLeft).Column Step 2
SummeSpezial = SummeSpezial + Cells(Application.Caller.Row, iSpalte)
Next iSpalte
End Function

funktioniert es noch ein bischen besser :-)
Gruss
Chris
Anzeige
AW: jede zweite zelle addieren VBA
27.01.2006 13:23:47
ChrisL
Hi Henrik
Folgender Code in ein Standardmodul:

Function SummeSpezial() As Currency
Dim iSpalte As Integer
For iSpalte = Application.Caller.Column + 2 To Cells(Application.Caller.Row, 256).End(xlToLeft).Column Step 2
SummeSpezial = SummeSpezial + Cells(Application.Caller.Row, iSpalte)
Next iSpalte
End Function

In Zelle F6 die Tabellenfunktion "=SUMMESPEZIAL()".
Gruss
Chris

304 Forumthreads zu ähnlichen Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Anzeige
Einfügen mit jeder 2. Zeile als Leerzeile
Ulrich

Hallo zusammen,
wie kann ich einen Bereich einer Tabellen markieren, kopieren und in einem anderen Tabellenblatt über "Inhalte einfügen" und "verknüpfen" automatisch mit jeder zweiten Zeile als Leerzeile versehen, ohne das die Verknüpfung verrutscht?
Danke im Voraus und Grüße,
Ulr...
26.08.2008 14:15:00
Thread-ID: 1004799
4 Beiträge
jede zweite Zelle in Datenreihe
sarina

Hallo!
Ich habe ein Problem ;)
Und zwar würde ich gerne ein Diagramm erstellen, dass als Datenreihe aus meiner vorhandenen Tabelle jede zweite Zelle nimmt, z.B. aus der Spalte A von 1:250 also dann A1, A3, A5,....
Und das ohne eine neue Tabelle zu erstellen.
Geht das? Hat jema...
29.08.2008 09:48:58
Thread-ID: 1005687
5 Beiträge
Anzeige
Maxwert aus jeder zweiten Spalte
Stefan

Hallo,
kennt jemand eine möglichkeit, wie man ohne VBA das Maximum aus den Werten jeder 2. Spalte einer Zeile auslesen kann, ohne die Spalten einzeln aufzuzählen (=max(d2;d4;d6;d8...))?
Gruß Stefan
16.01.2009 14:24:00
Thread-ID: 1040577
5 Beiträge
Jede 2. Zeile einfärben
Frank

Hallo und Guten Abend Zusammen!
Mit folgendem Code
Sub Zeilen_formatieren() Sheets("DATEN").Activate Range("A14:K65536").Select For Zeile = 1 To Selection.Rows.Count If Zeile Mod 2 > 0 Then Selection.Rows(Zeile).Interior.ColorIndex = 15 End If Next Zeile End Sub
kann ich jede z...
17.01.2009 19:20:00
Thread-ID: 1040966
4 Beiträge
jede zweite Zelle in Spalte durch Doppelklick mark
mike49

Hallo,
wie kann man das lösen?
Ich möchte in meinem Spaltenbereich A13:A145 erreichen, dass durch Doppelklick ein "X" in die Zelle gesetzt wird und bei erneutem Doppelklick wieder verschwindet. Dies soll aber nur in jeder zweiten Zelle möglich sein. Also in A13, A15, A17 usw. bis einsch...
02.05.2009 13:05:13
Thread-ID: 1072411
6 Beiträge
Mittelwert jeder 3. Zelle einer Zeile
Dennis

Hallo,
wie kann ich denn in Excel den Mittelwert jeder 3. Zelle einer Zeile berechnen. Also z.B. D1, G1, J1.
Mauelle Eingabe ist nicht möglich, da ich rund 200 Werte erfassen muss.
Viele Dank schonmal!
Grüße, Dennis
08.05.2009 20:21:07
Thread-ID: 1074006
5 Beiträge
Jede 2. Zeile Hintergrund ändern
Blum

Hallo zusammen
Habe da noch eine Frage.
In Excel kann man doch jede 2. Zeile anders darstellen, so dass das lesen von grossen Dateien einfacher wird.
z.B. 1. Zeile weiss, 2. Zeile hellgrün, 1. Zeile weiss, 3 wieder hellgrün usw.
Hemm weiss jemand noch wie das automatisiert geht?...
25.06.2009 17:40:07
Thread-ID: 1084417
6 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
5
3
4
4
4
3
5
4
5
6
4
5
2
3
4
5
3
3
2
2
9
1
12
8