vor ein paar Wochen hab ich ein Makro bekommen mit welchem ich per Mausclick Spalten von einer Exceldatei in einer andere kopieren kann.
Das Makro funktioniert sehr gut und kopiert mir vom Reiter "Prod" zwei Spalten in den Reiter "Prod" der anderen Exceldatei.
Beide Dateien haben aber mehrere Reiter (Prod, Rev, Mat,...). Ich würde gerne von den anderen Reitern auch jeweils zwei Spalten in die andere Exceldatei kopieren. Wie muss ich mein Makro erweitern, so dass sich z.B. sowohl die Daten des Reiters "Prod" und des Reiters "Rev" in die andere Exceldatei kopieren.
Leider bekomme ich das alleine nicht hin. Vielen Dank für Euere Hilfe im Voraus.
Viele Grüße
Tobi
Anbei das Makro:
Sub LoadButton_Click()
Dim Prod As Worksheet
Dim filetoopen As String
Application.ScreenUpdating = False
Set Prod = ThisWorkbook.Sheets("Prod")
filetoopen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If filetoopen "False" And filetoopen "Falsch" And filetoopen "" Then
Workbooks.Open filetoopen
With ActiveWorkbook
.Sheets("Prod").Range("A:A").Copy Destination:=Prod.Range("A:A")
.Sheets("Prod").Range("B:B").Copy Destination:=Prod.Range("B:B")
.Sheets("Prod").Range("D:D").Copy Destination:=Prod.Range("BD:BD")
.Sheets("Prod").Range("E:E").Copy Destination:=Prod.Range("BE:BE")
.Sheets("Prod").Range("F:F").Copy Destination:=Prod.Range("BF:BF")
.Close
End With
End If
Application.ScreenUpdating = True
End Sub