|
Ich möchte sechs Excel Files in einem Dokument zusammenführen. Hierbei soll nach einem Namen gesucht werden (im Bsp Tafeln 87g-100g) und dann die Inhalte aus der dazugehörigen Zeile hinauskopiert werden.
Beispiel:
Zelle B6 (bzw. Zeile B ab Spalte 6 bis 51) im Zielblatt soll sich aus "16ABIL.xlxs" die Zeile mit "Tafeln 87g-100g" heraussuchen und ihren gesamten Inhalt in Zeile B des Zielblatts übernehmen.
Mein Vorschlag wäre folgender:
Sub Aktionspläne_zusammenführen()
'
' Aktionspläne_zusammenführen Makro
'
'
Range("B6").Select
Windows("16ABIL.xlxs").Activate
Dim i As String
For i = "Tafeln 87g-100g"
ActiveSheet.Range(“B6:BA51”).Select
Application.CutCopyMode = False
Selection.Copy
Windows.Application("16ABIL.xlxs").Activate
ActiveSheet.Paste
End Sub
Excel zeigt mir allerdings einen Fehler für den “i =”Befehl an, was ich nicht verstehe.
Danke für eure Hilfe.
|