Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswertung über alle Sheets in einer Datei

Forumthread: Auswertung über alle Sheets in einer Datei

Auswertung über alle Sheets in einer Datei
05.04.2006 22:40:39
Peter
Guten Abend
Ich habe eine Datei mit hundert Worksheets. Nun möchte ich im letzten Worksheet eine kleine Auswertung machen.
In der Spalte B möchte ich ab Zeile 4 alle Namen der Worksheets auflisten; in der Spalte C möchte ich ab Zeile 4 die Anzahl der Zahlen, die in den jeweiligen Sheets in Spalte D enthalten sind ausgeben. Gibt es eine elegantere Version, als die Worksheets durch Abtippen zu erfassen und anschliessend mit einer "Anzahl" Formel zu arbeiten?
Danke für jedes Feedback.
Peter
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Auswertung über alle Sheets in einer Datei
05.04.2006 23:07:56
Beni
Hallo Peter,
die Ergebnistabelle muss am Schluss sein.
Gruss Beni

Sub Makro1()
Dim actsh, sh, wsh, lz, lr As Long
actsh = Sheets.Count
Set wsh = Sheets(actsh)
For sh = 1 To Sheets.Count - 1
With Sheets(sh)
lz = .Cells(65536, 4).End(xlUp).Row
lr = wsh.Cells(65536, 3).End(xlUp).Row + 1
If lr < 4 Then lr = 4
wsh.Cells(lr, 2) = Sheets(sh).Name
wsh.Cells(lr, 3) = WorksheetFunction.CountA(Range(.Cells(1, 4), .Cells(lz, 4)))
End With
Next sh
End Sub

Anzeige
AW: Auswertung über alle Sheets in einer Datei
06.04.2006 14:34:02
Peter
Hallo Beni
Dein Beitrag hat mir entscheidend geholfen; ich habe dann allerdings die Abfrage noch etwas modifiziert, damit mir NULL Werte, die nicht zu zählen sind, nicht einen Strich durch die Rechnung machen.
Nachfolgend meine def. Version.
Danke und Gruss, Peter
Option Explicit

Sub Statistik_aktualisieren()
Dim sh, wsh, lr, not_Empty, is_Zero, is_Value As Long
Set wsh = Sheets("Statistik")
wsh.Columns("M:N").ClearContents
For sh = 4 To Sheets.Count - 4
With Sheets(sh)
lr = wsh.Cells(65536, 14).End(xlUp).Row + 1
If lr < 4 Then lr = 4
wsh.Cells(lr, 13) = Sheets(sh).Name
not_Empty = WorksheetFunction.Count(.Columns(18))
is_Zero = WorksheetFunction.CountIf(.Columns(18), 0)
is_Value = not_Empty - is_Zero
wsh.Cells(lr, 14) = is_Value
End With
Next sh
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Aus zwei Tabellen eine Machen
SebastianSchelb

Hallo ich brauche euere Hilfe. Aleine schaffe ich es einfach nicht.
Ich habe eine zwei Tabelle mit Wörtern die zusammengefasst werden soll in eine Tabelle, in welcher aber kein Wort doppelt sein soll. Die anzahl der Wörter der 1. und 2. Tabelle vareieren von Tag zu Tag
Tabelle 1 (in der...
06.10.2008 14:52:00
Thread-ID: 1014455
5 Beiträge
Arbeitsblätter in eine .csv-Datei abspeichern
Dylan666

Hallo,
ich moechte mehrere Arbeitsblaetter einer Excel-Datei gleichzeitig abspeichern als tapstopp-getrenntes .txt, als kommasepariertes .csv-Format oder als neue .xls-Datei (mit nur einer Arbeitsmappe). Dabei sollen nur befuellte Zeilen gespeichert werden. Weiss jemand eine schnelle Method...
14.01.2009 10:18:37
Thread-ID: 1039496
2 Beiträge
Anzeige
2 Word-Dateien zusammenfügen
HansP

Hallo! Im Kern wäre das eine Frage für ein Word-Forum, aber das Ganze muss über Excel laufen...
Ich füge in 2 Word-Dateien Daten aus einer Excel-Tabelle ein. Klappt prima. Nun muss ich aber, die beiden Word-Dateien zu einer zusammenfügen. Ich aus organisatorischen Gründen, kann ich die beid...
03.07.2009 15:47:16
Thread-ID: 1086110
2 Beiträge
aus mehreren Datesätze EINER machen
Joachim

Hallo zusammen,
vielleicht kann mir jemand helfen: Ich habe eine Excelmappe mit Daten ab Zeile 15.
Jede Zeile ist immer ein Datensatz. Ein Datesatz sieht so aus (ich nenn nur mal die betroffenen Zellen):
Spalte D :
reiner Text (string) zB: "LAGER"
Spalte E :
Preis (Zahl...
14.09.2009 14:27:52
Thread-ID: 1102643
14 Beiträge
Anzeige
Aus mehreren Tabellenblätter eine machen
Sascha

Hallo ihr
Ich muss aus mehreren Tabellenblättern eine machen um dann die Daten mittels einer Pivot Tabelle auszuwerten.
Diese Tabellenblätter haben alle den gleichen Kopftext, einzig die darunterliegenden Daten sind verschieden ;)
Nun muss z.B. Tabelle 1, Tabelle 2 usw. in Tabelle...
07.07.2010 22:19:25
Thread-ID: 1166034
3 Beiträge
Anzeige
Mehrere Abfragen in einer Summe zusammenfassen
Jan

Liebe Exel-Profi's,
ich habe ein Problem bei einer Formel. Ich möchte auf einer Übersichtsseite (Tabellenblatt 1) in einer Zelle eine Summe mehrerer Abfragen zusammen fassen. Im Tabellenblatt 2 werden Daten eingegeben.
Im Klartext soll folgendes abgefragt werden:
Wenn A1 = "Versich...
14.09.2011 07:32:16
Thread-ID: 1229794
7 Beiträge
aus 2 Listen eine machen
Uppe

Hallo Experten,
ich steh grad etwas auch dem Schlauch. Das Internet hat mir bisher leider auch nicht geholfen, vielleicht suche ich nach den falschen Schlagwörtern!?
Also, mein Problem:
Ich habe eine Liste1 mit Servern und diversen Daten zu diesen. Die Servernamen kommen in der List...
12.07.2012 13:22:57
Thread-ID: 1270771
5 Beiträge
Berechnung in mehreren Dateien, zusammenfügen
Tobias

Hallo!
Ich benötige nochmal euere Hilfe.
Ich habe einen Ordner mit vielen .xls Dateien. Aus jeder dieser Dateien muss ich die Werte von A1:A30 (in unterschiedlicher Reihenfolge) in eine Vorlage kopieren. In der Vorlage werden von allen .xls Dateien bestimmte Werte zusammengefasst. Hier...
05.11.2012 10:30:01
Thread-ID: 1285296
3 Beiträge
Mehrere Exceldateien in einer Datei zusammenfassen
Chris

Hallo Forum,
ich habe folgendes Problem:
ch bin total Ratlos, habe ein paar ansätze, aber nichts konkretes bin in Makro Programmierung nicht wirklich gut.
Folgendes Szenario:
Ich habe mehrere Exceldateien mit gleicher Struktur in einem Verzeichnis liegen. Alle diese Dateien möch...
19.02.2013 15:03:28
Thread-ID: 1300053
4 Beiträge
alle Dateien im Verzeichnis als pdf speichern
Uwe

Hallo,
wie kann man alle xls-Dateien in einem Verzeichnis als pdf-Datei speíchern.
26.04.2013 09:27:18
Thread-ID: 1310572
4 Beiträge
Mehrere Tabellen in einer Zusammenfassen
Sebastian

Hallo,
Ich habe eine Datei mit ca. 30 Worksheets die gleich aufgebaut sind. Ab Spalte 1, Zeile 18 fangen Datentabellen an, die ich gerne auf einem Sheet zusammenfassen möchte um sie anschließend mit Pivot zu analysieren. Auf den Quellsheets über den Tabellen befinden sich weitere kleine Tab...
16.07.2013 12:36:03
Thread-ID: 1322719
3 Beiträge
mehrere Excel Dateien in einer zusammenfügen
chrbo

Hallo,
ich verzweifele beim Aufnehmen eines Makros. Folgende Aufgabe muss ich täglich erledigen: Ich habe 10 verschiedene Excel Dateien, jede hat die gleiche Spaltenorganisation, aber die anzahl der Zeilen ist unterschiedlich, da täglich welche hinzukommen bzw. gelöscht werden.
Ich habe...
16.08.2013 22:54:48
Thread-ID: 1327246
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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