Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumsliste für bestimmten Zeitraum erstellen

Datumsliste für bestimmten Zeitraum erstellen
13.01.2016 19:33:10
Reimund
Hallo,
ich hätte gerne eine Tabelle, die automatisch mit VBA erstellt wird.
Und zwar eine Spalte in der alle Monatsenddaten für einen Zeitraum
zum Beispiel von 2012 bis 2013 erstellt werden.
Das Gleiche daneben für alle Sonntagsdaten.
Gestartet werden soll bei Änderung des Zeitraumes.
Vielen Dank
Reimund
Muster anbei
https://www.herber.de/bbs/user/102760.xlsx

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumsliste für bestimmten Zeitraum erstellen
13.01.2016 19:58:06
Sepp
Hallo Reimund,
in das Modul der Tabelle.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim varMonth() As Variant, varDay() As Variant
Dim lngStart As Long, lngEnd As Long, lngI As Long, lngN As Long, LngC

On Error GoTo Errorhandler

Application.EnableEvents = False

If Not Intersect(Target, Range("A2:A3")) Is Nothing Then
  If IsNumeric(Range("A2")) And IsNumeric(Range("A3")) Then
    lngStart = Application.Min(Range("A2:A3"))
    lngEnd = Application.Max(Range("A2:A3"))
    
    Redim varMonth(1 To (lngEnd - lngStart + 1) * 12, 1 To 1)
    Redim varDay(1 To UBound(varMonth, 1) * 53, 1 To 1)
    
    For lngI = 1 To UBound(varMonth)
      varMonth(lngI, 1) = DateSerial(lngStart, lngI + 1, 0)
      For lngN = 1 To Day(DateSerial(lngStart, lngI + 1, 0))
        If Weekday(DateSerial(lngStart, lngI, lngN), vbSunday) = 1 Then
          LngC = LngC + 1
          varDay(LngC, 1) = DateSerial(lngStart, lngI, lngN)
        End If
      Next
    Next
    
    Range("B2:C" & Me.Rows.Count) = ""
    Range("B2").Resize(UBound(varDay, 1), 1) = varDay
    Range("C2").Resize(UBound(varMonth, 1), 1) = varMonth
  End If
End If

Errorhandler:
Application.EnableEvents = True
End Sub

Gruß Sepp

Anzeige
AW: Datumsliste für bestimmten Zeitraum erstellen
13.01.2016 20:41:24
Reimund
Sepp YOU ARE THE GREATEST.
ging ja fix. Ich hatte mich daran den ganzen Tag versucht, aber null.
Scheint so zu sein, wie ich es wollte.
Vielen Dank
Reimund
Userbild

AW: Datumsliste für bestimmten Zeitraum erstellen
14.01.2016 16:17:45
Reimund
Hallo Sepp,
Deine Lösung weckt neue Begierlichkeiten.
Wäre es möglich aus einem 2. Tabellenblatt Daten für die Bereiche zu summieren?:
In „Liste“ werden fast jeden Tag eine oder mehrere Zeilen ergänzt.
Nun hätte ich gerne, dass aus einigen Spalten immer die Summe des Intervalls (Monat, Woche) gebildet wird.
Es sind das : „Stück neu“, „AT Mehrzeit“ und Anzahl von Neu in „Pr-Aktion“.
Und um es schlimm zumachen, die 10 häufigsten Ausdrücke in „Fehler1“ und „Fehler2“.
Wie das so ist, gib´ jemanden den Finger, und er nimmt die ganze Hand.
Viele Grüße
Reimund
https://www.herber.de/bbs/user/102780.xlsm

Anzeige
AW: Datumsliste für bestimmten Zeitraum erstellen
14.01.2016 17:14:59
Sepp
Hallo Reimund,
die Summen sind kein Problem,
Tabelle1

 ABCDE
1IntervallWocheAT MehrzeitStück NeuPR-Aktion
2201504.01.1549494
3201611.01.1518224
4 18.01.152031
5 25.01.15031
6 01.02.151172
7 08.02.1512103
8 15.02.15582
9 22.02.15551

Formeln der Tabelle
ZelleFormel
C2=SUMMENPRODUKT((Liste[Datum]>=$B2)*(Liste[Datum]<=$B2+6)*Liste[AT
Mehrzeit])
D2=SUMMENPRODUKT((Liste[Datum]>=$B2)*(Liste[Datum]<=$B2+6)*Liste[Stück
Neu])
E2=SUMMENPRODUKT((Liste[Datum]>=$B2)*(Liste[Datum]<=$B2+6)*(Liste[PR-Aktion]="Neu"))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4.8
Für die 10 häufigsten Fehler habe ich im Moment keine Idee.
Gruß Sepp

Anzeige
AW: Datumsliste für bestimmten Zeitraum erstellen
14.01.2016 18:41:03
Reimund
Danke Sepp
leider kommt bei mir immer in C2 der Text ?
Und dann bitte auch noch so´ne Formel für die Monate.
Danke
Reimund
https://www.herber.de/bbs/user/102784.xlsm

AW: Datumsliste für bestimmten Zeitraum erstellen
14.01.2016 18:59:45
Sepp
Hallo Reimund,
also die Formeln funktionieren! Außer in C2, da hast du ein Leerzeichen vor dem '='.
Und die Formel für den Monat hättest du bestimmt selber hinbekommen.
=SUMMENPRODUKT((MONAT(Liste[Datum])=MONAT($B2))*(JAHR(Liste[Datum])=JAHR($B2))*Liste[AT
Mehrzeit])

Gruß Sepp
Anzeige
AW: Datumsliste für bestimmten Zeitraum erstellen
14.01.2016 19:35:11
Reimund
Nun ja, Sepp
das mit dem Leerzeichen hatte ich auch bemerkt. Hatte es gelöscht- aber wohl doch nicht richtig.
Und mit dem Monat hast Du ja recht, Hätte ich wohl auch hingebogen.
Aber die weist ja, wenn man jemanden kennt, der....
Nochmals vielen Dank
Falls es noch einen Geistesblitz für die 10er Verteilung gibt, lass es mich wissen.
Ich möchte Dich nicht beleidigen, aber würde mich gerne für die tollen Hilfen etwas erkenntlich zeigen.`ne Buddel Whisky/Cognac oder was anderes.
Grüße
Reimund

AW: Datumsliste für bestimmten Zeitraum erstellen
14.01.2016 20:43:49
Sepp
Hallo Reimund,
danke für das Angebot, ein guter Schluck Whisky ab und an, ist schon was Feines, aber spende ggf. das Geld lieber der Kinderkrebshilfe!
Bis dann,
Gruß Sepp

Anzeige

85 Forumthreads zu ähnlichen Themen

Word-Serienbrief mit versch. Daten aus Excel
Stephan

Hallo zusammen,
habe folgendes Problem: Ich möchte die Nebenkostenabrechnungen für Mieter als Serienbrief erstellen. Die Daten hierfür sind allerdings in verschiedenen Excell-Dateien zu suchen.
Beispiel: Ich habe ein Objekt 1 ("O1"), 30 Mieter. In der Excel-Datei befinden sich die Gesam...
18.06.2009 14:54:26
Thread-ID: 1082615
4 Beiträge
Anzeige
Einfügen in neuem Tabellenblatt
Space

Hallo,
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf Outlook funktioniert wunderbar. Die Werte die er dort heraus bekommt trägt er aber...
19.01.2010 14:06:41
Thread-ID: 1131048
7 Beiträge
Einfügen in neuem Tabellenblatt
Space

Hallo, leider war mein letzter Beitrag schon wieder zu ... hier nocheinmal die Problematik:
ich habe folgendes Problem. Über einen Button auf dem Tabellenblatt1 will ich das Tabellenblatt 3 (Outlook Kontakte) öffnen und die Outlook entnommenen Kontakte dort eintragen lassen. Der Zugriff auf...
19.01.2010 14:59:16
Thread-ID: 1131070
2 Beiträge
Anzeige
Tool um Tabellenausschnitt in Beitrag einfügen
Stefan

Hallo,
ich habe hier schon versucht einen Ausschnitt aus einer Tabelle einzufügen, weil es mir zur Erklärung meines Problems genauso effizient erschien wie eine Arbeitsmappe hochzuladen. Das hat nicht so geklappt wie ich mir das vorstellte. Jetzt habe ich gesehen, daß Mitarbeiter hier solch...
25.02.2011 11:40:53
Thread-ID: 1202928
5 Beiträge
Eine Tabelle in Code einfügen
David

Hallo,
ich hab dieses Problem hier vor kurzem schon gepostet, aber leider keine Antwort bekommen die funktioniert hat. In dem untenstehenden Code soll eine weitere tabelle "all_data_alt" hinzugefügt werden.
Diese Tabelle soll genauso wie die jetzige Tabelle "all_data_neu" durch das Makr...
11.03.2011 13:47:21
Thread-ID: 1205313
3 Beiträge
Bereich aus Tabellenblat in neue Datei einfügen
Werner

Hallo Excelfreunde
könnt Ihr helfen.Ich habe hier einen Code von Beate Schmitz Geschrieben am: 03.10.2008 23:32:05
1)Der Code kopiert jedoch das Gesamte Blatt und nicht nur den Bereich A1:G48.
2)Wenn ich 'Columns("H:T").Delete aktiviere löscht er die Spalten im Orginalblatt und nich...
29.05.2011 21:14:34
Thread-ID: 1216611
3 Beiträge
Probleme beim Einfügen von Zahlen in meine Tabelle
Zahlen

Hallo alle zusammen,
ich hoffe ihr könnt mir helfen. Ich hoffe es macht nicht allzuviel Mühe.
ich möchte gerne Inhalt einer Tabelle auf einer Internetseite in eine Excel-Tabelle kopieren, mit dem Ziel die Tabelle anders zu sortieren als im Internet dargestellt.
In Spalte B stehen Za...
24.06.2011 19:13:48
Thread-ID: 1219568
3 Beiträge
Tabelle kopieren und in andere Datei einfügen
VBAmateur

Hallo an alle,
nachdem ich mich hier schon mehrfach mit Code bedient habe, möchte ich erstmal allen danken die sich die Mühe machen für "Gottes Lohn" anderen zu helfen.
Für die Lösung meines aktuellen Problems konnte ich leider nicht das richtige finden. Vielleicht können mir die Profis...
11.11.2011 21:33:05
Thread-ID: 1237564
8 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
4
6
1
3
4
2
2
2
7
1
2
2
1
4
1
3
1
4
4
3
1
1
1
27