Option Explicit
Dim rowCount As Long, articleCount As Long, propertyCount As Integer, name As String
Sub Sortfunction()
rowCount = 1
articleCount = 1
propertyCount = 1
Do While Sheets("Test").Cells(rowCount, 1).Value <> "end"
If Cells(rowCount, 1).Value = "Reference number" Then
Do While Cells(rowCount, 3).Value <> ""
If Cells(rowCount, 3).Value = "4" Then
End If
articleCount = articleCount + 1
Loop
articleCount = articleCount + 1
End If
rowCount = rowCount + 1
Loop
Sheets("result").Cells(1, 1).Value = rowCount
Sheets("result").Cells(2, 1).Value = articleCount
End Sub
Ich habe bereits angefangen und mir beiliegenden Code gebastelt, könnte allerdings doch recht dringend Hilfe gebrauchen.
Das hin und her cut and pasten ist weniger das problem als die grundsätzliche struktur der schleifen.
Bitte dringend um Hilfe!
|