Benötige VBA Experten Hilfe
25.09.2004 15:35:54
Michel
ich wäre sehr froh um Ihre Hilfe für meine untenstehende Problemstellung. Ich komme leider nicht weiter.
Besten Dank im voraus.
Mit freundlichen Grüssen
Michel
Ausgangslage: Arbeitsmappe mit 3 Tabellen
Tabelle1: "AB_Rück_kurs_D" beinhaltet eine Liste mit Klassen-Nr (zB. 104), Schulname, Kursname, und Werte
in %, diese Werte sind Klassen-Durschnitte (verschiedene Fächer)
Tabelle2: "AB_Ru¦êck_SS_DG" beinhaltet die Details jeder Klasse, z.B. Klassenr., Teilnehmer und Durchschnittswerte etc.
Spalte A definiert die Klasse-Nummer (z.B. 104, 203.....) Klasse-Nummer ist nicht chronologisch.
Die Klassenanzahl kann auch unterschiedlich sein.
Spalten B-I definiert Name, Vorname, Werte (u.s.w.) Anzahl der Teilnehmer unterscheidet sich ebenfalls (z.B. 13, 15, 12, 18...)
Das Makro sollte merken, wenn wieder eine neue Klasse-Nummer auf der Spalte A erscheint inklusive den dazugehörenden
Daten B bis I
Tabelle3: "AB_Klaru¦êck_DG" dient als Klassenrückmeldung und beinhaltet Texte, Klassen-Durchschnitte und
Klassen-Mittelwerte sowie Diagramm. Dies sollte nach Aktualisierung gespeichert werden unter den Klassen-Nr (Spalte A)
mit der Endung _ABDG (zB. 100_ABGD) anschliessend muss diese Tabelle jedes Mal in einen Ordner "Klassenrückmeldungen"
gespeichert werden.
Ich habe das untenstehende Makro mit dem Recorder angefangen, kann leider nicht fertig machen!
Die Probleme:
1) Das Makro sollte den zu den Klassen zugehörigen Bereich von Tabelle2 (in diesem Fall A2 - I14) individuell kopieren und in
A62 von der Tabelle3 einfügen.
2) Das Makro muss von Anfang an das Ganze wiederholen, bis die Liste "AB_Rück_Kurs_D" (Tabelle1) am Ende ist.
Sub Makro1()
Sheets("AB_Rück_kurs_D").Select
Range("C2:H2").Select
Selection.Copy
Range("J6").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("D4").Select
Sheets("AB_Rück_kurs_D").Select
Range("K6:O10").Select
Selection.Copy
Sheets("AB_Klaru¦êck_DG").Select
Range("A20").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A2").Select
Sheets("AB_Ru¦êck_SS_DG").Select
Range("A2:I14").Select
Selection.Copy
Sheets("AB_Klaru¦êck_DG").Select
Range("A62").Select
ActiveSheet.Paste
Application.CutCopyMode = False ' komme leider nicht weiter!!
End Sub