weniger Buttons, weniger Code

Sub Daten_Blatt1_einfügen()
Dim Tab1 As Worksheet, Tab2 As Worksheet, Tab3 As Worksheet, i As Long, j As Long
Dim Mappe2 As Workbook, Mappe3 As Workbook, zelle As Range
Sheets("Blatt1").Range("E2:E10000, F2:F10000, I2:I10000").Value = ""
Application.ScreenUpdating = False
On Error GoTo Fehler
Set Tab1 = Sheets("Blatt1")
Set Mappe2 = Workbooks.Open("Pfad\Daten_0815.xls")
Set Tab2 = Mappe2.Sheets("Daten_0815")
Set Mappe3 = Workbooks.Open("Pfad\Daten_0916.xls")
Set Tab3 = Mappe3.Sheets("Daten_0916")
For i = 2 To Tab1.Range("D10000").End(xlUp).Row
For j = 2 To Tab2.Range("B10000").End(xlUp).Row
If Tab1.Range("D" & i).Value = Tab2.Range("B" & j).Value Then
Tab1.Range("E" & i).Value = Tab2.Range("C" & j).Value
End If
Next
Next
For i = 2 To Tab1.Range("E10000").End(xlUp).Row
For j = 2 To Tab3.Range("B10000").End(xlUp).Row
If Tab1.Range("E" & i).Value = Tab3.Range("B" & j).Value Then
Tab1.Range("F" & i).Value = Tab3.Range("C" & j).Value
End If
Next
Next
For i = 2 To Tab1.Range("E10000").End(xlUp).Row
For j = 2 To Tab3.Range("B10000").End(xlUp).Row
If Tab1.Range("E" & i).Value = Tab3.Range("B" & j).Value Then
Tab1.Range("I" & i).Value = Tab3.Range("D" & j).Value
End If
Next
Next
Set Tab1 = Nothing
Set Tab2 = Nothing
Set Tab3 = Nothing
Mappe2.Close
Mappe3.Close
Application.ScreenUpdating = True
End
Fehler: MsgBox "Datei konnte nicht gefunden werden. Bitte Dateinamen prüfen!"
End Sub