VBA: Wenn 2 Zellen Leer schreibe in 3. Zelle
28.09.2005 17:42:30
Stephan
mit folgendem Code versuche ich in in Spalte I jeder Zeile 0% bei Verlassen des Sheets einzutragen, wenn in der gleichen Zeile Spalte H befüllt und I leer sind.
Leider funktioniert es so nicht - habt ihr eine Ahnung warum bzw. wie es geht?
Danke, St
Private Sub Worksheet_Deactivate()
With ActiveSheet
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row
For irow = 5 To iRowL
If Cells(irow, 8) <> "" And Cells(irow, 9) = "" Then
Cells(irow, 9).Value = "0%"
End If
Next irow
End With
End Sub
Anzeige