Hallo Zusammen, ich hab gerade ein kleines Problem mit Excel vba. Ich bekomm es einfach nicht hin. In Zelle E2 von Sheet1 steht sheet2 Dim Tabellenblatt Tabellenblatt = Worksheets("Sheet1").Range("E2").Value msgbox(Worksheets("Tabellenblatt").Range("A1").Value) Mein Versuch hier bringt "Index ausserhalb des gültigen Bereichs" Kann mir vieleicht jemand sagen was ich falsch mache? ich würde nur gern den Bezug auf das andere Tabellenblatt mit der Zelle A1 variabel halten.. Gruß Mike
Hallo, so gehts:
1 | Private Sub CommandButton1_Click() |
2 | Dim Tabellenblatt As Worksheet |
3 | |
4 | For Each Worksheet In ThisWorkbook.Worksheets |
5 | If LCase(Worksheet.Name) = LCase(Worksheets("Sheet1").Range("E2").Value) Then |
6 | Set Tabellenblatt = Worksheet |
7 | End If |
8 | Next Worksheet |
9 | |
10 | MsgBox (Tabellenblatt.Range("A1").Value) |
11 | End Sub |
MfG
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.