Ups, da hab ich doch glatt vergessen eine 4 durch iAnlagennummer zu ersetzen ...
Ersetze mal die Zeile: If Sheets(1).Cells(i, iAnlagennummer) = Sheets(2).Cells(j, 4) Then
Mit dieser: If Sheets(1).Cells(i, iAnlagennummer) = Sheets(2).Cells(j, iAnlagennummer) Then
Dann geht es.
Hier als Pastebin. Hab es oben auch geändert.
Ersetze mal die Zeile: If Sheets(1).Cells(i, iAnlagennummer) = Sheets(2).Cells(j, 4) Then
Mit dieser: If Sheets(1).Cells(i, iAnlagennummer) = Sheets(2).Cells(j, iAnlagennummer) Then
Dann geht es.
Hier als Pastebin. Hab es oben auch geändert.
Kommentar