Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
348to352
348to352
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Anzahl Blätter in geschlossener Datei

Forumthread: Anzahl Blätter in geschlossener Datei

Anzahl Blätter in geschlossener Datei
09.12.2003 11:36:46
Carsten
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
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Anzahl Blätter in geschlossener Datei
09.12.2003 11:43:13
Matthias G
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
Anzeige
AW: Anzahl Blätter in geschlossener Datei
09.12.2003 12:02:28
Carsten
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
Anzeige
AW: Anzahl Blätter in geschlossener Datei
09.12.2003 11:44:25
Michael Scheffler
Mit ADO könnte es was werden.

Gruß

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

Sorry Michael, aber was bitte ist ADO???

*dummausderWäschekuck*

Gruß
Carsten
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Anzeige
Formatieren als Zahl/Währung im VBA
Nadine

Hallo,
ich habe jetzt folgende Formel im VBA erfasst;
Private Sub FldKurs_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Not IsDate(FldKurs) Then FldKurs = "" Else FldKurs = Format(FldKurs, "#,##0.00 $") End If End Sub
Diese soll bezwecken, dass in einem Textfeld nur eine Zahl st...
20.08.2008 14:28:00
Thread-ID: 1003209
2 Beiträge
Anzeige
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Zahlenkombination
Frank

Hallo Excelgemeinde,
komme irgendwie wieder nicht weiter.
Habe im Archiv was gefunden was nach meinen Vorgaben etwas umgestrickt werden müßte.
Es geht darum von einer Anzahl Zahlen alle möglichen Zahlenkombinationen auszugeben.
Bei dem untenstehenden Makro werden die Ausgangszah...
31.08.2008 16:29:00
Thread-ID: 1006220
4 Beiträge
Zahl vorn/hinten vom Text trennen + Komma
StefanK

Hallo Excel-Freunde
ich möchte gern per Formel folgendes lösen:
in zelle a3 steht
1 haley, bill rock around the clock 1956
jetzt soll in b3 die "1" stehen --- löse ich per Formel mit =LINKS(A3;SUCHEN(" ";A3)-1)
in e3 soll "1956" stehen --- löse ich mit Array-Formel {=...
25.09.2008 19:00:21
Thread-ID: 1012407
12 Beiträge
Datum in Kalenderwoche plus Jahreszahl
Karsten

Hi zusammen,
brauch hierbei Hilfe. Und zwar moechte ich gerne wissen, wie ich ein Datum in Kalenderwoche plus Jahreszahl umwandeln kann. Datum in Kalenderwoche ist ja kein Thema. Ich mache das mit dem Analysis ToolPak. Formel: =WEEKNUM(A1,2) Leider reicht mir aber die Wochenzahl nicht aus....
26.09.2008 17:11:00
Thread-ID: 1012711
4 Beiträge
Textbox Ausgabe als Zahl bzw. Zeit formatieren
Steffan

Hallo ihr lieben,
ich schreib jetzt schon den ganzen Tag an folgender Routine:
Private Sub CommandButton1_Click() Dim z As Integer z = Range("I101").End(xlUp).Row + 1 TextBox1 = Format(CDate(TextBox1.Value), "dd.mm.yyyy") Cells(z, 9) = TextBox1 'Datum des Tauchgangs Cells(z, 12) = Tex...
28.09.2008 20:12:56
Thread-ID: 1012988
6 Beiträge
Anzeige
Zelle auf Inhalt Text oder Zahl prüfen
Moritz

Hallo,
ich habe eine sehr große Tabelle mit Adressen. Problem ist nur, dass die Straßen, PLZ und so nicht untereinander in einer Spalte stehen sondern alle unterschiedlich verrückt sind je nachdem wie viele Vorname oder Nachnamen jemand hat. Es gibt aber ein einheitliches System. Erst kommt...
30.09.2008 10:36:00
Thread-ID: 1013287
3 Beiträge
UDF Rückgabe Betrag, soll als Zahl dargestellt w.
Peter

Guten Tag
Mit Hilfe einer UDF ermittle ich die Summe des absoluten Wertes von numerischen Zellen, die eine bestimmte Vorgabe erfüllen und erhalte somit einen Wert, der NULL oder einen positiven Wert beträgt. Ich habe die entsprechende Variable mit Currency dimensioniert.
Das klappt so w...
14.10.2008 15:59:00
Thread-ID: 1016381
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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