Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
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
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe jeder zweiten Spalte

Summe jeder zweiten Spalte
21.05.2021 19:18:59
Lorenz
Hallo, guten Abend
Mit folgendem Code wird die Summe des markierten Bereiches errechnet (funktioniert auch)
Dim strSumme As String, strBereich As String
strBereich = Selection.Address
strSumme = WorksheetFunction.Sum(wksStunden.Range(strBereich)).
debug.print strSumme
Ist es möglich nur jede zweite Spalte im markierten Bereich zu summieren? Wenn ja, wie?
Gruß
Lorenz

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

Betreff
Datum
Anwender
Anzeige
AW: Summe jeder zweiten Spalte
21.05.2021 19:50:10
Hajo:Zi
Hallo Lorenz,

Option Explicit
Sub Summe()
Dim RaZelle As Range
Dim DbSumme As Double
Dim LoI As Long
For Each RaZelle In Range("strBereich")
If LoI Mod 2 = 0 Then
DbSumme = DbSumme + RaZelle
End If
LoI = LoI + 1
Next RaZelle
msgbo DbSumme
End Sub
GrußformelHomepage
AW: Summe jeder zweiten Spalte
22.05.2021 10:09:14
Lorenz
Hallo Hajo
Vielen Dank für den Tipp. Funktioniert bei mir leider nicht.
Vermutliche Ursache ist wahrscheinlich die Verwendung des Codes. Ich verarbeite diesen aus einer UF heraus (was ich aber noch testen werde wo bei mir der Hund begraben ist. Vorerst habe ich Gerd´s Tipp verwendet.
Danke nochmal & Grüße
Lorenz
Anzeige
AW: Summe jeder zweiten Spalte
22.05.2021 20:07:21
Hajo:Zi
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?
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/showthread.php?t=322895
ändern.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.
http://www.excel-ist-sexy.de/bilder-statt-datei/
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Das ist nur meine Meinung zu dem Thema.Gruß Hajo
Anzeige
AW: Summe jeder zweiten Spalte
21.05.2021 20:16:38
GerdL
Hallo Lorenz!

Sub Unit()
Dim rngCol As Range, dblSum As Double, L As Long
For Each rngCol In Selection.Columns
L = L + 1
If L Mod 2 = 0 Then dblSum = dblSum + WorksheetFunction.Sum(rngCol)
Next Col
MsgBox dblSum
End Sub
Gruß Gerd
AW: Summe jeder zweiten Spalte
22.05.2021 10:02:47
Lorenz
Hallo Gerd
Habe nach Anpassung (Next Col zu Next rngCol) deinen Tipp verwendet.
Copy - Paste - funktioniert (perfekt)
Danke & Grüße
Lorenz
AW: Summe jeder zweiten Spalte, Zusatz
22.05.2021 12:37:12
Lorenz
Hallo Gerd
Ist es unverschämt von mir dich um einen "Zusatz" zu deinem funktionierenden Code zu bitten?
Wie müsste dein Code ausschauen, wenn die Markierung in Tabelle1 stattfindet, die Summenbildung aber aus TabelleX.
Grüße
Lorenz
Anzeige
AW: Summe jeder zweiten Spalte, Zusatz
22.05.2021 13:09:48
GerdL
Hallo Lorenz,
Gruß an Ralf. :-)

Sub Unit()
Dim rngCol As Range, dblSum As Double, L As Long
If Not TypeOf Selection Is Range Then Exit Sub
For Each rngCol In Selection.Columns
L = L + 1
If L Mod 2 = 0 Then dblSum = dblSum + WorksheetFunction.Sum(Worksheets("TabelleX").Range(rngCol.Address))
Next rngCol
MsgBox dblSum
End Sub
Gruß Gerd
AW: Summe jeder zweiten Spalte, Zusatz
22.05.2021 14:05:01
Lorenz
Hallo Gerd
Vielen lieben Dank an dich.
Funktioniert "wunschgemäß" .
Nochmals D A N K E & Grüße Lorenz
Viele Anmerkungen dazu
22.05.2021 08:15:27
RPP63
Moin!
Die bisherigen Lösungen berücksichtigen folgendes nicht:
1. Ist überhaupt ein Range selektiert?
Dies prüft man mit If TypeName(Selection) = "Range"
2. Handelt es sich um eine Mehrfach-Markierung?
Dann muss man durch die .Areas schleifen.
3. Warum überhaupt ein Makro?
In der Statusleiste wird Dir automatisch die Summe der Zellen der Markierung angezeigt!
(bei mir auch Mittelwert, Anzahl, Anzahl2, Min und Max)
Gruß Ralf
Anzeige

310 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