Makroanwendung bei variabler Blattanzahl
26.08.2004 10:53:17
Hanno
Also ich habe ein Makro. Dieses Makro durchsucht in einem Blatt die Spalte A.
Dann legt es für jede Variable in dieser Spalte ein neues Blatt an und kopiert all die Zeilen aus dem Ursprungsblatt, die diese Variable in Spalte A besitzen in das dazugehörige Blatt.
Dazu hier zwei Bilder: Vorher und nachher
https://www.herber.de/bbs/user/10133.doc
Jetzt bräuchte ich einen Tipp, wie ich dieses Makro:
Sub StDev()
Sheets("Ergebnis").[C5] = WorksheetFunction.StDev(Sheets("Daten").Range("C5:C12"))
Sheets("Ergebnis").[D5] = WorksheetFunction.StDev(Sheets("Daten").Range("D5:D12"))
Sheets("Ergebnis").[C6] = WorksheetFunction.StDev(Sheets("Daten").Range("C13:C20"))
End Sub
Sub Avg()
Sheets("Ergebnis").[C9] = WorksheetFunction.Average(Sheets("Daten").Range("C5:C12"))
Sheets("Ergebnis").[D9] = WorksheetFunction.Average(Sheets("Daten").Range("D5:D12"))
Sheets("Ergebnis").[C10] = WorksheetFunction.Average(Sheets("Daten").Range("C13:C20"))
End Sub
so abänderen kann, dass es sich statt nur auf das Blatt "Daten" auf alle neu angelegten Blätter bezieht und dann die Ergebnisse pro Blatt untereinander in das Blatt "Ergebnisse" schreibt.
Vielen Dank für Eure Hilfe!
Gruss,
Hanno