Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Prüfen, ob Tabelle vorhanden

Prüfen, ob Tabelle vorhanden
Peter
Hallo zusammen,
ich habe eine Frage - hier anhand eines Einfach-Makro kurz dargestellt:
Sub peter()
If Sheets("Übersicht").Range("D2").Value  "" Then
Sheets("Tabelle2").Range("D2").Value = "A"
End If
End Sub
Wie muss ich den Code ändern, wenn auch geprüft werden soll, ob die Tabelle überhaupt vorhanden ist.
Ist sie nämlich nicht vorhanden, bekomme ich einen Laufzeitfehler 9 "Index ausserhalb des gültigen Bereiches".
Vielen Dank!
Gruß
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Bsp ... ob Tabelle vorhanden
19.03.2011 18:40:36
Matthias
Hallo

Dim mywks As Worksheet
For Each mywks In ThisWorkbook.Worksheets
If mywks.Name = "Tabelle8" Then
MsgBox "Tabelle gefunden"
Exit Sub
End If
Next
MsgBox "nicht gefunden"


wobei Tabelle8 der Registername des Blattes ist (bitte anpassen)
Gruß Matthias
@ Matthias: Danke für die Hilfe!
19.03.2011 18:45:40
Peter
Anzeige

25 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige