Aktualisierende Tabelle mit Datumsangabe

[marose67]

Hallo Günter,

nach fast 10 Jahren ohne Forumsarbeit ... mir fiel es gerade wieder ein. Wenn ich jetzt ein Makro schreiben würde ... Datum vergleichen ... für jeden neuen Tag, obwohl die Tabelle nicht geöffnet wurde, eine Zeile einfügen würde, nur damit ein Datum eingefügt wird ... absolut nicht nachvollziehbar. Ich bin aus dem Thema raus.

Lg
Marcus

[FYLE]

Mir ist schon klar was ich möchte, hatte mich nur falsch ausgedrückt.
Es muss auch keine Tabelle sein nur sollen Sie untereinander angeordnet sein und oben ein neues Datum erscheinen.
Hätte auch nicht gedacht, dass es ein Problem ist ob es waagerecht oder senkrecht sein muss, dachte mit einer Formel kann man es machen wie man will.
Habe es mal versucht zu visualisieren.

[schauan]

Hallöchen,

ich versuche mal, den Thread mit einer Lösung abzukürzen Der Code kommt in das Modul von DieseArbeitsmappe.

Code:

Private Sub Workbook_Open()
'Mit dem Blatt Tabelle1
With Sheets("Tabelle1")
  'Wenn in C3 kein aktuelles Datum steht, dann
  If .Range("C3").Value <> Date Then
    'neue Zeile 3 vor bisherige Zeile 3 einfuegen
    .Rows("3:3").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    'in C3 aktuelles Datum eintragen
    .Range("C3").Value = Date
  'Ende Wenn in C3 kein aktuelles Datum steht, dann
  End If
'Mit dem Blatt Tabelle1
End With
End Sub

[FYLE]

Hat geklappt, super vielen vielen dank !