Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle AUswerten: Einträge und Anzahl in A

Tabelle AUswerten: Einträge und Anzahl in A
19.10.2005 16:05:19
Martin
Hallo,
hatte die Frage unten in diesem Thread/Forum schon mal, sie ist aber noch offen, deswegen poste ich nochmal diesmal mit einer besseren Beschreibung wie ich hoffe:
Habe eine Tabelle mit (sehr vielen) Einträge für Standorte in Spalte A ("Hamburg", "Stuttgart") und brauche jetzt ein Stück VBA-Code (Keine Formeln, das geht aus anderen Gründen nicht), daß die Spalte A in eine andere Spalte eines Tabellenblatts auswertet:
Spalte A: Hamburg, Spalte B: 19 (d.h.: Hamburg kommt 19mal vor) für alle verschiedenen Einträge in A. (Also eigentlich Pivot oder Subtotals in Excel, aber diese beiden Ansätze bekomme ich nicht klar in VBA hin.)
Wer kann mir da helfen, ich schaff es nicht.
Gruss,
Martin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle AUswerten: Einträge und Anzahl in A
19.10.2005 16:40:58
UweD
Hallo
so mal als Denkanstoß...

Sub tt()
Dim L1%, LR%, Sp%, Z
Sp = 1 'für Spalte A
L1 = 1 'ab Zeile 1
LR = Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
For Z = L1 To LR
If Cells(Z, Sp).Value <> "" Then
Cells(Z, Sp).Offset(0, 1).Value = Application.CountIf(Columns(Sp), Cells(Z, Sp).Value)
End If
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Tabelle Auswerten: Einträge und Anzahl in A
19.10.2005 20:16:03
Martin
super! wäre ich nie drauf gekommen, jetzt möchte ich aber noch eine Liste wo alle mehrfach (und natürlich auch nur einmal) vorkommenden Einträge in Spalte A in eine andere Tabelle kopiert werden, soetwas wie "Spezialfilter" "Keine Duplikate" aber eben ohne Spezialfilter - wie macht man das nur?
Jeder Tipp hilft,
Martin
Anzeige
AW: Tabelle Auswerten: Einträge und Anzahl in A
20.10.2005 10:08:36
UweD
Hallo nochmal
Spezialfilter ja... aber per VBA

Sub UD()
Dim TB1, TB2, L1%, LR%, Sp1%, Z, T1%, Sp2%
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
Sp1 = 1 'für Spalte A
L1 = 2 'ab Zeile 2 bearbeiten
T1 = 1 'Erste Zeile des Zielbereichs
Sp2 = 5 'Spalte für Zielbereich
'Spezialfilter per VBA
TB1.Columns(Sp1).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=TB2.Cells(T1, Sp2), Unique:=True
'Ermittlung letzte Zeile vom Zielbereich
LR = TB2.Cells(Rows.Count, Sp2).End(xlUp).Row 'letzte Zeile der Spalte
' Zählewenn
For Z = L1 To LR
If TB2.Cells(Z, Sp2).Value <> "" Then
TB2.Cells(Z, Sp2).Offset(0, 1).Value = Application.CountIf(TB1.Columns(Sp1), TB2.Cells(Z, Sp2).Value)
End If
Next
End Sub

hier die Musterdatei: https://www.herber.de/bbs/user/27661.xls
Gruß UweD
(Rückmeldung wäre schön)
Anzeige

28 Forumthreads zu ähnlichen Themen

Anzahl Zellen - zwischen 80 und 200 - Filter
dwettig

Hallo,
ich möchte die Anzahl von Zellen zählen deren INhalt zwischen a und b liegt. Erschwerend kommt hinzu, das es nur für gefilterte Zeilen gelten soll.
Ich habe es bisher versucht mit:
=ZÄHLENWENN(AD12:AD1500;">80")-ZÄHLENWENN(AD12:AD1500;">200")
Da werden aber auch d...
13.08.2008 09:27:02
Thread-ID: 1001391
8 Beiträge
Anzeige
Anzahl / Anzahl2
Reserl

Hallo Ihr Lieben
wer kann mir denn den Unterschied erklären, die Beschreibung in der Hilfe raff ich nicht ganz?!
Vielen Dank schon mal.
Reserl
23.11.2009 13:28:40
Thread-ID: 1119450
5 Beiträge
Seitenanzahl, Tab1 und Tab2
Manfred

Hallo zusammen,
ist es möglich dieses Makro so umzubauen das es mit Tab1 Zelle X2 so funktioniert das es die untereinanderliegenden Seiten aufzählt danach die in Tab2 Zeile X2 ebenfalls inkl. der aus Tab1. D.h. die Seiten aus Tab1 und Tab2 sind hintereinander beim Ausdrucken Nummeriert.
...
30.11.2009 14:31:32
Thread-ID: 1120955
2 Beiträge
Anzeige
Anzahl gleiche Einträge zählen und in Tab2 kopiere
Tanja

Hallo zusammen
Ich hoffe einmal mehr auf Eure tolle Hilfe :-)
Ich habe eine Datei mit verschiedenen Inhalten. Das heisst es hat z.B. 10 Zeilen mit dem Eintrag "Belegungseinheit 2000" und dann z.B. 34 Zeilen mit dem Eintrag "Belegungseinheit 4000".
Nun habe ich die Auswertung so prog...
28.02.2012 13:17:54
Thread-ID: 1252784
5 Beiträge
Kopfnuss2 - =Anzahl(und hier wirds spannend)
Tom

Hallo liebe Excelfreunde,
Hallo Rene und Werner ;o)
Ich habe nochmal gegrübelt und möchte meine erste Kopfnuss nun um die
2te erweitern.
Im Anhang meine Datei deren Aufgabenstellung klar ist die Umsetzung aber eben nicht,
jedenfalls nicht für mich.
Also an alle sehenden...
02.08.2013 10:26:25
Thread-ID: 1325393
2 Beiträge
Autofilter und Anzahl2
Boory

Hallo Forum,
gibt es eine Möglichkeit, aus einer Spalte mit der Kombination aus "ANZAHL2" und "AUTOFILTER" die jeweils ausgefilteren Werte zu zählen?
Beispiel:
in einer Spalte steht 6x HUHU, 3x HALLO und 9x SERVUS
Autofilter auf "HALLO" => es werden alle anderen Werte ausgefiltert u...
24.07.2002 13:08:44
Thread-ID: 139910
3 Beiträge
über refedit Anzahl Zeilen und Spalten
Schmidti

Hallo da Draußen,
ist es möglich, sich über refedit die Anzahl der markierten Zeilen und Spalten zurückgeben zu lassen. Zur Zeit geht mein Makro in die Zelle oben links und sucht dann die letzte beschriebe Zeile und dann die letzte beschriebene Spalte bzw. habe ich noch die Möglichkeit dies...
27.08.2002 10:45:13
Thread-ID: 153146
4 Beiträge
Zählen bis und Anzahl ausgeben
Patrick

Hallo zusammenBei folgendem Problem komme ich nicht weiter:In der Spalte H kommen zwei Nummern vor:
Nummer A: 883
Nummer B: 882
wobei die Nummer B einmal oder auch mehrmals nach der Nummer A folgen kann bis wieder die Nummer A kommt.Nun möchte ich in der Spalte N auf der Zeile der Numm...
29.04.2003 08:58:48
Thread-ID: 250376
3 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
7
6
4
1
4
4
1
2
3
2
1
2
12
2
5
6
3
2
5
1
3
3
8
18
9