Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
16.10.2025 13:18:36
Übersicht von Excel Konstanten
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe der markierten Felder in Zwischenspeicher ü.

Forumthread: Summe der markierten Felder in Zwischenspeicher ü.

Summe der markierten Felder in Zwischenspeicher ü.
29.01.2008 11:18:00
Peter
Guten Tag
Ich muss des öftern die Summe mehrerer Zellen als Wert in eine Zelle einsetzen.
Ideal wäre, wenn ich einen bestimmten Bereich markiert habe, dass ich diesen z.B. mittels einer bestimmten Tastenkombination (oder mit rechter Maustaste, Kontextmenu) in den Zwischenspeicher übernehmen kann und dann mit Control+V oder Einfügen ... Werte (um das Format nicht zu verändern) in der Zielzelle einfügen kann
Kann mir jemand weiterhelfen?
Danke, Peter

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe der markierten Felder in Zwischenspeiche
29.01.2008 12:06:00
Erich
Hallo Peter,
probier mal 

Sub SummeInZelle()
'  Zwei Bereiche sind markiert (Mehrfachmarkierung).
'  Der erste wird summiert und die Summe in den einzelligen zweiten geschrieben.
If Selection.Areas.Count  2 Then Exit Sub
If Selection.Areas(2).Count > 1 Then Exit Sub
Selection.Areas(2) = Application.Sum(Selection.Areas(1))
Selection.Areas(2).Select
End Sub

Dem Makro kannst du eine Tastenkombi zuweisen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Summe der markierten Felder in Zwischenspeiche
29.01.2008 12:20:38
Erich
Hi Peter,
hier ist nur ein Bereich markiert, die Summe kommt in die Zwischenablage: 

Sub SummeInClipboard()
'  Die Summe des markierten Bereichs wird in die Zwischenablage geschrieben.
Dim MyData As DataObject
Set MyData = New DataObject
MyData.SetText Application.Sum(Selection)
MyData.PutInClipboard
Set MyData = Nothing
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Summe der markierten Felder in Zwischenspeiche
29.01.2008 14:09:31
Peter
Hallo Erich
mit
Dim MyData As DataObject
Set MyData = New DataObject
kan mein Excel nichts anfangen. Ich habe jedoch nachfolgender Code abgeleitet und habe nun die gewünschte Zahl in "zzahl". Wie kriege ich die in den Zwischenspeicher?
Die Zahlen sind in der Regel zu gross, als ich sie mir merken könnte.
Danke, Peter

Sub Summe_in_Clipboard()
With ActiveWorkbook
Dim zzahl As Double
zzahl = Application.Sum(Selection)
End With
End Sub


Anzeige
AW: DataObject
29.01.2008 16:17:16
Erich
Hi Peter,
das habe ich vergessen zu schreiben: DataObject gehört zur Bibliothek MSForms.
VBA kann damit etwas anfangen, wenn du im VBA-Editor im Menü
Extras - Verweise einen Haken vor "Microsoft Forms 2.0 Object Library" (oder ähnlich) setzt.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
Summe der markierten Zellen
29.01.2008 12:23:09
Kl@us-M.
Hi Peter,
die Summe der markierten Zellen wird doch in der Statusleiste angezeigt, sofern Du dort "Summe" markiert hast. Reicht das nicht, wenn Du Dir diesen Wert merkst und in die Zielzelle einträgst ?
Gruss aus dem wilden Hunsrück
________Klaus-Martin________

Anzeige
Summe der markierten Zellen
29.01.2008 14:56:36
Kl@us-M.
Hi Peter,
kopiere folgenden Code (von T.Ramel) in ein Modul und setz den Verweis auf "Forms". Danach wird - sofern in der Statusleiste "Summe" eingestellt ist - die Summe der markierten Zellen in die Zwischenablage geschrieben. Markiere die Zielzelle und drücke STRG + V

Option Explicit
Public Sub CopyStatusFunction()
Dim Obj             As New DataObject
Dim ctl             As CommandBarControl
Dim AWF             As Object
Dim AutoVal         As Double
Dim intFormula      As Integer
Set AWF = Application.WorksheetFunction
intFormula = 0
For Each ctl In Application.CommandBars("AutoCalculate").Controls
intFormula = intFormula + 1
If ctl.State  0 Then
Exit For
End If
Next ctl
Select Case intFormula
Case 2
AutoVal = AWF.Average(Selection.SpecialCells(xlCellTypeVisible))
Case 3
AutoVal = AWF.CountA(Selection.SpecialCells(xlCellTypeVisible))
Case 4
AutoVal = AWF.Count(Selection.SpecialCells(xlCellTypeVisible))
Case 5
AutoVal = AWF.Max(Selection.SpecialCells(xlCellTypeVisible))
Case 6
AutoVal = AWF.Min(Selection.SpecialCells(xlCellTypeVisible))
Case 7
AutoVal = AWF.Sum(Selection.SpecialCells(xlCellTypeVisible))
End Select
Obj.SetText AutoVal
Obj.PutInClipboard
Set Obj = Nothing
End Sub


Gruss aus dem wilden Hunsrück
________Klaus-Martin________

Anzeige
AW: Summe der markierten Zellen
29.01.2008 18:23:00
Peter
Hallo Klaus und Erich
Die Code ist genial; Erich, du hast mir geholfen, die Stelle zu orten, wo der entsprechende Verweis zu setzen ist.
Vielen Dank euch beiden! Das ist eine echte Arbeitserleichterung.
Peter
;

Forumthreads zu verwandten Themen

summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Summe der Zeile ohne ausgeblendete Zellen
Jörg

Hallo Forum,
in meinem Sheet mit vielen Zeilen blende ich bei workbook open einzelne Spalten aus, will aber dennoch zeilenweise die Werte der eingeblendeten (sichtbaren) Zellen summieren.
Kann mir jemand bitte eine VBA-Hilfe geben?
Vielen Dank,
Grüße, Jörg
17.01.2012 22:09:24
Thread-ID: 1246633
5 Beiträge
Aus markierten Bereich Zellen zu einzelnen...
Matze,Matthias

Hallo Zusammen,
benötige VBA hilfe.
Es soll Aus Tabelle"Quelle" ein Bereich markiert werden, woraus dann die Zellen in das Blatt "Ziel" an vorgegebene Zellen per Value übermittelt werden.
Vor dem markieren müsste eine Meldung kommen die zur Auswahl des Bereiches auffordert. Die Ausw...
15.10.2012 19:17:16
Thread-ID: 1282135
5 Beiträge
Summen von fabrigen Zellen
fabrigen

Hallo an alle,
ich habe mal wieder ein Problem und hoffe auf Hilfe. Ich füge ein Beispiel anbei.
https://www.herber.de/bbs/user/87537.xls
Ich hätte gerne mit einem Makro die Möglichkeit die Summen der farbigen Zellen zu
addieren.
Im Moment habe ich zwar drei Farben, jedoch...
04.10.2013 11:18:14
Thread-ID: 1333161
7 Beiträge
Anzeige
Summe aus bestimmten Zellen bilden
Christian

Hallo an alle,
bitte helft mir
ich suche eine Formel, die angefangen bei F1 den Wert jeder 4. Spalte addiert, Ende bei LR1.
Also =SUMME(F1;J1;N1;R1;.....;LR1)
hoffe nur dass es eine Lösung gibt, die nicht ganz soviel Schreibarbeit bedeutet.
Kann mir da jemand helfen?
Da...
21.02.2014 21:45:00
Thread-ID: 1350729
4 Beiträge
Summe aus verschiedenen Zellen
Anderer Werner :-)
Hallo zusammen,
habe eine Beipieldatei für mein Problem hochgeladen!
https://www.herber.de/bbs/user/91113.xlsx
Ich möchte mir gerne in M1 die Summe des Zellbereichs B2:B19 anhand des in L1 angegebenen Datums anzeigen lassen. Es dürfen natürlich nur die Werte summiert werden, für die es...
14.06.2014 13:55:27
Thread-ID: 1365815
16 Beiträge
Zellen auslesen Summen bilden in neuer Zelle
Joe
Hallo Forum,
mein Name ist Joe bin neu hier und meinem Level seht ihr ja.
Zu meinem Problem ( siehe Datei)
1.)
Ich möcte die Spalte A auslesen und alle vorkommenden ObjNr. nur einmal in Spalte C
eintragen (gelbe Zellen). Bsp. A2,A3 in C2 schreiben usw.
2.)
Es soll die Su...
07.01.2015 18:24:13
Thread-ID: 1401283
5 Beiträge
Summe aus versch. Arbeitsblättern/Zellen
Patrick

Hallo zusammen,
Ich hab folgendes Problem,
wie schaffe ich es via VBA In einer Zelle verschiedene Zellen zusammenzufassen (SUMME) in abhängigkeit von den anderen.
Beispielweise hab ich 3 Zellen die ich in eine Zusammenfassen will, dann bilde ich aus allen 3 die Summe das ist klar,
n...
25.07.2002 10:25:47
Thread-ID: 140358
3 Beiträge
Anzeige
Summe von verknüpften Zellen
verknüpften

Hallo,
ich habe in einem Tabellenblatt in den Zellen A5 und K5 jeweils einen verknüpften Wert aus einer anderen Arbeitsmappe. Das wird auch richtig angezeigt.
Wenn ich aber in Zelle C5 die Summe der Zellen A5 und K5 ausrechnen lassen will, erhalte ich entweder nur #Wert oder (falsch) 0,...
19.05.2015 12:45:16
Thread-ID: 1426752
3 Beiträge
VBA - Summe nur von sichtbaren Zellen
sichtbaren

Hallo Forum,
mit folgendem Code errechne ich mir die Summe einer bestimmten Spalte von Werten größer 0:
Range("E1").Value = WorksheetFunction.SumIf(Range(Cells(3, 19), Cells(3, 19).End(xlDown)), ">0")
With Range("E1")
.WrapText = False
.Font.Bold = True
End With
R...
29.05.2015 11:45:22
Thread-ID: 1428320
5 Beiträge
Summe aus leeren Zellen soll #NV ergeben
Nikolaus

Hallo liebe Leute,
ich habe folgendes Problem. Ich möchte das wenn der Summenbereich nur leere Zellen beinhaltet #NV ausgibt. Wenn der Summenbereich jedoch aus mehreren Nullen besteht soll die Zahl 0 ausgegeben werden.
Ich bitte um eure Hilfe.
Lg
Niki
16.07.2015 11:24:44
Thread-ID: 1436718
2 Beiträge
Summe von Zellen mit zwei Zahlen
Zellen

Hallo an Alle,
Ich hänge fest und benötige einen "Anstoß".
In den Zellen einer Spalte stehen immer zwei Zahlen, die durch einen Schrägstrich getrennt sind (siehe unten).
Zur Ermittlung der Summe der jeweils ersten Zahl verwende ich folgenden Befehl:
={SUMME(WERT(LINKS(E13:E22;FI...
14.11.2015 16:05:14
Thread-ID: 1458333
20 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Summe der markierten Zellen in Excel effizient nutzen

Schritt-für-Schritt-Anleitung

Um die Summe aus markierten Zellen in eine Zelle oder den Zwischenspeicher zu übernehmen, kannst du die folgenden Schritte befolgen:

  1. Markiere die Zellen, deren Summe du berechnen möchtest.

  2. Nutze eine der folgenden Methoden:

    • Makro verwenden: Füge den folgenden VBA-Code in ein Modul ein. Dieser Code summiert die markierten Zellen und fügt das Ergebnis in die Zielzelle ein.
    Sub SummeInZelle()
   If Selection.Areas.Count <> 2 Then Exit Sub
   If Selection.Areas(2).Count > 1 Then Exit Sub
   Selection.Areas(2) = Application.Sum(Selection.Areas(1))
   Selection.Areas(2).Select
End Sub
    • Summe in die Zwischenablage: Wenn du die Sum

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige