AW: Makro für alle Fenster
19.11.2003 08:24:06
Ulf
Es soll folgendes vollbringen :
'Makro wird für die Auswertung Scan Protokoll benötigt löschen von
'Start,Stopp und Abbruch sowie addition zum Datum
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
mfg Uh