ich habe einen Code welche mir die Zeilen zählt...
'Anzahl Jahre zählen und ablegen
Dim AnzahlJahre As Integer
With Sheets("Einstellungen")
AnzahlJahre = Sheets("TabStromEG").Range("E1").CurrentRegion.Rows.Count - 2 '(-2 wegen Row.Source)
.Range("B12").Value = AnzahlJahre
.Range("B11").Value = AnzahlJahre
.Range("C11").Value = AnzahlJahre
End With
Nun möchte ich aber das er mir nur zählt wenn in Spalte ab E1 auch ein Wert enthalten ist, wenn kein Wert in der Zelle bei Spalte E diese Zeile nicht mitzählen bis zur letzten Zeile.Wie muss der Code umgebaut werden?