ist es mit vba möglich ab spalte 1, zeile 12 alle zeilen abwärts zu zählen, bis eine zeile mit buchstaben "TOL" beginnt? und die anzahl in eine bestimmte zelle schreibt.
bye Michael
Sub zählen()
Dim i As Integer
Cells(1, 12).Select
i = 1
Do Until Left(ActiveCell, 3) = "TOL"
i = i + 1
ActiveCell.Offset(1, 0).Activate
Loop
' Ergebnis wird in einer Meldung ausgegeben
Msxbox "Die Anzahl der Zellen beträgt " & i
End Sub
Gruß
Paul
Columns(12).find(what:="tol", lookin:=xlvalues, lookat:=xlpart).activate
bzw. zum Ermitteln der Zeilenzahl:
msgbox "Zeile: " & Columns(12).find(what:="tol", lookin:=xlvalues, lookat:=xlpart).row
Gruß, Daniel