Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1024to1028
1024to1028
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sheets mit gleichem Namesteil zählen

Forumthread: Sheets mit gleichem Namesteil zählen

Sheets mit gleichem Namesteil zählen
14.11.2008 11:41:08
Marc
Hallo ihr Profis,
ich habe eine Datei, in der die einzelnen Tabellen nach Datum benannt sind. Es kann aber auch vorkommen, dass an einem Datum mehrere Tabellen angelegt werden. Die heißen dann z. B. "14.11.2008 Seite 1" und "14.11.2008 Seite 2" usw. Ist es möglich die Tabellenblätter mit dem gleichen Datum im Namen per VBA zu zählen? Ich will also nicht die Anzahl aller Tabellenblätter sondern nur die des gleichen Datums.
Ich danke euch schonmal im voraus!
Grüße,
Marc
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sheets mit gleichem Namesteil zählen
14.11.2008 11:51:00
Chris
Servus Marc,
vom prinzip her so:

Sub t()
Dim i As Long, datum As Date, zähler As Long
datum = "14.11.2008"
For i = 1 To Sheets.Count
If Left(Sheets(i).Name, 10) = datum Then
zähler = zähler + 1
End If
Next i
MsgBox zähler
End Sub


Gruß
Chris

Anzeige
AW: Sheets mit gleichem Namesteil zählen
14.11.2008 12:05:33
Marc
Hallo Chris,
super, das ist genau das, was ich brauchte!
Vielen Dank!!!
Grüße,
Marc
;

Forumthreads zu verwandten Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Diagramm löschen
Bernd

Hallo Gemeinde,
ich wollte in einem Blatt ein Diagramm mitsamt den umgebenden Zeilen löschen.
Nun erscheint das Diagramm als schmaler, nicht anklickbarer Strich und es macht mir lauter Probleme - wie die Fehlermeldung "die Formel enthält einen ungültigen Bezug zu einer externen Tabell...
08.08.2008 15:06:00
Thread-ID: 1000313
6 Beiträge
Sudoku Kontexmenü-Rechts [evtl. Hajo]
Matthias

Hallo
(Level bitte nicht ganz so ernst nehmen)
Folgendes:
In Diese Arbeitsmappe
Option Explicit 'nach einer Idee von Hajo Ziplies 'https://www.herber.de/forum/ _ archiv/972to976/t972675.htm Private Sub Workbook_BeforeClose(Cancel As Boolean) KontextmenueZuruecksetzen End Sub P...
08.08.2008 21:58:35
Thread-ID: 1000418
10 Beiträge
Anzeige
Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Anzeige
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige
Hilfe Kompatibilitätsproblem
christian

Hallo liebe Excel Gemeinde,
ich habe leider immer noch das Kompatibilitätsproblem!
Zum Verständnis nochmal die Anforderungen an den Code:
Importieren aller in einem Ordner befindlichen Textdateien (Messwerte) in neue Tabellenblätter
Das funktioniert auch alles super, da hat Rud...
11.08.2008 15:48:30
Thread-ID: 1000895
13 Beiträge
Formel für nur Zahlen addieren?
Tom

Hi,
ich schreib mir gerade ein kleines Kostenformular. Dazu schreib ich in Zeile 5 das Datum und in Zeile 6 den Betrag.
5: 6.7.2008
6: 300€
Gibt es jetzt eine Möglichkeit mit VBA oder lieber ohne, nur die Eurobeträge zu addieren ohne die Datums Zahlen? Also das € Zeichen kann re...
11.08.2008 16:29:04
Thread-ID: 1000906
5 Beiträge
Makro läuft nicht
alifa

Hallo VBA Gemeinde,
obwohl nur zehn Ziffern, kommt die Meldung: Überlauf. Habe schon alles versucht, Currency, Double. Long hört bei mir bei 2147483467 auf. Decimal nimmt er irgendwie nicht an. Kann jemand helfen?
Sub Alifa() Dim a(0 To 9) As Byte, i As Byte, t As Single For i = 0 To...
11.08.2008 17:39:00
Thread-ID: 1000935
7 Beiträge
Kombinationen mit Zurücklegen ohne Reihenfolge
Christian

Hallo zusammen,
ich suche eine VBA Lösung für folgende Aufgabe:
Gezogen werden "k" Kugeln aus einer Los-Trommel. Die Trommel enthält "n" Kugeln. Die gezogenen Kugeln werden anschließend zurückgelegt. Gesucht sind die möglichen Kombinationen der Ziehungen. Dabei kommt es nicht auf die Re...
11.08.2008 22:53:00
Thread-ID: 1001022
10 Beiträge
Wie müsste die Schleife aussehen?
Captain

Hi,
habe folgenden Code:
Private Sub lst_Gruppe_Detail_AfterUpdate() With Me .lst_Monate.AddItem "Januar" .lst_Monate.AddItem "Februar" .lst_Monate.AddItem "März" .lst_Monate.AddItem "April" .lst_Monate.AddItem "Mai" .lst_Monate.AddItem "Juni" .lst_Monate.AddItem "Juli" .lst_Monate.Ad...
12.08.2008 09:59:00
Thread-ID: 1001083
11 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Erweiterung der Schleife für mehrere Spalten
Fred


Hallo zusammen
Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
12.08.2008 13:57:31
Thread-ID: 1001195
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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