Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
752to756
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
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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

84 Forumthreads zu ähnlichen 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
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
1
13
2
6
4
2
3
3
2
1
5
2
2
5
1
1
1
6
3
10
1
1
2