myGully.com - Excel VBA dynamische Tabellen

myGully.com (https://mygully.com/index.php)

- Programmierung (https://mygully.com/forumdisplay.php?f=67)

- - Excel VBA dynamische Tabellen (https://mygully.com/showthread.php?t=2082361)

Excel VBA dynamische Tabellen

Hallo

ich habe ein Problem in Excel 2003:
Ich möchte Werte mehrere Tabellen (/Blättern) aus derselben Datei in eine neue Tabelle in derselben Datei kopieren um sie dort auswerten zu können. (Mittelwert,Min,Max je Zeile)

Problematisch gestaltet sich das ganze weil ich in der Anzahl der auszuwertenden Blätter flexibel bleiben möchte.
Zwar habe ich bereits die neue Tabelle erstellt bekommen, jedoch hat diese als letzte Tabelle stets verschiedene Nummern (den Namen "Doku" hat sie jedoch immer).
Zusätzlich besteht das Problem dass die Wertze aus den Auswertungsblättern (Blatt 2 bis vorletztes Blatt) ihre Werte der Zellen C7 bis H7 in der Zieltabelle hintereinander schreiben sollen (um die zuvor übertragenen Werte nicht zu überschreiben).

Würde mir sehr viel weiterhelfen wenn sich da jemand erbarmt mir zu helfen.

Gruß
Wombat223

VBA bietet sicherlich eine möglichkeit dir alle Sheets aufzulisten. Die könntest du dann mit einer Schleife abarbeiten.
Wenn ich mich richtig erinnere kannst du die einzelnen Sheets auch mit dem Namen ansprechen das sollte dein Problem mit dem "Doku" Sheet lösen.

Google mal nach "VBA enum(erate) Excel Sheets" oder sowas in de richtung. Da lässt sich bestimmt was finden.

Danke gosha16

mit

Code:

      For i = 2 To Worksheets.Count - 1

         .Range("C7:H7").Offset(0, j).Value = Worksheets(i).Range("C12:L12").Value

        z =z + 13

      Next

bin ich mitlerweile ein gutes stück weiter gekommen.