Hallo,
habe letztens Dank der Hilfe von Werner einen Code erstellt der tut was er soll. Allerdings ist mir nun aufgefallen das noch eine If Bedinung fehlt, sofern man das am besten mit einer If-Bedinung realisiert?!
Das einfügen der Informationen wird auf allen Blättern durchgeführt, was so auch richtig ist. Allerdings möchte ich das Inhaltsverzechnis davon ausschließen, nur ist mir das bis jetzt nicht gelungen.
Ich hoffe das mir jemand weiterhelfen kann.
Hier der Code:
Sub Kopieren()
Dim wbQuelle As Workbook, i As Long
Set wbQuelle = Workbooks("Testdatei mit Geräten.xlsm")
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
With ThisWorkbook
For i = 1 To .Sheets.Count
.Sheets(i).Range("C9:E12").Value = wbQuelle.Sheets(i).Range("C9:E12").Value
.Sheets(i).Range("H9:J12").Value = wbQuelle.Sheets(i).Range("H9:J12").Value
.Sheets(i).Range("M9:N10").Value = wbQuelle.Sheets(i).Range("M9:N10").Value
.Sheets(i).Range("L12").Value = wbQuelle.Sheets(i).Range("L12").Value
.Sheets(i).Range("N11:N12").Value = wbQuelle.Sheets(i).Range("N11:N12").Value
Next i
End With
Set wbQuelle = Nothing
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
Mit freundlichem Gruß
Lukas
|