Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle AUswerten: Einträge und Anzahl in A

Forumthread: 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
Anzeige

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)
Anzeige
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
;

Forumthreads zu verwandten 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
Mittelwert von Stundenanzahl und Überstunden
Stundenanzahl

Hi,
in folgender Tabelle möchte ich den Mittelwert der Wochenstunden(blau) oben bilden bei "Osterhase", Problem hierbei, wie kann ich das machen ohne 50 Felder im Mittelwert reinzuschreiben ? Eigene Funktion definieren mit zähler +6 ?
Weiteres Problem bildet, dass manche noch nicht das...
18.11.2008 14:12:38
Thread-ID: 1025640
7 Beiträge
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
Werte vergleichen und mit ANZAHL2 zusammenrechnen
Martin


Hallo,ich habe zwei Spalten, die ich miteinander vergleichen will [A1:A10] und [B1:B10].
Ist in [A1:A10] ein Wert, der in der entsprechenden Zeile in [B1:B10] ebenfalls vorhanden ist, so soll dieser als "1" gezählt werden.Bsp.:
A1= 1
A2= 2
A3= 3
A4= 4
A5= 5
A6= 6
A7=...
01.06.2002 17:39:54
Thread-ID: 125255
5 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
Anzeige
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
Anzeige
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
Werte vergleichen und Anzahl der Werte zählen
Holly

Hallo zusammen,

habe hier lange gesucht aber doch keine Lösung im archiv gefunden.

Deswegen die Frage:

Ich möchte einen bereich nach werten durchsuchen und dann die Anzahl der Werte rechts > 0 in abhängikeit davon ausrechnen.

{=SUMME(WENN(Z(-978)S(-4):Z(-9)S(-4)=...
14.08.2003 16:46:48
Thread-ID: 294887
2 Beiträge
Anzahl unterschiedlicher Zahlen und deren Häufigke
paul
Hallo,

ich möchte die Anzahl der unterschiedlichen Zahlen und deren Häufigkeit im Spaltebereich Z1:Z500 angezeigt haben. Eventuell soll ein neues Tabellenblatt erstellt mit den Angaben werden.
0 17x
1 4x
2 1x
3 0x usw.

Hat jemand eine Tip?

Pa...
04.09.2003 12:46:35
Thread-ID: 304813
3 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