Makro anpassen für meherer Dateien
12.06.2013 11:13:09
Enrico
ich habe am am 11.04.2013 in einem Post (1308265) ein Makro von Klaus M.vdT. erhalten, dass ich für mich wie folgt angepasst habe:
Option Explicit
Public bFirstOpen As Boolean
Public wkbNew As Workbook
Sub PrintData()
Dim wkbOld As Workbook
Set wkbOld = ActiveWorkbook
If bFirstOpen Then
Else
Workbooks.Add
Set wkbNew = ActiveWorkbook
bFirstOpen = True
wkbOld.Activate
End If
Dim iCol As Integer
Range("F7:G87").Select
Selection.Copy
With wkbNew.Sheets(1)
iCol = .Cells(7, .Columns.Count).End(xlToLeft).Column
.Cells(1, iCol + 2).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End With
With wkbNew.Sheets(1)
iCol = .Cells(7, .Columns.Count).End(xlToLeft).Column
.Cells(1, iCol - 1).PasteSpecial Paste:=xlPasteColumnWidths
End With
With wkbNew.Sheets(1)
iCol = .Cells(7, .Columns.Count).End(xlToLeft).Column
.Cells(1, iCol - 1).PasteSpecial Paste:=xlFormats
End With
Application.CutCopyMode = False
Range("A1").Select
End Sub
Sub ResetFirstOpen()
bFirstOpen = False
End Sub
Jetzt ist eine neue Anforderung hinzu gekommen, und ich habe keine Ahnung wie man das Umsetzen könnte.
Das makro sollte auch aus anderen Arbeitsmappen funktionieren und die Werte der genannten Zellen in die zuvor geöffnete datei Kopieren!
Also ich möchte zwischen mehreren Arbeitsmappen springen und beim ausführen des Makros sollen Werte aus den gleichen Zellen in die Mappe kopiert werden die bei erstmaligen ausführen des Makros geöffnet wurde.
hat hierzu irgendjemand eine Idee
Gruß Enrico