Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
332to336
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
332to336
332to336
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 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
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...
Anzeige
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

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige