Hallo Zusammen;

ich habe ein ganz einfaches Problem und komme nicht weiter.

Ich schreibe über ein Formular bestimte werte in eine Tabelle.


Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = Me.Konto.Value
Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Value = Me.buchung.Value
Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).Value = Me.datum.Value
Cells(Rows.Count, 1).End(xlUp).Offset(0, 3).Value = ???
Cells(Rows.Count, 1).End(xlUp).Offset(0, 4).FormulaLocal = Me.betrag.Value
Cells(Rows.Count, 1).End(xlUp).Offset(0, 5).Value = Me.verwendung.Value
Cells(Rows.Count, 1).End(xlUp).Offset(0, 6).Value = Me.zweck.Value



In die Zelle "Cells(Rows.Count, 1).End(xlUp).Offset(0, 3).Value" soll nun der Monat aus dem Datum in der Zelle "Cells(Rows.Count, 1).End(xlUp).Offset(0, 3).Value" errechnet werden. Es soll nur der berechnete Wert und nicht die Formel in die Zelle geschrieben werden. Also zum Datum 15.10.23 würde dann einfach die "10" da stehen.

Wie kann ich einen relativen Zellbezug in die Formal Monat() eingeben?

Die nachfolgende Schreibweise würde funktionieren.

Month(Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).Value)

Mich interessiert aber, wie ich in so einem Beispiel auf einen relativen Zellbezug verweisen kann!

Ich danke im Voraus für Eure Hilfe..

Viele Grüße

Jan