Clever-Excel-Forum

Seiten: 1 2

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

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.

Hallöchen,

ich versuche mal, den Thread mit einer Lösung abzukürzen Smile

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

Hat geklappt, super vielen vielen dank !

Seiten: 1 2

marose67

FYLE

schauan

FYLE