AW: Bereiche löschen, wenn summe gleich NULL
12.04.2007 19:20:26
Peter
Hallo Erich
Vielen Dank. Ich habe daraus nun nachfolgenden Code gemacht. Wenn die Bedingung "Summe = NULL" zutrifft habe ich den Bereich mit "="" gesetzt.
Mir war nicht ganz klar, was der Unterschied zu ClearContents oder Clear (gehen hier Formate verloren?) ist.
Vielleicht kannst du mir das noch mitteilen (selbstverständlich fakultativ, deshalb lasse ich die Frage auch nicht mehr offen ...)
Freundlicher Gruss, Peter
Sub nurEinträgeWennSumme()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim lngRow As Long, Rnge As Range, Rngf As Range
Set aBook = ThisWorkbook
Set aSheet = aBook.Sheets("PVK")
With aSheet
lngRow = 5
Do While .Cells(lngRow, 4) ""
Set Rngf = .Range(Cells(lngRow, 6), Cells(lngRow, 36)) 'Bereich ohne Datum
Set Rnge = .Range(Cells(lngRow, 5), Cells(lngRow, 36)) 'Bereich inkl. Datum
If WorksheetFunction.Sum(Rngf) = 0 Then Rnge = ""
lngRow = lngRow + 1
Loop
End With
Set Rngf = Nothing
Set Rnge = Nothing
End Sub