Anzahl Blätter in geschlossener Datei

• Anzahl Blätter in geschlossener Datei von Carsten vom 09.12.2003 11:36:46
  • AW: Anzahl Blätter in geschlossener Datei - von Matthias G am 09.12.2003 11:43:13
    • AW: Anzahl Blätter in geschlossener Datei - von Carsten am 09.12.2003 12:02:28
  • AW: Anzahl Blätter in geschlossener Datei - von Michael Scheffler am 09.12.2003 11:44:25
    • AW: Anzahl Blätter in geschlossener Datei - von Carsten am 09.12.2003 12:00:25

Betrifft: Anzahl Blätter in geschlossener Datei
von: Carsten
Geschrieben am: 09.12.2003 11:36:46
Hallo zusammen,

ich versuche gerade mit einer eigenen Funktion die Anzahl der in einer geschlossenen Datei enthaltenen Blätter anzuzeigen.

Damit klappt es leider nicht.

Function Seiten() As String
Seiten = ThisWorkbook.Path & "\Objektkontrollen\" & [C6] & "-" & [c8] & "-" & [F8] & ".xls" Sheets.Count
End Function

Wie müsste die Funktion korrekt aussehen?

Gruß
Carsten

Betrifft: AW: Anzahl Blätter in geschlossener Datei
von: Matthias G
Geschrieben am: 09.12.2003 11:43:13
Hallo Carsten,
du musst wohl die Mappe öffnen:

Function Seiten()
Application.ScreenUpdating = False
Workbooks.Open ThisWorkbook.Path & "\Objektkontrollen\" & [C6] & "-" & [c8] & "-" & [F8] & ".xls"
Seiten = ActiveWorkbook.Sheets.Count
ActiveWorkbook.Close
Application.ScreenUpdating = True
End Function

Mit screenupdating=false erreichst Du aber, dass die Mappe nicht angezeigt wird.

Gruß,
Matthias

Betrifft: AW: Anzahl Blätter in geschlossener Datei
von: Carsten
Geschrieben am: 09.12.2003 12:02:28
Hallo Matthias,

ich habe eine Datei in der per Gültigkeitsliste Datensätze auswählen kann. Ich möchte nun anzeigen lassen, wieviele Kommentare bereits zu diesem Satz gespeichert sind.
Da ist das Öffnen und Auslesen zu kompliziert.

Trotzdem danke für den Vorschlag.

Gruß
Carsten

Betrifft: AW: Anzahl Blätter in geschlossener Datei
von: Michael Scheffler
Geschrieben am: 09.12.2003 11:44:25
Mit ADO könnte es was werden.

Gruß

Micha

Betrifft: AW: Anzahl Blätter in geschlossener Datei
von: Carsten
Geschrieben am: 09.12.2003 12:00:25
Ahhhh ja, hast Du seine Adresse?

Sorry Michael, aber was bitte ist ADO???

*dummausderWäschekuck*

Gruß
Carsten

Excel-Beispiele zum Thema " Anzahl Blätter in geschlossener Datei"
Seitenanzahl eintragen	Funktion ANZAHL2 ohne ausgeblendete Spalten
Anzahl der über ParamArray festgelegten Parameter	Anzahl eines bestimmten Wochentages im Monat
Anzahl der einzufügenden Zeilen abfragen	Bestimmte Anzahl von Zeichen zulassen
Seitennummer und Seitenanzahl per VBA in Kopfzeile	Nur AJM in TextBox akzeptieren und Anzahl zählen
Anzahl von CheckBoxes in einer UserForm ermitteln	Anzahl der gelb hinterlegten Zellen ermitteln