Sub Workbook_Open()
    Datei = InputBox("Welche Datei soll geöffnet werden?", , Pnr)
    Workbooks(Datei).Activate
End Sub

Private Sub Workbook_Open()
    Dim LZeile As Long, ZeilenArrSp1 As Long, ZeilenArrSp2 As Long    'bestimmung einiger variablen
    LZeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row    'ermittlung der letzten zeile
    ReDim ArrSpalten(1 To LZeile, 1 To 2) As Variant    'ausdehnug eines arraqy mit bezug zu der variablen LZeile
    If Application.Dialogs(xlDialogOpen).Show = False Then Exit Sub    'datei oeffnen bzw abbruch
    Range("A2:B" & Rows.Count).Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom    'spalten a+b verschachtelt sortieren
    ArrSpalten() = Range("C2:D" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)    'spalten c+d werden einem array zugewiesen fuer einen beliebigen vergleich
    For ZeilenArrSp1 = 1 To UBound(ArrSpalten())    'erste schleife fuer die 1 dimension einer eingelesenen spalte
        For ZeilenArrSp2 = 1 To UBound(ArrSpalten())    'zweite schleife fuer die 2 dimension einer eingelesenen spalte
            If ArrSpalten(ZeilenArrSp1, 1) = ArrSpalten(ZeilenArrSp2, 2) Then 'eine if else bedingung fuer einen vergleich
                'Dein Code
            Else
                'bei bedarf Else wegnehmen bzw Dein Code
            End If
        Next ZeilenArrSp2    'schleifenende
    Next ZeilenArrSp1    'schleifenende
    Range("H:H,J:J").Delete Shift:=xlToLeft    'loeschen von spalte h+j,als beispiel
End Sub