Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
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

Auszählen einer Spalte

Auszählen einer Spalte
13.04.2006 15:16:26
Andi
Hallo zusammen,
hat jemand eine Idee, wie ich folgendes realisieren könnte:
Ich habe ein Tabellenblatt, in dem eine Spalte mit mehreren Kategorien steht.
(Bsp. Lüfter, Kühler, Netzteil, usw.)
Jetzt brauche ich ein Makro, das die verschiedenen Kategorien aufführt und mir die jeweilige Anzahl der Kategorien zählt und in ein neues Tabellenblatt schreibt.
Ergebnis Bsp.:
Lüfter:3
Kühler:10
Netzteil:7
usw.
Die Kategorien sind sehr unterschiedlich und so kann ich die nicht alle abfangen.
Danke für Eure Hinweise!
Andi

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Auszählen einer Spalte
13.04.2006 15:23:24
Gerd
ZÄHLENWENN()
mfg Gerd
AW: Auszählen einer Spalte
13.04.2006 15:31:43
Andi
Hallo Gerd,
bin leider nicht sehr VBA bewandert, kannst Du die Funktion etwas genauer beschreiben?
Vielen Dank
Andi
AW: Auszählen einer Spalte
13.04.2006 15:52:43
Franz
Hallo Andi,
mit folgendem Makro kannst du die Kategorien auswerten. Das Ergebnis wird dabei in eine 2. Tabelle geschrieben. Die Tabellennamen und den Bereiche mit den Kategorien muß du ggf. noch anpassen.

Sub Kategorien()
Dim Kategorien As Range, wks As Worksheet, vorhanden As Boolean
With ThisWorkbook.Sheets("Tabelle1")
Set Kategorien = .Range("B2:B" & .UsedRange.Rows.Count) ' Bereich mit den Kategorien
End With
Set wks = ThisWorkbook.Sheets("Tabelle2") 'in diese Tabelle wird die Auswertung geschrieben
'Kategorien auslesen
wks.Range("A2:B65000").ClearContents 'Löschen der Altdaten
Zeile = 2
wks.Cells(Zeile, 1) = Kategorien(1, 1)
For I = 2 To Kategorien.Rows.Count
vorhanden = True
For J = 2 To Zeile
If Kategorien(I) = wks.Cells(J, 1).Value Then
vorhanden = False
Exit For
End If
Next J
If vorhanden = True Then
Zeile = Zeile + 1
wks.Cells(Zeile, 1).Value = Kategorien(I)
End If
Next I
'Kategorien zählen
For J = 2 To Zeile
wks.Cells(J, 2).Value = Application.WorksheetFunction.CountIf(Kategorien, wks.Cells(J, 1).Value)
Next J
End Sub

Anzeige
Zusatzfrage
13.04.2006 16:10:58
Andi
Hallo Franz,
man, klasse Sache, funktioniert einwandfrei!!!
Kannst Du mir auch noch veraten, wie ich das auf 2 Spalten erweitern kann?
Quasi
Spalte 1 als Hauptkategorie und
Spalte 2 als Unterkategorie
Vielen Dank!!
Andi
AW: Zusatzfrage
13.04.2006 20:37:34
Franz
Hallo Andi,
hier die Variante für Kategorie und Unterkategorie 

Sub KategorienPlusUkat()
' Erfasst Kategorien mit Unterkategorien und ermittelt die Anzahl
Dim Kategorien As Range, wks As Worksheet, vorhanden As Boolean
With ThisWorkbook.Sheets("Tabelle1")
Set Kategorien = .Range("A2:B" & .UsedRange.Rows.Count) ' Bereich mit den Kategorien und unter-Kategorien
End With
Set wks = ThisWorkbook.Sheets("Tabelle2") 'in diese Tabelle wird die Auswertung geschrieben
'Kategorien auslesen
wks.Range("A2:C65000").ClearContents 'Löschen der Altdaten
Zeile = 2
wks.Cells(Zeile, 1) = Kategorien(1, 1)
wks.Cells(Zeile, 2) = Kategorien(1, 2)
For I = 2 To Kategorien.Rows.Count
vorhanden = True
For J = 2 To Zeile
If Kategorien(I, 1) & Kategorien(I, 2) = wks.Cells(J, 1).Value & wks.Cells(J, 2).Value Then
vorhanden = False
Exit For
End If
Next J
If vorhanden = True Then
Zeile = Zeile + 1
wks.Cells(Zeile, 1).Value = Kategorien(I, 1)
wks.Cells(Zeile, 2).Value = Kategorien(I, 2)
End If
Next I
'Kategorien + Unterkategorien zählen
For J = 2 To Zeile
wks.Cells(J, 3).Value = 0
For I = 1 To Kategorien.Rows.Count
If Kategorien(I, 1) & Kategorien(I, 2) = wks.Cells(J, 1).Value & wks.Cells(J, 2).Value Then
wks.Cells(J, 3).Value = wks.Cells(J, 3).Value + 1
End If
Next I
Next J
End Sub

Gruß
Franz
Anzeige
AW: Alternative: Pivot-Tabellenbereicht
14.04.2006 02:02:32
Franz
Hallo Andi,
man kann die Kategorien auch mit einem Pivot-Tabellenbericht auswerten.
Kategorie und Unterkategorie unter Zeilen einfügen und unter Daten die Unterkategorien mit Funktion Anzahl (ist bei textfeldern Standard).
Die Summenzeilen der Unterkategorien kann man nach anklicken ausblenden.
Gruß
Franz

301 Forumthreads zu ähnlichen Themen

Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Anzeige
3D Diagramm erstellen aus Matrix
Kay

Hallo,
Ich habe in Excel eine Matrix, die folgendermaßen aufgeteilt ist
A B C D
15 12% 10% 15% 20%
30 10% 13% 17% 19%
45 8% 12% 15% 17%
Wie bekomme ich es nun hin, dass mir auf der Größenachse alle %-Werte, auf der Rubrikenachse die Zeile...
29.10.2008 21:38:38
Thread-ID: 1020422
7 Beiträge
Wie Säulendiagramm mit Tabelle mit gestapelten Säu
sohsoh

Hallo,
ich habe folgendes Problem und schon wie ein Irrer probiert, aber bis jetzt noch keine Lösung gefunden.
Ich habe zu Verschiedenen Stoffen jeweils 2 Messwerte in 3 Verschiedenen Zuständen. Jetzt möchte ich ein Säulendigramm erstellen in denen ich 3 Säulen (zu den drei Zuständen je...
14.01.2009 10:48:22
Thread-ID: 1039519
2 Beiträge
Anzeige
Pivot Tabelle in Array auslesen & neu erstellen
Andreas

Hallo Herber Fans,
da PivotTabellen sich nicht immer rational verhalten, ist es zuweilen notwendig, diese zu löschen und komplett neu aufzubauen, damit sie wieder fehlerlos sind und andere VBA Codes die mit ihnen arbeiten, nicht zum Absturz bringen.
Was ich nun realisierte, war ein Code...
12.02.2009 19:20:00
Thread-ID: 1050227
4 Beiträge
Tabellenblätter aus Liste erstellen
StefanS

Guten Morgen,
kaum hat der Tag begonnen und schon hänge ich wieder fest!
Diesmal soll aus einer Liste (bezugnehmend auf die Spalte Section) div.Tabellenblätter mit der Bezeichnung Register_1 usw. erstellt werden. Die Anzahl der neuen Tabellenblätter entspricht der Anzahl der aufgeführt...
12.05.2009 08:10:21
Thread-ID: 1074477
6 Beiträge
Tabellenblatt mit mehreren Diagrammen erstellen
wernerp

Ich habe ein Tabellenblatt mit mehreren Datenblöcken, aus denen ich
Säulendiagramme erstellen und auf dem Tabellenblatt ablegen will.
Es ist das erstenmal, dass ich dabei mit dem ChartObjekt arbeite.
Die Erstellung eines Diagramms bekomme ich hin. Das Problem ist,
dass die n...
21.08.2009 11:59:29
Thread-ID: 1097642
3 Beiträge
alle Tage außer Sonntag in einer Spalte anzeigen
lisa

Hallo
Es ist immer schwierig zu schreiben was mann will.
In der Recherche finde ich zu diesem Zhema Datum recht viel aber nicht das was ich gern umsetzen möchte. Viellleicht gehts auch gar nicht?
Also Ich habe eine Datum SpalteU Diese fängt an mit dem Datum 28.12.2008 und ist vortl...
02.11.2009 12:28:01
Thread-ID: 1113792
4 Beiträge
Erstellen einer weiteren Graphik aus Wertetabelle
Ganna

Hallo,
nachdem ich nach der Berechnung eine Wetetabelle bekomme und mit 1. und 2. Spalte eine Graphik erstelle, möchte ich nun einen weitern Graph aus dieser Tabelle als Zusatzdiagrammblatt mit 1. und 3. Spalte erstellen. Habe ein Teil noch mal kopiert und statt 2 die 3 geschrieben, sowie G...
12.11.2009 12:09:45
Thread-ID: 1116444
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
8
1
6
1
5
3
5
2
3
3
6
3
1
3
4
8
4
3
1
3
5
4
5
1
4