Hallo Karl-Heinz
Makro 1 funktioniert TOP. Besten Dank für deine schnelle Hilfe.
Musste nur den Dateinamen und Tabellenblattbeschriftung anpassen.
Sub Makro3()
Dim iZeile As Long, WShQ As Worksheet, rBer As Range
' Daten exportieren in Basis
Set WShQ = Workbooks("Resultate.xlsm").Sheets("Resultate") ' Quellblatt angeben
With Workbooks("Mappe1").Sheets("Tabelle1") ' Zielblatt angeben
iZeile = .Cells(Rows.Count, "A").End(xlUp).Row + 1 ' Erste freie Zeile
Set rBer = WShQ.Range("A13:B20") ' Quellbereich angeben
.Cells(iZeile, "A").Resize(rBer.Rows.Count, rBer.Columns.Count).Value = rBer.Value
Set rBer = WShQ.Range("C13:C20") ' Quellbereich angeben
.Cells(iZeile, "E").Resize(rBer.Rows.Count, rBer.Columns.Count).Value = rBer.Value
Set rBer = WShQ.Range("F13:I20") ' Quellbereich angeben
.Cells(iZeile, "G").Resize(rBer.Rows.Count, rBer.Columns.Count).Value = rBer.Value
End With
End Sub
Das Excel Resultate.xlsm kann unterschiedliche Dateinamen haben ist aber im Tabellenblatt und Button immer gleich.
Gibt es eine Möglichkeit das man den Export der Daten mit unterschiedlichen Dateinnamen machen kann und trotzdem in Mappe1 eingefügt wird?
Gruss
Ch79
|