EXCEL VBA Makro: Daten aus meheren Arbeitsblättern in einer Tabelle zusammenführen

Hallo,

ich habe ein Excel Workbook, in dem durch ein Makro mehere neue Arbeitsblätter erzeugt werden. Die Anzahl der Arbeitsblätter variiert.
Der Name der Arbeitsblätter ist immer gleich: "NTI-INPUT1" , 2, 3 usw.
Ich möchte jetzt in einem weiteren Arbeitsblatt die Werte der einzelnen Blätter zusammenziehen, sprich kopieren. Dabei sollen dann die Werte aus jedem Blatt nebeneinander stehen.
Die variierende Anzahl an Blättern bereitet mir dabei Kopfzerbrechen, zumal es noch andere Blätter mit anderen Namen in der Mappe gibt deren Werte ich nicht brauche.

Meine Werte sehen ungefähr so aus:

RT60 Average Results

Please also mark the comments that contributed to the solution of the article

Content-Key: 295765

Url: https://administrator.de/contentid/295765

Printed on: April 19, 2024 at 23:04 o'clock

5 Comments

Latest comment

Gruezi.
Einfach den Anfang des Namens jeden Sheets in einer Schleife prüfen...

dim sh as Worksheet
' Für jedes Worksheet ...  
for each sh in Worksheets
    'prüfe ob die ersten 9 Zeichen dem gewünschten String "NTI-INPUT" entsprechen  
    if UCase(Left(sh.Name,9)) = "NTI-INPUT" then  
        ' hier aus dem sheet (Variable: sh) deine Daten kopieren  
   end if
Next

Gruß jodel32

Hallo Jodel32,

danke, das war hilfreich,

dennoch bleibt die Frage wie ich die Werte im neuen Blatt nebeneinander reinkopiert bekomme. Ich muss die Sheets also zählen und dann aus der jeweiligen Spalte des Quellsheets die Werte in das neue Zielsheet einfügen, aber mit jedem Durchlauf eine Zelle weiter rechts einfügen.

Zitat von @arotciv:
dennoch bleibt die Frage wie ich die Werte im neuen Blatt nebeneinander reinkopiert bekomme. Ich muss die Sheets also zählen und dann aus der jeweiligen Spalte des Quellsheets die Werte in das neue Zielsheet einfügen, aber mit jedem Durchlauf eine Zelle weiter rechts einfügen.

Ist doch kein Beinbruch ...

dim sh as Worksheet
' Für jedes Worksheet ...  
for each sh in Worksheets
    'prüfe ob die ersten 9 Zeichen dem gewünschten String "NTI-INPUT" entsprechen  
    if UCase(Left(sh.Name,9)) = "NTI-INPUT" then  
        sh.Range("A10").Copy Sheets("Zielsheet").Cells(2,Columns.Count).End(xlToLeft).Offset(0,1)  
   end if
Next

Ranges natürlich an deine Umgebung anpassen ...