Fehlermeldung abfangen
02.01.2015 11:33:06
Wolfgang
Hallo,
den nachfolgenden Code habe ich mit dem Makrorekorder erstellt. Er soll im ersten Abschnitt bewirken, die Inhalte der Seite Textimporte und auch evtl. Verknüpfungen zu löschen. Es erscheint dabei allerdings eine Fehlermeldung, wenn keine Datenverknüpfungen gegeben sind. Wie könnte ich da vorgehen?
Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub Seitenloeschen()
'löscht Inhalte der Seite Textimport
Sheets("Textimport").Select
Cells.Select
Selection.QueryTable.Delete
Selection.ClearContents
Range("A1").Select
'löscht Zeile2 der Seite Zwischenpark
Sheets("Zwischenpark").Select
Rows("2:2").Select
Selection.ClearContents
Range("A2").Select
End Sub
Anzeige