autom. Datum erstellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rene,
im Prinzip würdest du mit ff. xl-Standardformeln ohne VBA auskommen:


B3=TEXT(HEUTE()-WOCHENTAG(HEUTE();2)+1;"TT.MM.")
E3=TEXT(DATWERT(B3&D4)+6;"TT.MM.")
B4=TEXT(DATWERT(B3&D4)+2;"MMM.")
D4=TEXT(HEUTE()-WOCHENTAG(HEUTE())+3;"JJJJ")
F4=TEXT(DATWERT($E3&$D4)+SPALTE(C:C)/3-7;"TT.MM.")
...  X4=TEXT(DATWERT($E3&$D4)+SPALTE(U:U)/3-7;"TT.MM.")

Du müsstest dann nur die ersten 4 Formeln mit ihren Werten überkopieren, damit sie sich in den Folgewochen nicht ändern. Das geht natürlich auch mit Makro wie folgt:


Private Sub Workbook_Open()
Dim i As Integer
If Range("B3") = "" Then
Range("B3").FormulaLocal = "=TEXT(HEUTE()-WOCHENTAG(HEUTE();2)+1;""TT.MM."")"
Range("E3").FormulaLocal = "=TEXT(DATWERT(B3&D4)+6;""TT.MM."")"
Range("B4").FormulaLocal = "=TEXT(DATWERT(B3&D4)+2;""MMM."")"
Range("D4").FormulaLocal = "=TEXT(HEUTE()-WOCHENTAG(HEUTE())+3;""JJJJ"")"
If Range("F4") = "" Then
Range("F4:X4").Select
With Selection
For i = 1 To .Cells.Count Step 3
.Cells(i).FormulaLocal = "=TEXT(DATWERT($E3&$D4)+SPALTE(" & _
Cells(4, i + 2).Address(0, 0) & _
")/3-7;""TT.MM."")"
Next i
End With
End If
Range("B3:E4").Select
With Selection
.Copy
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
Range("A1").Select
End If
End Sub

Die Formeln sind auf den Mittwoch eingestellt. Dessen Monat und Jahr erscheinen vorn.
Gruß Luc :-?

Private Sub Workbook_Open() Dim i As Integer If Range("B3") = "" Then Range("B3").FormulaLocal = "=TEXT(HEUTE()-WOCHENTAG(HEUTE();2)+1;""TT.MM."")" Range("E3").FormulaLocal = "=TEXT(DATWERT(B3&D4)+6;""TT.MM."")" Range("B4").FormulaLocal = "=TEXT(DATWERT(B3&D4)+5;""MMM."")" Range("D4").FormulaLocal = "=TEXT(HEUTE()-WOCHENTAG(HEUTE())+7;""JJJJ"")" If Range("G4") = "" Then Range("G4:Y4").Select With Selection For i = 1 To .Cells.Count Step 3 .Cells(i).FormulaLocal = "=TEXT(DATWERT($E3&$D4)+SPALTE(" & _ Cells(4, i + 2).Address(0, 0) & _ ")/3-7;""TT."")" Next i End With End If Range("B3:E4").Select With Selection .Copy .PasteSpecial Paste:=xlValues End With Application.CutCopyMode = False Range("A1").Select End If End Sub

Hallo Rene,
habe im Programm versehentlich eine falsche Abarbeitungsreihenfolge gewählt. Tausche bitte die entsprechenden Programmzeilen in der Reihenfolge:
Nach Range("B3").FormulaLocal ist erst D4, dann erst E3 und B4 dran, weil sich die Formeln in den beiden letztgenannten auf die beiden erstgenannten beziehen. Außerdem ist es besser, statt If Range("F4") = "" Then If IsEmpty(Range("F4")) Then zu schreiben, wenn diese Zelle als Datum formatiert wurde. Bei Standardformat ist das wohl nicht nötig.
Der PgmZeilentausch müsste eigentlich dein Problem lösen. Das Hochkomma vor einer 2stelligen Jahreszahl ist im anglo-amerikanischen Sprachraum üblich und hängt mit den internationalen Einstellungen von Windows zusammen. Falls du ein englisches Excel verwendest, verlangt .FormulaLocal genau wie .Formula englische Formelschreibweise und fkt deshalb erst bei Klick in die Zelle. In diesem Fall müssten die Formeln entsprechend umgestellt wdn und Local kann entfallen, weil .Formula immer die US-englische Originalschreibweise verlangt, sonst fkt es erst bei "KlickInDieZelle" (umfangreichere Erläuterungen in der Herber-Archivrecherche zugänglich).
Gruß Luc :-?

Private Sub Workbook_Open() Dim i As Integer If Range("B3") = "" Then Range("B3").FormulaLocal = "=TEXT(HEUTE()-WOCHENTAG(HEUTE();2)+1;""TT.MM."")" Range("E3").FormulaLocal = "=TEXT(DATWERT(B3&D4)+6;""TT.MM."")" Range("B4").FormulaLocal = "=TEXT(DATWERT(B3&D4)+7;""MMM."")" Range("D4").Value = Format(Date, "YYYY") If Range("G4") = "" Then Range("G4:Y4").Select With Selection For i = 1 To .Cells.Count Step 3 .Cells(i).FormulaLocal = "=TEXT(DATWERT($E3&$D4)+SPALTE(" & _ Cells(4, i + 2).Address(0, 0) & _ ")/3-7;""TT."")" Next i End With End If Range("B3:E4").Select With Selection .Copy .PasteSpecial Paste:=xlValues End With Application.CutCopyMode = False Range("F8").Select End If End Sub

Beliebteste Forumthreads (12 Monate)

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread