Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.05.2025 20:26:36
Frage zur Darstellung von MIN und MAX aus Tabelle 2
16.05.2025 19:04:59
Summenprodukt / Zählenwenn, ausser bestimmter Zeichen
16.05.2025 18:39:38
Unterordner auflisten & Anzahl enthaltener Dateien anzeigen
16.05.2025 16:07:05
#Wert! bei UDF zur Distanzberechnung
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
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For Each ...

Forumthread: For Each ...

For Each ...
07.11.2003 09:39:33
Ron Andres
Hallo,

ich möchte mit ner For Each Schleife alle Blätter (Tabellen und Diagramme) in einem Workbook durchtigern und unerwünschte Tabellen löschen. Ungefähr so

for each x in ActiveWorkbook
....
next x

Welchen Datenwyp muß mein X haben. Es funktioniert nicht mit Worksheets (wegen der Diagramme)..

Gruß Ron Andres
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
Programmierung
Tags
#foreach #sheets #workbook
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: For Each ...
07.11.2003 09:54:58
Galenzo
Hallo,
mit Sheets anstelle von WorkSheets erwischt du auch die Diagrammblätter.
mfg
AW: For Each ...
07.11.2003 09:56:29
Ron Andres
Daran hatte ich auch schon gedacht. Aber Scheets ist die Auflistung aller Blätter. Geht leider nicht...

Gruß Ron Andres
AW: For Each ...
07.11.2003 10:04:07
Galenzo
Warum nicht?
Bei mir geht das so:



Private Sub CommandButton1_Click()
Dim s As Object
    For Each s In Sheets
        MsgBox s.Name
    Next
End Sub

Anzeige
AW: For Each ...
07.11.2003 10:07:20
Yal
Probier etwas so ähnliches:


Sub test()
Dim x
For Each x In ThisWorkbook.Sheets
Debug.Print x.Name & x.Type
If x.Type = -4167 Then Debug.Print vbTab & "'ist sogar eine Tabelle!"
Next x
End Sub


gruß
Yal
AW: For Each ...
07.11.2003 10:04:48
Michael Brueggemann
Hallo Ron,

so sollte es gehen:

Option Explicit


Sub test()
Dim i As Integer
With ThisWorkbook
For i = 1 To .Sheets.Count
' Hier kommt Deine Funktionalitaet
MsgBox .Sheets(i).Name
Next i
End With
End Sub


CIAO
Michael
Anzeige
AW: For Each ...
07.11.2003 10:07:38
Ron Andres
Ja, das geht. Danke.

Aber trotzdem: Gibt es nicht sowas wie for each WokbookItem...
AW: For Each ...
07.11.2003 12:56:04
Michael Brueggemann
Hallo Ron,

es geht natuerlich so. Grundsaetzlich handelt es sich bei "Sheets" moeglicherweise um Objekte von unterschiedlicher Art (Type = xlWorksheet / Type = 3 (=Diagramm)) 


Sub test()
Dim sht As Object
For Each sht In ThisWorkbook.Sheets
MsgBox sht.Name & " : " & sht.Type
Next sht
End Sub


CIAO
Michael
Anzeige

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