Verständnisfrage Schleife
07.09.2007 10:05:00
laxer
könnt ihr mir helfen folgenden Code zu verstehen?
startzeile = 0
i = 0
Public Const DATENSPALTE_LOESCHEN As Integer = 36
Public Const STARTSPALTE As Integer = 3
Public Const DATENZEILE As Integer = 3
For i = 1 To 1000
If Len(Cells(i, DATENSPALTE_LOESCHEN).Text) > 0 Then
If Cells(i, DATENSPALTE_LOESCHEN).Value = 1 Then startzeile = i
If Cells(i, DATENSPALTE_LOESCHEN).Value = 0 Then Range(Cells(startzeile, STARTSPALTE) _
, Cells(i - 1, STARTSPALTE + 30)).ClearContents
End If
Next
Nach meinem Verständnis prüfe ich die Spalte 36 von Zeile 1 bis 1000 ob sich darin ein Wert befindet und wenn ja, dann lösche ich die Zeile von Spalte 3 bis 33.
Aber irgendwie komme ich nicht mit der Prüfung Len() und der zweiten und dritten If-Prüfung hinterher..
Danke für eure Erklärung!