ich Brauche einen Code, der alle Leeren Zeilen zählt von Zeile A17 bis zu der Zeile in der der Inhalt der Zelle Ask ergibt.
Ich versuche das schon etliche Stunden selbst zu lösen, leider vergeblich.
Public Sub aaa()
Dim loLetzte As Long, loZähler As Long, i As Long
With Worksheets("Tabelle1") 'Blattname anpassen
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
If WorksheetFunction.CountIf(.Range(.Cells(1, 17), .Cells(loLetzte, 1)), "ASK") = 0 Then
MsgBox "In Spalte A ist kein Ask vorhanden."
Exit Sub
End If
If loLetzte > 17 Then
For i = 17 To loLetzte
If UCase(.Cells(i, 1)) = "ASK" Then Exit For
If .Cells(i, 1) = "" And UCase(.Cells(i, 1)) "ASK" Then
loZähler = loZähler + 1
End If
Next i
End If
End With
MsgBox loZähler
End Sub
Gruß WernerSub zählen()
zähler = 0
For i = 17 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "" Then zähler = zähler + 1
If Cells(i, 1) = "Ask" Then GoTo ausgabe
Next i
ausgabe:
MsgBox zähler
End Sub
Dieser Code zählt alle leere Zellen von inklusive Zelle A17 bis zum Zelleninhalt "Ask".Sub a()
MsgBox Range(Cells(17, 1), Cells.Find("Ask")).SpecialCells(xlCellTypeBlanks).Count
End Sub
LGSub a()
MsgBox Worksheetfunction.CountBlank(Range(Cells(17, 1), Cells.Find("Ask")))
End Sub
Gruß Daniel