Sub x()
Dim wkb
On Error Resume Next
wkb = Range("A10").Value
If wkb "" Then Sheets(wkb).Activate
End Sub
mfg Ulf
Option Explicit
Sub tst1()
Dim wks As Worksheet
Set wks = Sheets.Range("A10") ' in A10 steht ein Blattname
wks.Activate
' MsgBox wks.Name
End Sub
Sub tst2()
Sheets.Range("A10").Activate
' MsgBox ActiveSheet.Name
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Sub tst2()
Sheets(Range("A10")).Activate
' oder besser (falls der Blattname eine Zahl ist):
Sheets(CStr(Range("A10"))).Activate
' MsgBox ActiveSheet.Name
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Sub Tabwechsel()
Dim TabName As String
TabName = ActiveSheet.Range("A10").Value
MsgBox TabName 'als Test
Sheets(TabName).Activate
End Sub
Option Explicit
Sub tst3()
Dim wks As Worksheet
With Range("A10")
For Each wks In Worksheets
If wks.Name = .Value Then
wks.Activate
Exit For
End If
Next wks
If ActiveSheet.Name .Value Then MsgBox "Blatt '" & .Value & "' nicht gefunden"
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Option Explicit
Sub tst4()
Dim strName As String, wks As Worksheet
strName = Range("A10")
For Each wks In Worksheets
If wks.Name = strName Then
wks.Activate
Exit For
End If
Next wks
If ActiveSheet.Name strName Then MsgBox "Blatt '" & strName & "' nicht gefunden"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort