Wenn ich ein Sheet (KW42) mit einer Variable die aus einer Schleife ausgegeben wurde versuche auszuwählen erhalte ich eine Fehlermeldung.
Wenn ich aber die Variable ohne das "&" schreibe funktioniert es.
Sub KWSheetZählerTest()
Dim Zaehler As Integer
For Zaehler = 1 To 52
If Zaehler = "52" Then GoTo Ende
'ShZl = "KW42" 'Funktioniert
SheetZaehler = "KW" & Zaehler 'Funktioniert nicht
MsgBox (SheetZaehler)
If SheetZaehler = Sheets(SheetZaehler).Select Then GoTo Ausgabe
nexts:
Next Zaehler
Ausgabe:
MsgBox (Zaehler)
GoTo nexts
Ende:
End Sub
Gruß Martin