"TableExists" erzeugt Fehlermeldung...
01.10.2004 10:02:38
Peter
mit untenstehendem Code möchte ich verhindern, daß bei fehlender Tabelle "2003" oder "2004" usw. bis "2009" der OptionButton6 betätigt werden kann, jedoch sagt der Kompiler zu "TableExists" "Sub oder Function nicht definiert"......wer weiß darüber Bescheid?
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 3 To 9 Step 1
If Not TableExists(ThisWorkbook, Sheets("200" & i)) Then
OptionButton6.Enabled = False
Next i
Else: OptionButton6.Enabled = True
End If
End Sub
Danke
Peter S.
Anzeige