Hallo,
Frage: Warum eine Function?
Offensichtlich willst du ja die letzte belegte Zelle in Spalte A ermitteln bzw. die erste freie Zelle in Spalte A
Frage: Warum eine Schleife?
In deinem Code sind einige Fehler:
du hast: Private Function RowCount() As Integer
besser: Private Function RowCount() As Long
Excel hat nämlich mehr als eine Million Zeilen und da reicht Integer nicht
du hast: Dim c As Integer
besser (Begründung siehe oben): Dim c As Long
du hast: Dim wkrsht As Worksheets
da ist ein s zu viel, richtig wäre Dim wrksht As Worksheet
du hast wrksht = Worksheets("Reparaturaufträge")
richtig wäre: Set wrksht = Worksheets("Reparaturaufträge")
du hast: c = 0
eine Zeile 0 gibt es aber nicht deshalb c = 1
Nochmal die Frage, warum eine Function und keine normale Prozedur in einem Modul? Und warum die letzte belegte Zelle nicht einfach von unten nach oben ermitteln?
Sub letzte_Zeile()
Dim wrksht As Worksheet, RowCount As Long
Set wrksht = Worksheets("Reparaturaufträge")
RowCount = wrksht.Cells(wrksht.Rows.Count, 1).End(xlUp).Row
MsgBox RowCount
End Sub
Gruß Werner
|