Also wenn ich das richtig verstanden habe, lässt du an dieser Stelle die Lines von unten (1048576) bis nach oben schauen bis der letzte Eintrag die Zelle 22 erreicht hat.
Richtig?
Function getLineFilled(wks As Excel.Worksheet, Line As enmLine) As Boolean
Select Case Line
Case enmLine.Links
getLineFilled = Application.CountBlank(wks.Range("C3:C1048576")) = (1048576 - 22)
Case enmLine.Mitte
getLineFilled = Application.CountBlank(wks.Range("E3:E1048576")) = (1048576 - 22)
Case enmLine.Rechts
getLineFilled = Application.CountBlank(wks.Range("G3:G1048576")) = (1048576 - 22)
End Select
End Function
Frage: gibt es einen Grund dies nicht von oben zu machen? und dabei die Vollen Zellen zu zählen?
Du siehst ich versuche es zu Verstehen.
Wie gesagt wenn du nicht möchtest ist as OK.
Wenn ich darf würde ich weiter Fragen.
Gruß Bernd
|