Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
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