Hilfe bei Makro
05.01.2006 20:22:13
Peter
in Spalte „B“ stehen Datumswerte. Ist kein Datum vorhanden werden leere Zellen
durch das vorherige Datum ergänzt..
In Spalte „O“ stehen Zahlenwerte. Ist in Spalte „B“ ein Datum und in Spalte „O“ der Wert =0 dann soll diese Spalte gelöscht werden.
Zur Probe hinterlege ich Zeilen die gelöscht werden sollen gelb.
Irgendwas mache ich falsch.
Wer kann helfen?
-siehe Anlage
https://www.herber.de/bbs/user/29756.xls
Im voraus schon Danke für die Mühe
Peter
Sub CheckDateAndColor()
Dim lngLastRow As Long
Dim lngRow As Long
On Error GoTo ErrExit
Application.ScreenUpdating = False
lngLastRow = Range("B65536").End(xlUp).Row
For lngRow = 5 To lngLastRow '- 1
If Not IsDate(Cells(lngRow, 2)) Then
Cells(lngRow, 2) = CDate(Cells(lngRow - 1, 2))
If IsDate(Cells(lngRow - 1, 2)) And Cells(lngRow - 1, 15).Value = 0 Then
Rows(lngRow - 1).Interior.ColorIndex = 6
End If
End If
Next
ErrExit:
Application.ScreenUpdating = True
End Sub