Private Sub CommandButton1_Click()
Dim tab1
Dim tab2
Dim lspalte As Long
Dim pspalte As Long
Dim azeile As Long
Dim bzeile As Long
Dim spaltenanfang As Long
Dim zeilenanfang As Long
Dim zeilenende As Long
Dim spaltenende As Long
Application.ScreenUpdating = False
spaltenanfang = 13
spaltenende = 263
zeilenanfang = 52
zeilenende = 251
tab1 = Tabelle1.Range(Tabelle1.Cells(1, 1), Tabelle1.Cells(zeilenende, spaltenende))
tab2 = Tabelle2.Range(Tabelle2.Cells(1, 1), Tabelle2.Cells(zeilenende, spaltenende))
For pspalte = spaltenanfang To spaltenende
For lspalte = spaltenanfang To spaltenende
If tab2(5, lspalte) = tab1(5, pspalte) Then
tab1(5, pspalte) = tab2(5, lspalte)
tab1(7, pspalte) = tab2(7, lspalte)
tab1(8, pspalte) = tab2(8, lspalte)
tab1(9, pspalte) = tab2(9, lspalte)
tab1(10, pspalte) = tab2(10, lspalte)
tab1(11, pspalte) = tab2(11, lspalte)
tab1(14, pspalte) = tab2(14, lspalte)
tab1(15, pspalte) = tab2(15, lspalte)
tab1(17, pspalte) = tab2(17, lspalte)
For bzeile = zeilenanfang To zeilenende
For azeile = zeilenanfang To zeilenende
If tab2(azeile, 5) = tab1(bzeile, 5) Then
tab1(bzeile, pspalte) = tab2(azeile, lspalte)
End If
Next azeile
Next bzeile
Exit For
End If
Next lspalte
Next pspalte
Tabelle1.Range(Tabelle1.Cells(1, 1), Tabelle1.Cells(251, 156)) = tab1
Application.ScreenUpdating = True
End Sub