Sub NO_ALLes()
Do While WorksheetFunction.CountIf(Range("A1:A65536"), "STOPP") > 0
Cells.Find(what:="STOPP").Activate
ActiveCell.EntireRow.Delete
Loop
Do While WorksheetFunction.CountIf(Range("A1:A65536"), "START") > 0
Cells.Find(what:="START").Activate
ActiveCell.EntireRow.Delete
Loop
Do While WorksheetFunction.CountIf(Range("A1:A65536"), "ABBRUCH") > 0
Cells.Find(what:="ABBRUCH").Activate
ActiveCell.EntireRow.Delete
Loop
'Spalten A und B werden gelöscht danach wird in Spalte B jeweils in jede Zeile
'der Wert 1 geschrieben
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
Columns("B:B").Select
Selection.NumberFormat = "0"
ActiveCell.FormulaR1C1 = "1"
Range("B1").Select
Selection.AutoFill Destination:=Range("B1:B2897"), Type:=xlFillDefault
Range("B1:B2897").Select
'Jeweils zum Datum wird der addierte Wert in Range F = Datum und G = Summe geschrieben
i = 1
j = 1
wert = 1
Do Until Range("A" & i).Value = ""
Do While Range("A" & i).Value = Range("A" & i + 1).Value
If Range("A" & i).Value = Range("A" & i + 1) Then
wert = wert + Range("B" & i)
i = i + 1
End If
Loop
Range("F" & j).Value = Range("A" & i).Value
Range("G" & j).Value = wert
wert = 1
j = j + 1
i = i + 1
Loop
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen