zeilen zählen code
15.07.2002 22:16:12
holger
gruss holger
Private Sub CommandButton1_Click()
Dim reihe As Integer
zaehler = 0
reihe = 0
For Each w In Workbooks
If w.Name <> ThisWorkbook.Name Then
Worksheets(1).Activate
Do
reihe = reihe + 1
If Worksheets(1).Cells(reihe, 1).Value <> "" Then
zaehler = zaehler + 1
End If
Loop Until reihe = 5
reihe = 0
End If
Next w
MsgBox prompt:=zaehler, Title:="Reihen"
End Sub