Guten Tag,
wenn ich meinen Code ausführer, dann erhalte ich den Fehler "Fehler beim Kompilieren", leider finde ich nicht den Fehler und bitte um hilfe.
Private Function RowCount() As Integer
Dim wrksht As Worksheets
wrksht = Worksheets("Reparaturaufträge")
Dim c As Integer
c = 0
While Not IsEmpty(wrksht.Cells(c, 1).Value)
c = c + 1
Wend
RowCount = c
End Function
|