Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie Blatttyp feststellen?

Forumthread: Wie Blatttyp feststellen?

Wie Blatttyp feststellen?
28.01.2007 22:32:53
Jochen
Hi,
wie kann ich feststellen, ob sich ein Excel 4 Makrosheet in einer
Mappe befindet? Als Typename wird einfach Worksheet ausgegeben.
mfg Jochen
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wie Blatttyp feststellen?
28.01.2007 22:53:33
Nepumuk
Hallo Jochen,
versuch es mal so:
Public Sub test()
    Dim objSheet As Object
    For Each objSheet In ThisWorkbook.Sheets
        Debug.Print objSheet.Type
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Wie Blatttyp feststellen?
28.01.2007 23:17:55
Jochen
Hi,
irgenwie haut das nicht hin, habe aber keine Ahnung, was da schief läuft.
Laut Hilfe ist ein Chart xlChart = -4109, bei mir wird aber 3 angezeigt,
3 ist aber eigentlich xlExcel4MacroSheet, xlDialogSheet = -4116 wird gar nicht
angezeigt, obwohl vorhanden. Hast du eine Erklärung?
mfg Jochen
Anzeige
AW: Wie Blatttyp feststellen?
28.01.2007 23:41:41
Nepumuk
Hallo Jochen,
wieder mal so eine Ungereimtheit von MS. Ein DialogSheet hat gar keine Type - Eigenschaft. Aber so bekomme ich es raus:
Public Sub test()
    Dim objSheet As Object
    For Each objSheet In ThisWorkbook.Sheets
        Select Case TypeName(objSheet)
            Case "Chart": Debug.Print "Diagramm", objSheet.Name
            Case "DialogSheet": Debug.Print "Dialog", objSheet.Name
            Case "Worksheet"
                If objSheet.Type = xlWorksheet Then
                    Debug.Print "Worksheet", objSheet.Name
                Else
                    Debug.Print "Makrosheet", objSheet.Name
                End If
        End Select
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: Wie Blatttyp feststellen?
29.01.2007 15:14:19
Jochen
Hi,
laut Hilfe ist Dialogsheet xlDialogSheet = -4116, wat nu?
Dein würgaround funktioniert, natürlich!
mfg Jochen
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige