|
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
|