Ich verwende die Arbeitsblatt-Tools „Indexblatt mit Schaltflächen erstellen“ (VBA). Wenn ich eine der Schaltflächen auswähle, wird der Code so ausgeführt, wie er sollte, mit der Ausnahme, dass er ständig die Meldung „ODBC kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt“ ausgibt. Fehler. Das Gleiche gilt für alle Blätter. Was ist das Problem?? Der Code lautet wie folgt:
Sub GoToButton1_Click()
On Error Resume Next
Sheets("ODBC").Aktivieren
Wenn Err <> 0, dann MsgBox „ODBC kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton2_Click()
On Error Resume Next
Sheets("Master").Aktivieren
Wenn Err <> 0, dann MsgBox „Master kann nicht aktiviert werden. Möglicherweise wurde er gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Aktivieren
Wenn Err <> 0, dann MsgBox „ALLES kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton4_Click()
On Error Resume Next
Blätter("BEZAHLT").Aktivieren
Wenn Err <> 0, dann MsgBox „PAID kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton5_Click()
On Error Resume Next
Sheets("SETTLED").Aktivieren
Wenn Err <> 0, dann MsgBox „SETTLED kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton6_Click()
On Error Resume Next
Blätter("GESCHLOSSEN").Aktivieren
Wenn Err <> 0, dann MsgBox „CLOSED kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton7_Click()
On Error Resume Next
Sheets("NON-VIABLE").Aktivieren
Wenn Err <> 0, dann MsgBox „NON-VIABLE kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL").Aktivieren
Wenn Err <> 0, dann MsgBox „LEGAL kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton9_Click()
On Error Resume Next
Sheets("SUMMARY").Aktivieren
Wenn Err <> 0, dann MsgBox „Zusammenfassung kann nicht aktiviert werden. Möglicherweise wurde sie gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton1_Click()
On Error Resume Next
Sheets("ODBC").Aktivieren
Wenn Err <> 0, dann MsgBox „ODBC kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton2_Click()
On Error Resume Next
Sheets("Master").Aktivieren
Wenn Err <> 0, dann MsgBox „Master kann nicht aktiviert werden. Möglicherweise wurde er gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton3_Click()
On Error Resume Next
Sheets("ALL").Aktivieren
Wenn Err <> 0, dann MsgBox „ALLES kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton4_Click()
On Error Resume Next
Blätter("BEZAHLT").Aktivieren
Wenn Err <> 0, dann MsgBox „PAID kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton5_Click()
On Error Resume Next
Sheets("SETTLED").Aktivieren
Wenn Err <> 0, dann MsgBox „SETTLED kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton6_Click()
On Error Resume Next
Blätter("GESCHLOSSEN").Aktivieren
Wenn Err <> 0, dann MsgBox „CLOSED kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton7_Click()
On Error Resume Next
Sheets("NON-VIABLE").Aktivieren
Wenn Err <> 0, dann MsgBox „NON-VIABLE kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton8_Click()
On Error Resume Next
Sheets("LEGAL").Aktivieren
Wenn Err <> 0, dann MsgBox „LEGAL kann nicht aktiviert werden. Möglicherweise wurde es gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub
Sub GoToButton9_Click()
On Error Resume Next
Sheets("SUMMARY").Aktivieren
Wenn Err <> 0, dann MsgBox „Zusammenfassung kann nicht aktiviert werden. Möglicherweise wurde sie gelöscht oder umbenannt.“
Bei Fehler GoTo 0
End Sub