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

Abfrage, ob Tabellenblatt richtig ist

Abfrage, ob Tabellenblatt richtig ist
29.01.2004 12: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?

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

Betreff
Datum
Anwender
Anzeige
AW: Abfrage, ob Tabellenblatt richtig ist
29.01.2004 12: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 12: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 12: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
etwas sanfter
29.01.2004 13: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 14:52:07
k.Rola
Hallo,

Sub teste()
MsgBox TypeName(ActiveSheet)
End Sub

Gruß K.Rola
Konnte mir auch eigentlich nicht vorstellen...
29.01.2004 15:03:21
Boris
Hi K.Rola,
...dass es dafür nix gibt (hatte es aber nicht gefunden...).
Grüße Boris

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige