interne Blattnamen als Variable basierend auf einer Eingabe in Excel-Zelle

Question

Ich habe den folgenden VBA-Code:

Sub test() 
    Dim Variable As String 
    Variable = Sheet1.Range("A1").Value 
    Sheet2.Select 
    Range(Variable).Select 
    End Sub 

Value in cell A1 = B2:B3 

Der Code perfekt bisher funktioniert. Jetzt möchte ich den "Sheet2" -Teil als eine Variable auf die gleiche Weise wie für den Bereich machen. Ich möchte den internen Blattnamen in eine Excel-Zelle schreiben, um sie variabel zu machen. Ich habe den folgenden Weg bisher versucht, aber es hat nicht funktioniert.

Sub test() 
    Dim Variable As String 
    Variable = Sheet1.Range("A1").Value 
    Variable2 = Sheet1.Range("A2").Value 
    Variable2.Select 
    Range(Variable).Select 
    End Sub 

Value in cell A1 = B2:B3 
Value in cell A2 = Sheet2 

Haben Sie eine Idee, wie ich dieses Problem lösen kann?

Vielen Dank für jede Hilfe im Voraus.

Answer 1

Sheets(Variable2).Range(Variable).Select 

---

EDIT

Wenn Sie das Sheetname unter dem Codenamen eingeben, verwenden Sie eine Funktion wie diese zurückzukehren, um die richtige Blattnamen erhalten möchten:

Function getSheet(codename_ As String) As String 
'returns the Sheet name corresponding to the Codename 
Dim ws As Worksheet 

For Each ws In Worksheets 

    If ws.codename = codename_ Then 

     getSheet = ws.Name 
     Exit Function 
    End If 
Next ws 
End Function 

Dann sind Sie kann dies wie Sheets(getSheet("CODENAME")).Select

Answer 2

versuchen wi th Code unten

Sub test() 
    Dim Variable As String 
    Variable = Sheet1.Range("A1").Value 
    Variable2 = Sheet1.Range("A2").Value 
    Worksheets(Variable2).Select 
    Range(Variable).Select 
End Sub 

EDIT - 1

Sheets(Val(Replace(variable2, "Sheet", ""))).Select