Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summenformel per VBA erzeugen

Summenformel per VBA erzeugen
03.01.2022 11:39:22
Andre
Hallo VBA-Experten,
angenommen ich habe einen Kalender wie in meiner Beispieldatei [ https://www.herber.de/bbs/user/150106.xlsx ], wo mehrere Leute täglich Zeiten eintragen: Wäre es mit VBA möglich über ein Feld eine Datumsspanne (Bsp. 06.01. - 12.01.) einzugeben und VBA summiert mir dann die eingetragenen Zeiten in dieser Zeitspanne?
Ich würde basierend auf diesem Prinzip gerne mehrere Summenformeln erstellen lassen. Beispielsweise mal nur die Summe der Stunden von einer Person in einem Zeitraum, dann die Summe der Stunden aller Personen in diesem Zeitraum usw..
Meine Idee war per VBA die Zeile wo das Datum steht nach den gewünschten Daten abzusuchen und dann in die passenden Zeilen mit den Stunden zu springen und diese aufzusummieren. So richtig zum laufen bekomme ich da allerdings leider nichts. Kann jemand Hilfe leisten, oder hat sogar eine andere funktionierende Idee?
Ich bin über jeden Tipp oder Code dankbar ! :)
Viele Grüße,
Andre

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

Betreff
Datum
Anwender
Anzeige
AW: dazu bräuchte es kein VBA...
03.01.2022 13:06:55
neopa
Hallo Andre,
... das könnte man einfach mit SUMMEWENNS()-Formeln ermitteln:
Für Deine drei Beispiel mit zwei Formeln (E8 nach unten kopieren):
Arbeitsblatt mit dem Namen 'Tabelle1'
 ABCDE
706.01.202212.01.2022MA1 6
8KW1KW2  32
9KW1KW2MA1 13

ZelleFormel
E7=SUMMEWENNS(3:3;1:1;"&gt="&A7;1:1;"&lt="&B7;2:2;C7)
E8=SUMMEWENNS($3:$3;$1:$1;"="&"KW*";$2:$2;WENN((C8="")+(C8="*");"MA*";C8))
E9=SUMMEWENNS($3:$3;$1:$1;"="&"KW*";$2:$2;WENN((C9="")+(C9="*");"MA*";C9))
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Gruß Werner
.. , - ...
Anzeige
AW: Summenformel per VBA erzeugen
03.01.2022 13:07:33
ChrisL
Hi
z.B.

Sub t()
Dim lS As Long, lZ As Long
Dim i As Long
With ActiveSheet
lS = .Cells(1, Columns.Count).End(xlToLeft).Column
lZ = .Cells(Rows.Count, 3).End(xlUp).Row
For i = 1 To lS
If Left(.Cells(1, i), 2) = "KW" Then
If .Cells(2, i) = "Gesamt" Then
.Range(.Cells(3, i), .Cells(lZ, i)).Formula = "=SUMIF(" & .Range(.Cells(1, i + 1), .Cells(1, lS)).Address(1, 0) & "," & .Cells(1, i).Address(1, 0) & "," & .Range(.Cells(3, i + 1), .Cells(3, lS)).Address(0, 0) & ")"
Else
.Range(.Cells(3, i), .Cells(lZ, i)).Formula = "=SUM(" & .Range(.Cells(3, i + 1), .Cells(3, i + 5)).Address(0, 0) & ")"
End If
End If
Next i
End With
End Sub
cu
Chris
Anzeige

167 Forumthreads zu ähnlichen Themen

Summenformel Zellbezüge markieren
Christian

Hi Leute,
heute möchte ich eine Frage stellen die mich schon eine Zeit lang beschäftigt, für die ich aber leider selber noch keine Antwort gefunden habe.
Ich habe ein Registerblatt in dem einige "Summen-Formeln" stehen, die auf Zellbeüge in anderen Registerblättern (alle in der selben A...
08.09.2008 08:38:00
Thread-ID: 1008042
6 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Summenformel ändert sich beim Löschen
Manu

Hallo,
ich will von Zeile 10 die ganze Spalte aufsummieren. bis Zeile 9 sind die Zeilen gesperrt.
Meine Formel lautet: =Summe(A10:A65000)
Problem nun, wenn ich in diesem Bereich eine Zeile lösche wird aus 65000 - 64999. Gibts da was, wie man das verhindern kann und es bei 65000 ble...
06.01.2009 15:26:00
Thread-ID: 1037256
9 Beiträge
Anzeige
Makro mit Ordnerfunktion und Summenformel
joop

Hallo Liebe VBA Profis,
Ich hätte hier ein Excel Problem, welches wahrscheinlich auch schon öfter besprochen wurde, leider finde ich dazu nichts. Ich bin also auch für links super dankbar.!!!
Sachverhalt:
Gegeben ist ein Datensatz welcher durch eine Abteilungskennziffer in der erste...
10.06.2009 10:27:21
Thread-ID: 1080368
6 Beiträge
Dynamsiche Summenformel
wolfman

Hallo und einen schönen guten Abend!
Habe folgendes Problem:
Ich möchte in einer Zeile Zellen addieren, z.B. Summe(a10:a15). Dabei kenne ich den Namen der letzen Zelle (A15), die 1.Zelle (a10) soll errechnet werden durch eine Variable ( also hier 5 Spalten zurück)
Gibt es dafür ein...
05.10.2009 20:45:13
Thread-ID: 1107343
7 Beiträge
Summenformel auf VBA umschreiben
Martin

Hallo,
folgende Formel möchte ich gerne für VBA schreiben:
=SUMMENPRODUKT((Geschlecht=A2)*(Endzeit<B2))+1
So geht es mit VBA:
MsgBox [SumProduct((Geschlecht = A2) * (Endzeit MsgBox Evaluate("SumProduct((Geschlecht = A2) * (Endzeit ("Geschlecht" und "Endzeit" sind benannte...
07.10.2009 19:33:12
Thread-ID: 1107979
11 Beiträge
SUMMENFORMEL mit VBA einfügen
Peter

Guten Tag
Ich möchte mit VBA eine Summenformel einfügen.
Selektiert ist irgend eine Zelle in der Spalte H (z.B. H35).
Nun möchte ich in Zelle H35 eine Summenformel einfügen, die den Bereich von H2 bis H34 berücksichtigt.
Wenn H100 selektiert ist, soll die Summenformel H2 bis H99...
30.12.2009 10:14:36
Thread-ID: 1126356
6 Beiträge
bei Zeile einfügen per VBA Summenformel anpassen
Klaus

wie kann ich erreichen, dass eine Summenformel im Tabellenblatt z.B. Zelle A1: '=Summe(A2:A10)' nach dem einfügen einer Zeile nach der 10ten Zeile sich in '=Summe(A2:A11)' ändert!
Für den Fall, dass die Summe unter der Liste steht hab ich hier im Forum mal eine geniale Lösung gelesen:=SUMME(...
12.04.2002 17:43:41
Thread-ID: 112908
11 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
5
4
6
8
5
5
6
10
5
10
2
4
1
5
4
2
8
14
5
2
1
3
2
6
5