Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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 As Object
    For Each 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)

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