Hallo liebe Gemeinde,

ich habe folgende Frage…

Derzeit versuche ich einen commend button mit einer Funktion zu belegen.

Ich habe zwei buttons.

Der erste Button fügt unterhalb der aktivierten Zelle eine Zeile hinzu Hier wünsche ich mir aber eher einen Befehl der immer ganz unten eine Zeile hinzufügt.

Private Sub CommandButton1_Click()

Rows(ActiveCell.Row + 1).Insert Shift:=xlDown

End Sub

Jetzt soll bei drücken des Buttons aber noch das heutige Datum in der neu erstellten Zeile  immer in  Spalte F geschrieben werden. Die erste Spalte ist nummeriert und dort soll dann auch noch immer die darauffolgende Zahl, die noch nicht belegt ist, eingetragen werden.

Der zweite Button fügt eine neue Zeile unterhalb der aktivierten hinzu, was auch so gwollt ist. Nur soll das aktuelle Datum in Spalte H eingetragen werden und die Zahl in der ersten Spalte den Wert der vorherigen annehmen soll. Also bis dato auch nur dieser Befehl

Private Sub CommandButton2_Click()

Rows(ActiveCell.Row + 1).Insert Shift:=xlDown

End Sub

Ich hoffe, dass ihr mir da weiterhelfen könnt...

Viele Grüße,

Verzweifelter_P