Bedingtes Einsetzen
18.05.2004 09:35:24
Josef
ich habe unten eine Lösung, in der in Spalte I eine 1 oder eine 0 eingesetzt wird in Abhängigkeit von Spalte H.Mit diesem Code (oder einem anderen mit dem gleichen Effekt), der unten abgedruckt ist, soll nur überall dort eine 0 oder eine 1 eingsetzt werden, wo sich in Spalte H eine Null befindet. Ich hoffe es ist verständlich. Ich brauche also nur eine veränderung des unteren Code, der mir die Zellen in Spalte H (also: cell.Column + 1) nicht weder 0 noch 1 setzt, wenn dort sich keine Null bzw. irgend eine positive Zahl befindet.
Danke für Eure Ideen.
Josef
Dim lzelle As Long
lZeile = Range("H65536").End(xlUp).Row
Range(Cells(1, 8), Cells(lZeile, 8)).Select 'Hier wird Spalte H markiert
For Each cell In Selection
If cell > 0 Then
Cells(cell.Row, cell.Column + 1) = 0 'Hier wird in Abhängigkeit von H
in Spalte I eine Null gesetzt.
Else
Cells(cell.Row, cell.Column + 1) = 1
End If
Next