Forumbeitrag
Excel-Version des Fragestellers:
365 Business
Erfahrungslevel des Fragestellers:
Excel gut - VBA nein
Kuwer
27.02.2025 21:34:47
AW: VBA LeereZeilenZählen
Hallo Oliver,
folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:
Gruß, Uwe
folgender Code kommt in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes:
Private Sub Worksheet_Calculate()
Dim lngCalculation As Long
Dim rngLZBlock As Range
With Range(Cells(14, 1), Cells(Rows.Count, 1).End(xlUp))
If Application.CountBlank(.Cells) Then
On Error Resume Next
lngCalculation = Application.Calculation
Application.Calculation = xlCalculationManual
For Each rngLZBlock In .SpecialCells(xlCellTypeBlanks).Areas
With rngLZBlock
.Cells(1).Offset(-1, 1).Value = .Rows.Count
End With
Next rngLZBlock
Application.Calculation = lngCalculation
On Error GoTo 0
End If
End With
End SubGruß, Uwe
Als Antwort auf diesen Beitrag
Oliver Wienzek
27.02.2025 08:31:13
AW: VBA LeereZeilenZählen
Hallo Uwe,
ich finde diese Variante sehr elegant, weil ich dadurch die nicht ausgefüllten Zeilen in der Auswertungsspalte weiter nutzen kann. Vielen Dank, nochmal!
Gibt es für das Makro eine Möglichkeit, welche mir erlaubt es immer wieder zu aktualisieren, wenn ich das Blatt neu berechne?
LG
ich finde diese Variante sehr elegant, weil ich dadurch die nicht ausgefüllten Zeilen in der Auswertungsspalte weiter nutzen kann. Vielen Dank, nochmal!
Gibt es für das Makro eine Möglichkeit, welche mir erlaubt es immer wieder zu aktualisieren, wenn ich das Blatt neu berechne?
LG
Folgenachrichten
Antwort auf Beitrag erstellen