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
1504to1508
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
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheet mit Monatsnamen, Datum in jew. Sheet

Sheet mit Monatsnamen, Datum in jew. Sheet
14.07.2016 15:19:59
Dieter(Drummer)
Guten Tag,
ich suche eine VBA Möglichkeit, dass im jeweiligen Sheet, in A3, das Datum mit dem entsprechenden Monat (wie Sheetname, z.b. "Feb" für Monat 2) in A3 steht.
Dort soll dann z.B. im Sheet Feb, in A3 01.02.2016 stehen. Nach diesem Muster in den 12 Monatssheets. Wichtig: Das erste Datum ist in Sheet "Jan" in A3. Dort kann auch 01.01.2017 stehen. Also die Jahreszahl folgt aus Sheet "Jan" Zelle A3.
Beispiel:
Sheet "Jan" - in A3 01.01.2016
Sheet "Feb" - in A3 01.02.2016 usw. bis Sheet "Dez"
Bis jetzt habe es so gemacht, aber da ist das Jahr konstant 2016 und das ist nicht unbedingt so:
  • 
Sub MonateAnpassen()
Sheets("Feb").Range("A3").FormulaR1C1 = "2/1/2016"
Sheets("Mrz").Range("A3").FormulaR1C1 = "3/1/2016"
Sheets("Apr").Range("A3").FormulaR1C1 = "4/1/2016"
Sheets("Mai").Range("A3").FormulaR1C1 = "5/1/2016"
Sheets("Jun").Range("A3").FormulaR1C1 = "6/1/2016"
Sheets("Jul").Range("A3").FormulaR1C1 = "7/1/2016"
Sheets("Aug").Range("A3").FormulaR1C1 = "8/1/2016"
Sheets("Sep").Range("A3").FormulaR1C1 = "9/1/2016"
Sheets("Okt").Range("A3").FormulaR1C1 = "10/1/2016"
Sheets("Nov").Range("A3").FormulaR1C1 = "11/1/2016"
Sheets("Dez").Range("A3").FormulaR1C1 = "12/1/2016"
End Sub

    • Mit der Bitte um Hilfe.
    Gruß, Dieter(Drummer)

    4
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Anders gefragt ...
    14.07.2016 18:16:53
    Dieter(Drummer)
    ...was ist hier falsch? In A3 steht 01.01.2016, und es soll das Datum in A3 um 1 Monat erhöht werden, Es soll also 01.02.2016 dort stehen. Ist das und wie möglich?
    Gruß, Dieter(Drummer)

    AW: 2. Versuch geht nur für ein Blatt ...
    14.07.2016 19:01:42
    Dieter(Drummer)
    ... hier mein 2. Eigenversuch. Leider funktionuert der NUR für ein Sheet ("Feb"). Ich kann nicht feststellen, warum die nachfolgenden nicht die Monatserhöhung bekommen. Evtl. weiß jemand Rat.
    Gruß, Dieter(Drummer)
    Hier mein jetziger Code: 
    Sub Stundenzettel_12er_Kopie()
Application.ScreenUpdating = False
MsgBox ("Es werden 12 Monate nach dem Muster ""Stundenzettel"" angelegt.")
Sheets("Stundenzettel").Activate
Dim Monate(1 To 12) As String
Dim i As Integer
Monate(1) = "Jan"
Monate(2) = "Feb"
Monate(3) = "Mrz"
Monate(4) = "Apr"
Monate(5) = "Mai"
Monate(6) = "Jun"
Monate(7) = "Jul"
Monate(8) = "Aug"
Monate(9) = "Sep"
Monate(10) = "Okt"
Monate(11) = "Nov"
Monate(12) = "Dez"
For i = 1 To 12
Worksheets("Stundenzettel").Copy After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Monate(i)
Next i
Call Spaltenbreite
Call RegisterFarbe
Call Monate_Anpassen 'Monatsanpassung
Application.ScreenUpdating = True
End Sub
Sub Monate_Anpassen()
Sheets("Feb").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day(Cells(7,  _
1)))
Sheets("Apr").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day(Cells( _
7, 1)))
Sheets("Mai").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day( _
Cells(7, 1)))
Sheets("Jun").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day( _
Cells(7, 1)))
Sheets("Jul").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day( _
Cells(7, 1)))
Sheets("Aug").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day( _
Cells(7, 1)))
Sheets("Sep").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day( _
Cells(7, 1)))
Sheets("Okt").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day( _
Cells(7, 1)))
Sheets("Nov").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day(Cells( _
7, 1)))
Sheets("Dez").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day(Cells( _
7, 1)))
End Sub

    Anzeige
    es fehlt der "Mrz" im Modul.... oT
    15.07.2016 12:57:58
    Schieber
    AW: Danke Schieber, das war nicht das Problem ...
    15.07.2016 14:55:25
    Dieter(Drummer)
    ... sondern es fehlte in den jweiligen sheets im Bereich, z. B. von "Month(Cells(7, 1))", die jeweilige Erhöhung der Monatszahl (um 1) vom Januar ausgehend.
    Habe es selbst gefunden und jetzt funktioniert es problemlos. Es geht bestimmt auch kürzer, aber nicht mit meinem Wissen. Der fehlender März war nur ein Kopierfehler von mir. Danke für dein Rückmeldung.
    Gruß, Dieter(Drummer)
    Dies funktioniert jetzt: 
    Sub Monate_Anpassen()
Sheets("Feb").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 1, Day( _
Cells(7, 1)))
Sheets("Mrz").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 2)) + 2, Day( _
Cells(7, 1)))
Sheets("Apr").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 3,  _
Day(Cells(7, 1)))
Sheets("Mai").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 4,  _
Day(Cells(7, 1)))
Sheets("Jun").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 5,  _
Day(Cells(7, 1)))
Sheets("Jul").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 6, _
Day(Cells(7, 1)))
Sheets("Aug").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 7,  _
Day(Cells(7, 1)))
Sheets("Sep").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 8,  _
Day(Cells(7, 1)))
Sheets("Okt").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 9,  _
Day(Cells(7, 1)))
Sheets("Nov").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 10,  _
Day(Cells(7, 1)))
Sheets("Dez").Cells(3, 1) = DateSerial(Year(Cells(7, 1)), Month(Cells(7, 1)) + 11,  _
Day(Cells(7, 1)))
End Sub

    Anzeige

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige