Folgender Code zählt mir die Zeilen für den Druckvorgang.
Gezählt wird ab Zeile 4.
Ist es möglich, den Bereich auf die Zellen A-Q beginnend ab Zeile 4 nach unten
zu editieren?
Option Explicit
Sub countCells()
Dim i&, lastRow As Object, filledCells, counter&
Const START_ROW = 4
With Sheets("Bearbeiten")
Set lastRow = .Cells.Find(What:="*", After:=.Cells(.Rows.Count, 1), LookIn:=xlValues, _
LookAt:= _
_
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
, SearchFormat:=False)
If Not lastRow Is Nothing Then
For i = START_ROW To lastRow.Row
On Error Resume Next
filledCells = .Rows(i).SpecialCells(xlCellTypeConstants)
If Err.Number = 0 Then
counter = counter + 1
End If
Next
End If
End With
Sheets("Drucken").Range("C2") = counter
End Sub
Was müsste am Code noch geändert werden?
Gruß Andi