Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tage auflisten

Tage auflisten
29.06.2007 15:58:00
Adrian1977
Hallo zusammen,
kann mir jemand beim folgenden Problem helfen:
ich möchte als Input ein Anfangs- und ein Enddatum eingeben können. Desweiten wird eine Matrix mit Feiertagen hinterlegt.
Als Output sollen alle Tage - außer Sonntag und den Feiertagen - in einer Liste erscheinen, die zwischen dem Anfangs- und Enddatum liegen.
Bsp.:
Anfangsdatum: 26.04.2007
Enddatum: 04.05.2007
In einer Matrix steht der 01.05.2007 als Feiertag
Gewünschtes Ergebnis:
26.04.2007
27.04.2007
28.04.2007
30.04.2007
02.05.2007
03.05.2007
04.05.2007
Danke im Voraus!
Grüße
Adrian

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

Betreff
Datum
Anwender
Anzeige
AW: Tage auflisten
30.06.2007 02:20:11
fcs
Hallo Adrian,
hier ein Beispiel. Die Tabellenbereiche und Zelladressen muss du an deine Bedürfnisse anpassen. Das Makro setzt voraus, das die Feiertage als vollständiges Datum hinterlegt sind.
Gruß
Franz 

Sub Tage_eintragen()
Dim Tag1 As Date, Tag2 As Date, Tag As Date, rngFeiertage As Range, rngZelle As Range
Dim zeile&, bFeiertag As Boolean, Zelle As Range, wks As Worksheet
Set wks = ActiveSheet
Set rngFeiertage = wks.Range("E2:E10")
Set rngZelle = wks.Cells(5, 1) 'Startzelle für das Eintragen der Datum
Tag1 = wks.Cells(2, 2) 'Zelle B2 mit Startdatum
Tag2 = wks.Cells(3, 2) 'Zelle B3 mit Enddatum
For Tag = Tag1 To Tag2 Step 1
bFeiertag = False
For Each Zelle In rngFeiertage
If Zelle.Value = Tag Then bFeiertag = True: Exit For
Next
If bFeiertag = False And WeekDay(Tag)  vbSunday Then
rngZelle.Offset(zeile, 0).Value = Tag
zeile = zeile + 1
End If
Next Tag
End Sub


Anzeige
AW: Tage auflisten
02.07.2007 10:13:39
Adrian1977
Hallo Franz,
funktioniert einwandfrei. Eine sehr schöne Lösung!:-)
Verstehe zwar die Logik, in Programmierzeilen hätte ich das niemals "übersetzen" können.
Vielen Dank!
Gruß
Adrian

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige