Как искать лист на основе ввода ячейки - PullRequest
0 голосов
/ 07 мая 2020

Я хотел бы найти имя таблицы Excel на основе ввода ("LanguageCode") значения ячейки. например, значение ячейки - «NL». Я хочу найти лист «NL», а затем скопировать информацию на отдельный лист («Шаблон»).

Это мой код:

    Sub ImportCountryValues()

Dim fileName As String
Dim Country As Variant
Dim Language As Variant
Dim CountryCode As Variant
Dim LanguageCode As Variant


Country = Workbooks("Mappe1.xlsm").Worksheets("Land-Sprache").Range("A2:A6").Value **<- this line errors with indexerror 9**
Language = Workbooks("Mappe1.xlsm").Worksheets("Land-Sprache").Range("B2:B6").Value
CountryCode = Workbooks("Mappe1.xlsm").Worksheets("Land-Sprache").Range("C2:C6").Value
LanguageCode = Workbooks("Mappe1.xlsm").Worksheets("Land-Sprache").Range("D2:D6").Value



For i = 1 To Worksheets.Count
    If Worksheets(i).Name = "LanguageCode" Then
        Sheets("CountryCode").Select
        Range("F2:J20").Select
        Selection.Copy
        Sheets("Template").Select
        Range("G2:K20").Select
        ActiveSheet.Paste
        Application.Dialogs(xlDialogSaveAs).Show (fileName)


    End If
Next i

If Not exists Then

End If





End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...