Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Dim intFreienBereich As Long
intFreienBereich = getFirstEmptyRow(Worksheets("Rechnung"), "A19:A36")
With Worksheets("Rechnung")
'Wenn A der Zeile davor eine Zahl ist, dann Die Zahl + 1. Ansonsten 1
.Cells(intFreienBereich, 1).Value = Iif(IsNumeric(.Cells(intFreienBereich -1 , 1).Value), .Cells(intFreienBereich -1 , 1).Value +1, 1)
.Cells(intFreienBereich, 2).Value = Me.txtEinsatz.Value
.Cells(intFreienBereich, 3) = Me.txtMenge.Value
.Cells(intFreienBereich, 4) = CCur(Me.txtKosten.Value)
End With
End Sub