wie lautet der Code, wenn ein ausgeblendetes lt. Zellwert A1 eingeblendet und ausgewählt werden soll?
A1 = Tabelle1, Tabelle2, Tabelle3 (variabel)
Name der Tabellenblätter = Tabelle1, Tabelle2, Tabelle3 usw.
Vielen Dank im Voraus
Harald
With Sheets(Range("A1").Value)
.Visible = True
.Activate
End With
Sub test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = Sheets("Tabelle1").Cells(1, 1).Value Then
ws.select
End If
Next ws
End Sub
oder ganz kurz:
Sheets(Sheets("Tabelle1").Cells(1, 1).Text).Select
Grüße, Bernd