Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Abfrage, ob Tabellenblatt richtig ist

Forumthread: Abfrage, ob Tabellenblatt richtig ist

Abfrage, ob Tabellenblatt richtig ist
29.01.2004 13:37:26
Matze
Hallo,
ich brauche in VBA eine Überprüfung, ob das geöffnete Blatt auch eine Tabelle enthält.
Weiss jemand wie ich sowas abfragen kann?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage, ob Tabellenblatt richtig ist
29.01.2004 13:41:52
Josef Ehrensberger
Hallo Matze!
Nur als Beispiel.


Sub BlattDa()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Sheets
If wks.Name = "DasBlatt" Then
MsgBox "Blatt da"
Exit Sub
End If
Next
MsgBox "Blatt nicht da"
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
Weiss leider den Namen nicht, bzw. gibt mehrere
29.01.2004 13:45:13
mATZE
Hi,
es gibt verschiedene Namen von Dateien, wo das Makro laufen soll.
Ich muss jedoch zunächst überprüfen, ob es auch wirklich eine Tabelle ist, oder ein Diagramm, da das Makro Zelleninhalte ausliest und bei Diagrammen natürlich Fehler verursacht.
AW: Abfrage, ob Tabellenblatt richtig ist
29.01.2004 13:48:52
Boris
Hi Matze,
die "brutale" Methode:

Sub test()
Dim C As Range
On Error GoTo fehler
Set C = [a65536]
Exit Sub
fehler:
MsgBox "Das ist keine Tabelle...", , "Gebe bekannt..."
End Sub


Grüße Boris
Anzeige
etwas sanfter
29.01.2004 14:28:20
FCH
Hi,
so:

Sub binicheineTabelle()
Dim strWks As String
Dim strEX As String
Dim blTAB As Boolean
strWks = ActiveSheet.Name
strEX = "Get.Document(3,""" & strWks & """)"
blTAB = Application.ExecuteExcel4Macro(strEX) = 1
If blTAB = True Then
MsgBox "Jau bin eine Tabelle"
Else
MsgBox "Nö bin keine Tabelle"
End If
End Sub

Gruß
Jürgen
Anzeige
AW: Abfrage, ob Tabellenblatt richtig ist
29.01.2004 15:52:07
k.Rola
Hallo,

Sub teste()
MsgBox TypeName(ActiveSheet)
End Sub

Gruß K.Rola
Konnte mir auch eigentlich nicht vorstellen...
29.01.2004 16:03:21
Boris
Hi K.Rola,
...dass es dafür nix gibt (hatte es aber nicht gefunden...).
Grüße Boris
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum