Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1744to1748
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
1744to1748
1744to1748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Donnerstage mit Datum in Tabelle

Alle Donnerstage mit Datum in Tabelle
13.03.2020 11:14:15
Gerhard
Hallo zusammen,
Bitte um VBA Hilfe
Aus einer Jahreszahl sollten jeweils alle Donnerstage mit Datum aus diesem Jahr in eine Tabelle eingetragen werden!
siehe Testmappe
Vielen Dank für Eure Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/135835.xlsm

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Donnerstage mit Datum in Tabelle
13.03.2020 12:13:12
hary
Moin
Muss es VBA sein?



Alle_Do_Tage
 ABCDEF
12020JanuarBemerkungFebruarBemerkungMärz
2      
3 Do 02.01.2020 Do 06.02.2020 Do 05.03.2020
4 Do 09.01.2020 Do 13.02.2020 Do 12.03.2020
5 Do 16.01.2020 Do 20.02.2020 Do 19.03.2020
6 Do 23.01.2020 Do 27.02.2020 Do 26.03.2020
7 Do 30.01.2020    
8      

verwendete Formeln
Zelle Formel Bereich R1C1 für Add In
B3,D3,F3=DATWERT("1."&B1 &$A$1)+5-REST(DATWERT("1."&B1 &$A$1);7)  =DATEVALUE("1."&R[-2]C &R1C1)+5-MOD(DATEVALUE("1."&R[-2]C &R1C1),7)
B4:B7,D4: D7,F4:F7=WENN(MONAT(B3)=MONAT(B3+7);B3+7;"")  =IF(MONTH(R[-1]C)=MONTH(R[-1]C+7),R[-1]C+7,"")

http://excel-inn.de/dateien/vba_beispiele/tabellenanzeige_in_html_addin.zip
http://hajo-excel.de/tools.htm
XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007
Add-In-Version 14.02 einschl 64 Bit

russ hary
Anzeige
VBA
13.03.2020 12:20:31
UweD
Hallo
dann so
Modul1 
Option Explicit 
 
Sub Donnerstage() 
    Dim Sp As Integer, MA As Date, TTag As Date, Z1 As Integer, Zeile As Integer 
    Dim WT As Integer, Jahr As Integer 
     
    WT = 4 'Donnerstag 
    Jahr = Cells(1, 1) 
    Z1 = 3 'erste Zeile 
     
    'Reset 
    Rows(Z1).Resize(5).Clear 
     
    For Sp = 2 To 24 Step 2 
        Zeile = Z1 'Zeile, in die geschrieben wird 
         
        MA = DateSerial(Jahr, Sp / 2, 1) 'Monatsanfang 
         
        If Weekday(MA, vbMonday) <= WT Then 
            TTag = WT - Weekday(MA, vbMonday) + MA 
        Else 
            TTag = 7 - Weekday(MA, vbMonday) + WT + MA 
        End If 
         
        Do Until TTag > DateSerial(Jahr, Month(MA) + 1, 0) 
             
            With Cells(Zeile, Sp) 
                .Value = TTag 
                .NumberFormat = "DDD DD.MM" 
            End With 
             
            TTag = TTag + 7 
            Zeile = Zeile + 1 
         
        Loop 
    Next 
End Sub

LG UweD
Anzeige
AW: VBA
13.03.2020 13:14:59
Gerhard
Hallo UweD
Vielen Dank für Deine schnelle Hilfe
Funktioniert...
Gruß Gerhard
Danke für die Rückmeldung. (owT)
13.03.2020 13:50:18
UweD
AW: VBA
13.03.2020 16:36:41
Günther
Wie schön, dass du dich auch bei hary bedankt hast, der sich schließlich SEINEN Kopf für DEIN Problem zerbrochen hat, um DIR eine Alternative zu liefern. :-((
Merke: Auftragsarbeiten mit definitiven Wünschen wirst du sehr schön beim Betreiber des Forums (Hans) einreichen können.
Gruß
Günther
AW: VBA
13.03.2020 19:15:53
Gerhard
OH Sorry,
Hary auch Dir Vielen Dank für Deinen Lösungsvorschlag der ebenfalls funktioniert..
LG Gerhard

193 Forumthreads zu ähnlichen Themen

Seitenfeld mit Datum in Pivottabelle
Peter

Hallo zusammen,
ich habe folgendes problem mit einer Pivottabelle:
in den Ursprungsdaten stehen u.a. Datumsangaben. Diese sollen in der Pivottabelle im Seitenfeld verwendet werden. Allerdings möchte ich nicht, dass jeder Datumswert dort angezeigt wird sondern eine Zusammenfassung der Mo...
08.10.2008 11:17:51
Thread-ID: 1014965
4 Beiträge
Anzeige
Fortlaufendes 3er Datum herunterziehen in Tabelle
Stefan

Hallo,
ich möchte in einer Exceltabelle das Datum fortlaufend herunterziehen. Allerdings ist es für 3 Schichten. Das heisst in Zelle A1, A2, A3 ist der 01.01.2009 . In Zelle A4, A5, A6 ist der 02.01.2009 usw.
Ist es irgendwie möglich das fortlaufend herunterzuziehen bis zum 31.01.2009...
04.12.2008 11:28:00
Thread-ID: 1030109
6 Beiträge
für jedes Datum eine Tabelle
Alexander

Guten Tag!
da ich neu hier bin erstmal ein freundliches Hallo an alle!
ich beschäftige mich derzeit mit einer Aufgabe und komme einfach nicht weiter, nun hoffe ich, dass man mir hier helfen kann.
Folgende Problemstellung:
Ich habe damit begonnen (und es soll lange fortgeführt w...
04.02.2009 17:20:00
Thread-ID: 1047135
13 Beiträge
Anzeige
Monatstage eines Zeitraums auflisten
Gerhard

Hallo zusammen,
in einer Tabelle möchte ich zu verschiedenen Anfangs- und Enddatums (-tümer?) die Anzahl der relevanten Tage je Monat berechnen. Wer kann mir bitte die Formeln anpassen? Die Lösung für nur einen Zeitraum in eine Zeile habe ich bereits gefunden, aber die Anpassung auf mehrere...
13.04.2009 15:52:33
Thread-ID: 1068474
14 Beiträge
Fortlaufende Integer-Zahl mittels Zeit & Datum?
Dennis

Hallo Forum,
ich benötige für viele kleine Prozesse eine fortlaufende 8-stellige Integer-Zahl. Dazu wollte ich in der Auto_open() das Datum und die Zeit zu Hilfe nehmen, damit sich die Zahl ganz sicher nicht wiederholt und dann bei jedem Prozess, der eine neue ID verlangt, die Zahl um 1 erh...
25.05.2009 10:59:30
Thread-ID: 1077099
11 Beiträge
Word-Tabelle in Excel kopieren - Zahlen => Datum
Wolfgang

Liebe Forumsmitglieder!
Ich möchte gerne eine Word-Tabelle in Excel kopieren. In der Word-Tabelle sind Zahlen mit einer Nachkommastelle mit einem Punkt (nicht Komma) als Dezimalzeichen.
Beim Copy&Paste klappt alles prima, nur das Zahlen, die eine Interpretation als Datum zulassen (z...
27.07.2009 13:25:20
Thread-ID: 1091588
7 Beiträge
Zeitraum Datum von bis in Spalte auslesen
bis

Hallo zusammen,
weis jemand wie ich das Datum einer Spalte ab A6 bis zum letzten Eintrag auslesen kann?
Gruß
Lemmi
18.09.2009 08:56:15
Thread-ID: 1103759
4 Beiträge
Datum in Tabellenfunktionen nur über DATUM() ?
Peterchen

Hallo,
mal eine einfache Frage ;)
In VBA kann ich ein Datum bei Funktionen als #1/1/2010# schreiben.
Im Tabellenblatt bei Funktionen bekomme ich so eine Eingabe nicht hin. Ich kann ein Datum nur direkt in eine Zelle schreiben und mich in der Funktion auf die Zelle beziehen. Oder ich...
20.09.2009 15:35:45
Thread-ID: 1104263
3 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
2
5
12
2
13
10
6
3
2
1
4
3
1
1
14
4
2
1
8
13
4
9
4
14