Bezug auf Tabellenblätter in VBA

Hi Leute,

in meinem Code habe ich eine Sub, mit welcher in Daten in verschiedene Tabellenblätter importiere, die alle gleich aussehen. Die Tabellenblätter haben den Namen Unternehmen 1, Unternehmen 2, usw.

Mit diesem Code importiere ich die Daten:

Sub ImportAuswertung(intUnternehmen As Integer)
    
    Dim Dateiname
    Dim wbQuelle As Workbook
    Dim wksZiel As Worksheet, wksQuelle As Worksheet
    Dim strUnternehmenTab As String, strUnternehmenKurz As String
    
    strUnternehmenTab = "Unternehmen " & intUnternehmen
    strUnternehmenKurz = "UN" & intUnternehmen & "_"
    
    Set wksZiel = ThisWorkbook.Sheets(strUnternehmenTab)
    
    Dateiname = Application.GetOpenFilename(filefilter:="xlsm-Dateien (*.xlsm), *.*)", Title:="Import")
    
    If Dateiname = "Falsch" Then
        MsgBox "Keine Datei ausgewählt", vbExclamation
        Exit Sub
    Else
        
        Application.ScreenUpdating = False
        
        Set wbQuelle = Workbooks.Open(Dateiname)
        Set wksQuelle = wbQuelle.Sheets("Auswertung")
        
        wksQuelle.Range("C8:H8").Copy
        wksZiel.Range("C5:H5").PasteSpecial Paste:=xlValues
        
        wksQuelle.Range("C11:H11").Copy
        wksZiel.Range("C6:H6").PasteSpecial Paste:=xlValues
        
        wksQuelle.Range("C17:H17").Copy
        wksZiel.Range("C7:H7").PasteSpecial Paste:=xlValues
        
        wksQuelle.Range("C18:H18").Copy
        wksZiel.Range("C8:H8").PasteSpecial Paste:=xlValues
        
        usw...
        
        wbQuelle.Close savechanges:=False
    
    End If
       
End Sub