Makro per Schalter starten
24.07.2006 09:21:32
Max
Ich möchte gerne folgendes Makro über einen Knopf starten. Leider funktioniert es nicht. Woran könnte das liegen?
Danke für Hilfe.
Lg Max
Windows("Report_OrdersOfApplication.xls").Activate
Set a = Cells.Find("OMC Type")
If Not a Is Nothing Then r = a(1, 1).Row: c = a(1, 1).Column
lz = Cells(Rows.Count, c).End(xlUp).Row
Range(Cells(r, c), Cells(lz, c)).Select
Selection.Copy
Windows("endversion.xls").Activate
Sheets("Daten aus Tabelle").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Config. Total").Select
Range("B5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-1],""CTL"")"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-2],""OMC_MINI"")"
Range("D5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!C[-3],""OMC_NIGHTTIME"")"
Range("E5").Select
ActiveCell.FormulaR1C1 = _
"=COUNTIF('Daten aus Tabelle'!C[-4],""OMC_REDUNDANT"")"
Range("F5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-5],""OMC_SMALL"")"
Range("G5").Select
ActiveCell.FormulaR1C1 = "=COUNTIF('Daten aus Tabelle'!C[-6],""OMC_STANDARD"")"