AW: Geänderte Bedingungen
15.09.2008 20:41:28
Erich
Hi Hugo,
das könnte klappen:
Option Explicit
Sub Anford1()
Dim lngZ As Long, zz As Long, bytL As Byte
lngZ = Cells(Rows.Count, 24).End(xlUp).Row
Cells(2, 27).Resize(lngZ - 1, 2) = 0
For zz = 2 To lngZ
If Cells(zz, 24) Then
If bytL = 2 Then Cells(zz, 27) = 1
bytL = 1
ElseIf Cells(zz, 25) Then
If bytL = 2 Then Cells(zz, 28) = 1
bytL = 2
End If
Next zz
End Sub
Sub Anford2()
Dim lngZ As Long, zz As Long, bytL As Byte
lngZ = Cells(Rows.Count, 24).End(xlUp).Row
Cells(2, 27).Resize(lngZ - 1, 2) = 0
For zz = 2 To lngZ
If Cells(zz, 24) Then
If bytL > 1 Then bytL = 0: Cells(zz, 27) = 1
ElseIf Cells(zz, 25) Then
Select Case bytL
Case 0: bytL = 2
Case 1: bytL = 2: Cells(zz, 28) = 1
Case 2: bytL = 3: Cells(zz, 28) = 1
Case Else: bytL = 2
End Select
End If
Next zz
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort