Hallo zusammen,
ich habe eine Tabelle, welche von Spalte A bis Spalte BF geht.
Nach dem Filtern bestimmter Kriterien möchte ich danach gerne auslesen lassen, wie viele Zeilen hierbei beschrieben sind.
Das Ganze hat immer einwandfrei funktioniert mit dem folgenden Code:
Dim Eingabe As String
Eingabe = InputBox("Tragen Sie die entsprechende Spalte ein.", Spaltenabfrage, "Bsp:AJ")
Dim anzrw, Ende As Long, RW As Object
Windows("Datei1.xlsx").Activate
ActiveSheet.Range("$A$4:$BF$1866").AutoFilter Field:=11, Criteria1:= _
"rot"
ActiveSheet.Range("$A$4:$BF$1866").AutoFilter Field:=1, Criteria1:="offen"
Ende = ActiveSheet.Cells.Find("*", searchdirection:=xlPrevious).Row
For Each RW In ActiveSheet.Range("A5:C" & Ende).SpecialCells(xlCellTypeVisible).Rows
anzrw = anzrw + 1
Next
Windows("Datei1").Activate
ActiveSheet.Range("$A$4:$BE$1866").AutoFilter Field:=11
ActiveSheet.Range("$A$4:$BE$1866").AutoFilter Field:=1
Windows("Datei2").Activate
Sheets("Blatt1").Select
Range(Eingabe & "7").Value = anzrw
Mit diesem Code wurden die beschriebenen Zeilen gezählt und anschließend diese Zahl in eine andere Datei geschrieben.
Nun zu meinem Problem: In Spalte BF habe ich eine Formel hinterlegt, welche ich bis weit unten gezogen habe. Diese gibt den Wert #NV aus, das alle Zellen in den Spalten weiter vorne noch nicht beschrieben sind.
Das Auszählen der Zeilen zählt diese Zeilen nun mit, sodass ich eine viel zu hohe Zahl bekomme.
Kann mir hier jemand helfen und sagen, wie ich es mache, dass es beispielsweise nur die beschriebenen Zeilen in Spalte A zählt?
Vielen Dank bereits im Voraus!