Hallo & Guten Tag,
mein Problem lautet:
Zellinhalte aus dem Arbeitsblatt (Quell-Tabelle) einer Datei (Quell-Datei) in ein anderes Arbeitsblatt (Ziel-Tabelle) einer anderen Datei (Ziel-Datei) zu übertragen. Der Ablauf gestaltet sich folgendermaßen:
1.) Die Quelldatei wird über das Dateiauswahlfenster festgelegt. Die Bezeichnung für die "Quell-Tabelle" in der Quell-Datei steht fest (hier z.B.: "Quell-Tabelle").
2.) Die Zahl der beschriebenen Zeilen in der "Quell-Tabelle" werden ermittelt.
3.) Anschließend wird mit der gem. Ziff. 2.) ermittelte Zahl von Werten aus der Quell-Tabelle der Quell-Datei in die Ziel-Tabelle der Ziel-Datei geschrieben.
4.) Das folgende Makro ist Bestandteil der Ziel-Datei bzw. der Ziel-Tabelle (!):
Dim wksquelle As Worksheet, wksZiel As Worksheet
Dim wkbQuelle As Workbook, wkbziel As Workbook
Dim letzteZeileQuelle As Integer, i As Integer
' Hier wird das Dateiauswahlfenster geöffnet
wkbQuelle = Application.GetOpenFilename("Excel-Dateien (*.xls), *.xls")
' Hier werden die beschriebenen Zeilen des Quell-Blattes gezählt
letzteZeileQuelle = wkbQuelle("Quell-Tabelle").Cells(Rows.Count, 1).End(xlUp).Row + 1
wkbziel = ThisWorkbook.Worksheets("Ziel-Tabelle")
Worksheets("Ziel-Tabelle").Activate
For i = 2 To letzteZeileQuelle
Sheets("Ziel-Tabelle").Cells(i, 1).Value = Sheets("Quell-Tabelle").Cells(i, 1).Value
Next i
End Sub
5.) Mein Problem das &%$§" Makro läuft nicht und ich kann den Fehler nicht finden :( und würde mich insofern über die Unterstützung bei der Lösung des Problems freuen.
Danke sehr.
Thomas B.