Herbers Excel-Forum - das Archiv
Makro für alle Fenster
- Makro für alle Fenster von Ulf vom 18.11.2003 14:30:54
- AW: Makro für alle Fenster - von Nepumuk am 18.11.2003 17:38:42
- AW: Makro für alle Fenster - von Ulf am 19.11.2003 08:24:06
- AW: Makro für alle Fenster - von Ulf am 19.11.2003 08:24:06
- AW: Makro für alle Fenster - von Nepumuk am 18.11.2003 17:38:42
 |
Betrifft: Makro für alle Fenster
von: Ulf
Geschrieben am: 18.11.2003 14:30:54
Hi Excel Friends,
gibt es eine Möglichkeit ein Makro für 4 geöffnete Fenster gleichzeitig laufen zu lassen??
mfg
Ulf
 |
Betrifft: AW: Makro für alle Fenster
von: Nepumuk
Geschrieben am: 18.11.2003 17:38:42
Hallo Ulf,
was soll das Makro denn machen?
Gruß
Nepumuk
|
Betrifft: AW: Makro für alle Fenster
von: Ulf
Geschrieben am: 19.11.2003 08:24:06
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
| |