1. Ich meine mit Seriennummer die Nummer, die über "BOARDRESULT" in der Zelle neben "SN" steht. Die jeweiligen Fehlerzeilen, die dann in das Blatt "Zusammenfassung" kopiert werden, sollen auch die jeweilige Seriennummer enthalten
Den Namen, unter welchen die Fehler aufgeliset werden, setze ich hier - in dem Fall also der Blattname:
rngTarget.Value = sh.Name
Ändere diese Zeile in:
rngTarget.Value = rngMatch.Offset(-1, 1).Value
rngMatch ist die Zelle in der BOARDRESULT steht. Durch Offset gehst du eine Zeile hoch und eine nach rechts, welches dann der Wert rechts neben SN ist.
und 2.
Das Makro funktioniert für beliebig viele importierte CSV-Dateien bzw. für beleibig viele Tabellen oder ?
Schau dir das Makro einfach mal genauer an.
Um es auf mehrere Dateien auszulegen, brauchst du theoretisch nur die Funktionsschnittstelle zu erweitern und die Workbook Referenz anzupassen. Dann rufst du diese Funktion einfach für jede Mappe auf...
Option Explicit
Sub Test(Workbook As Excel.Workbook)
...
For Each sh In Workbook.Worksheets
...
... der Funktion einen aussagekräftigeren Namen zu geben, dürfte selbstverständlich sein. ;o)
Grüße
|