Hallo zusammen,
habe ein Problem:
Ich habe ein Formular erstellt und gebe die gewünschten Werte ein. In der Spalte sucht es die erste freie Zelle und fügt den Wert ein.
Ich möchte allerdings in der Spalte C eine Formel benutzen, die dann automatisch aus den Werten ein Ergebnis liefert.
Die Formel die ich benutzen möchte:
Wenn in dem Fall die 3 Zeile frei ist.
=WENN(B3="";"";B3/1440)
Je nachdem welche Zelle frei ist.
Der Code bisher:
Private Sub Button_Take_Click()
Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(last, 1).Value = Uebung.Text_Nummer.Value
ActiveSheet.Cells(last, 2).Value = Uebung.Text_Minuten.Value
vielen Dank im Voraus!
|