Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
116to120
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
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

zellinhalte zählen

zellinhalte zählen
29.04.2002 07:43:56
alex
Hallo Forum,

ich möchte in einem bestimmtem bereich z.b.a1:c87 alle unterschiedlichen zellinhalte anzeigen lassen und wenn sie mehrmals vorkommen sollen sie auch noch gezählt werden.

hat jemand eine idee wie man das bewerkstelligen könnte?

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: zellinhalte zählen
29.04.2002 07:59:38
Tobi@s
Hi, wie willst du dir denn die Inhalte anzeigen lassen? Gruß
Re: zellinhalte zählen
29.04.2002 08:21:10
Savarol
=WENN(ZÄHLENWENN($A$1:$C$87;A1)>1;ZÄHLENWENN($A$1:$C$87;A1);"") Allerdings musst du diese Formel für jede Zelle machen.
Re: zellinhalte zählen
29.04.2002 08:21:41
alex
z.B auf einem zweiten tabellenblat
Re: zellinhalte zählen
29.04.2002 08:23:19
alex
ich würde das lieber mit einem makro lösen.
Re: zellinhalte zählen
29.04.2002 11:11:24
Tobi@s
Hi, ich hoffe, das dürfte klappen. Er sucht in einem festzulegenden Bereich (Tabelle1) nach den Begriffen und trägt sie in Tabelle2 in Spalte A ein. Dann sortiert er das ganze und fischt alle doppelten Werte aus und zeigt die korrekte Anzahl (= Spalte B) an und löscht die überflüssigen Zeilen. Hier das Programm: Sub Auslesen() Sheets(1).Select 'Aktiviert erstes Blatt Eingabe = InputBox("Bitte gib Anfangs- und Endbereich ein." & vbCr & _ "(Trennzeichen = Doppelpunkt)") ABereich = Left(Eingabe, InStr(2, Eingabe, ":") - 1) 'AnfangBereich EBereich = Right(Eingabe, Len(Eingabe) - Len(ABereich) - 1) 'EndBereich Range(ABereich).Select 'Anfang ASp = ActiveCell.Column 'AnfangSpalte AZe = ActiveCell.Row 'AnfangZeile Range(EBereich).Select 'Ende ESp = ActiveCell.Column 'EndSpalte EZe = ActiveCell.Row 'EndZeile For x = ASp To ESp 'alle Spalten For y = AZe To EZe 'alle Zeilen Sheets(1).Select 'Aktiviert erstes Blatt Wert = Cells(y, x).Value If Wert <> "" Then 'Wert enthalten? Sheets(2).Select 'Ergebnisblatt Range("A65536").Select Selection.End(xlUp).Select If Selection.Value <> "" Then Cells(ActiveCell.Row + 1, ActiveCell.Column).Select 'rutscht an letzte Stelle ActiveCell.Value = Wert 'fügt Wert ein End If Next Next 'sortiert und kürzt Sheets(2).Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom Ze = 1 Cells(Ze, 1).Select Do Wert = Cells(Ze, 1).Value 'Wert If Wert = "" Then Exit Do Wert1 = Cells(Ze + 1, 1).Value 'nächster Wert If Wert = Wert1 Then 'gleich? Anz = Cells(Ze, 2).Value 'vorhandene Anzahl? If Anz = "" Then Anz = 1 'Ansonsten setzen Cells(Ze + 1, 1).Select 'gezählte Zeile markieren Selection.EntireRow.Delete 'löschen Cells(Ze, 2).Value = Anz + 1 'Anzahl erhöhen Ze = 0 'Am Anfang beginnen End If Ze = Ze + 1 Loop End Sub Cu
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige