Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife soll Tage zählen und Summe bilden

Schleife soll Tage zählen und Summe bilden
16.01.2009 10:46:00
WolfgangN
Hallo,
ich habe 2 Tabellen, eine für 2008 ist ausgefüllt, die 2. für 2009 wird ständig erweitert.
Jetzt möchte ich in einer Zelle in Tabelle1 den Wert aus Tabelle2 geschrieben haben, der sich so ergibt. Bsp.:
Die Anzahl der Tage in Tabelle1 beträgt 12. Die Summe der Werte dieser Tage beträgt 680. Für die gleiche Anzahl an Tagen aus Tabelle2 soll die Summe in einer Zelle in Tabelle1 automatisch errechnet werden. Da die Jahre mit unterschiedlichen Wochentagen beginnen und die Feiertage unterschiedlich sind, kann ich den Bereich nicht einfach übertragen. Das Makro sollte also in Tabelle2 die Anzahl der Tage abzählen und dann die entsprechende Summe bilden.
Die Tabellen sind natürlich wesentlich umfangreicher als mein Beispiel und bis auf mein Problem auch komplett. Ich möchte deshalb nicht mit Pivot-Tabellen anfangen.
Ich hoffe auf eine Makro-Lösung ohne Pivot.
Vielen Dank und Gruß
Wolfgang
https://www.herber.de/bbs/user/58469.xls

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

Betreff
Datum
Anwender
Anzeige
AW: Schleife soll Tage zählen und Summe bilden
16.01.2009 13:50:00
Chris
Servus,
so:
Option Explicit

Sub t()
Dim lngLetzte As Long, dbSumme As Double, lngAnzahl As Long, i As Long, k As Long, lngLauf As  _
Long
lngLetzte = Cells(Rows.Count, 2).End(xlUp).Row
lngAnzahl = WorksheetFunction.CountIf(Range("C5:H" & lngLetzte), ">=0")
For i = 5 To lngLetzte
For k = 3 To 8
With Sheets("Tabelle2")
If IsNumeric(.Cells(i, k)) Then
dbSumme = dbSumme + .Cells(i, k)
lngLauf = lngLauf + 1
End If
End With
If lngLauf = lngAnzahl Then Exit For
Next k
Next i
MsgBox dbSumme
End Sub


Das Makro in Das Tabellenmodul Tabelle1.
Gruß
Chris

Anzeige
AW: Danke
16.01.2009 14:32:18
WolfgangN
Hallo Chris,
vielen Dank für Dein Makro, alle Tests waren okay.
Gruß
Wolfgang

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige