Hallo ihr Excelspezialisten,
mittels nachstehendem Code prüfe ich, ob ein bestimmtes Tabellenblatt vorhanden ist.
Wenn es vorhanden ist, wird dieses ausgewählt:
<pre>Sub AR_Scantabelle_aktuell_auswählen2()
Dim wks As Worksheet
Dim varArr() As Variant
Dim Such As String
Such = "AR_Scantabelle_" & Worksheets("Hilfstabelle").Range("W15")
ReDim varArr(0)
For Each wks In ActiveWorkbook.Worksheets
If (wks.Name) = Such Then
varArr(UBound(varArr)) = wks.Name
ReDim Preserve varArr(UBound(varArr) + 1)
End If
Next
ReDim Preserve varArr(UBound(varArr) - 1)
Sheets(varArr).Select
End Sub</pre>
Was muss ich bitte einfügen, damit eine Meldung folgt "nicht vorhanden" und exit Sub
wenn Wert W15 nicht gefunden?
Besten Dank für eure Hilfe.
Gruss
Peter