Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel um die Anzahl herauszufinden

Formel um die Anzahl herauszufinden
17.03.2017 19:49:34
Lukas
Hallo
Vielleicht hat jemand hier eine Idee
Ich muss in einer Liste die Anzahl der unterschiedlichen Eintrage anzeigen. In Spalte B Vorname, C Nachname, D ein von Datum und in E ein bis Datum. Jetzt wiederholen sich die Namen und ich will wissen wie viele Einträge es sind aber ohne die doppelten.
Bsp.
Markus Bahn 24.12. 30.12
Maria Muster 10.09. 15.09
Maria Muster 10.09. 15.09
Maria Muster 10.09. 15.09
Hans Beispiel 10.09. 15.09
Maria Muster 24.12. 30.12
Anzahl 4
Kennt jemand die richtige Formel?
Gruß Lukas

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

Betreff
Datum
Anwender
Anzeige
AW: Formel um die Anzahl herauszufinden
17.03.2017 20:12:20
ransi
Hallo Lukas,
Mit einer kleinen Hilfsspalte geht z.B. so:
Tabelle1

 ABCDEF
1MarkusBahn24.12.30. DezMarkusBahn24.12.430994
2MariaMuster10.09.15. SepMariaMuster10.09.42993 
3MariaMuster10.09.15. SepMariaMuster10.09.42993 
4MariaMuster10.09.15. SepMariaMuster10.09.42993 
5HansBeispiel10.09.15. SepHansBeispiel10.09.42993 
6MariaMuster24.12.30. DezMariaMuster24.12.43099 
7      

Formeln der Tabelle
ZelleFormel
E1=A1&B1&C1&D1
F1{=SUMME(WENN(E1:E100<>"";1/ZÄHLENWENN(E1:E100;E1:E100)))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi
Anzeige
AW: Formel um die Anzahl herauszufinden
17.03.2017 20:22:50
Lukas
Hallo
Das ist schon ziemlich gut Danke :) gibts noch eine Möglichkeit ohne Hilfsspalte? Oder sogar per VBA?
Danke auf jedenfall für deine Hilfe, wenns keine alternativen gibt dann werd ich die Möglichkeit verwenden. Wollt die Formel nämlich in oben in C1 platzieren sozusagen als anzeige.
Gruß Lukas
AW: Formel um die Anzahl herauszufinden
17.03.2017 20:14:14
onur
Hi,
Diese Formel sucht im bereich A1:A10 (ggf ändern)
=SUMME(WENN(HÄUFIGKEIT(VERGLEICH(A1:A10;A1:A10;0);VERGLEICH(A1:A10;A1:A10;0))>0;1))
mit SUMMENPRODUKT ohne Hilfsspalte
17.03.2017 20:37:56
Christian
hallo Lukas,
einfach mal im Katalog bei Excelformeln.de nachschauen.
http://www.excelformeln.de/formeln.html?welcher=44
Grüße
Christian
Anzeige
AW: Formel um die Anzahl herauszufinden
17.03.2017 21:04:49
Ur-Opa
Hallo Lukas,
falls Du in VBA einsteigen möchtest, nachfolgend ein Code-Beispiel.
Function Anzahl4711(rngInput As Range) As Integer
Dim colTmp As New Collection                          'Objekttyp für beliebige Listen
Dim rngTmp As Range
Dim varTmp As Variant
' Prüfung, ob der Eingabebereich entweder nur aus einer Spalte oder einer Zeile besteht
If rngInput.Columns.Count > 1 And rngInput.Rows.Count > 1 Then
Anzahl4711 = Err()
End If
' Alle Zellen des Eingabebereichs durchlaufen
For Each rngTmp In rngInput.Cells
'Fehler provozieren, falls der Begriff noch nicht in der Liste enthalten ist
On Error Resume Next
varTmp = colTmp.Item(rngTmp.Text)
'Bei Auftreten des Fehlers den Begriff der Liste hinzufügen
'1.Parameter = Listeneintrag, 2.Parameter = Sortierschlüssel
If Err.Number  0 Then
colTmp.Add rngTmp.Text, rngTmp.Text
End If
On Error GoTo 0
Next
'Anzahl der Listeneinträge als Funktionsergebnis zuweisen
Anzahl4711 = colTmp.Count
End Function
Bedingung ist allerdings, dass aus Vorname und Nachname eine Hilfsspalte gebildet wird.
Der Verzicht auf eine Hilfsspalte würde das Coding ziemlich aufblähen.
Bei amerikanischen Namen bräuchte man nur den Mittelinital (Georg W. Gebüsch) als 3. Wert in die Hilfsspalte aufnehmen und die Funktion würde immer noch laufen ;-)
Versuchs mal und Viel Erfolg
Ur-Opa
Anzeige
AW: Formel um die Anzahl herauszufinden
21.03.2017 20:26:25
Lukas
Ich Danke an euch alle für die vielen Ansätze.
Ich habe es vorübergehend mit der summe Produkt Formel gemacht und ev. und werde es versuchen über VBA dauerhaft einzurichten.
=SUMMENPRODUKT((VERGLEICH(A1:A99&"x"&B1:B99;A1:A99&"x"&B1:B99;0)=ZEILE(1:99))*(A1:A99"") *(B1:B99""))
Auf jedenfall vielen vielen Dank, ihr seit großartig
Grüße Lukas

302 Forumthreads zu ähnlichen Themen

Kann Fehler in Formel nicht finden. :(
Alex

Hallo Forum!
Ich habe eine Formel, die ein Moment für eine Schraubverbindung berechnet. Eigentlich ist die Eingabe von Formeln kein Problem für mich, aber irgendwie habe ich in der aktuellen Formel einen Fehler reingepackt, den ich nicht finden kann.
Hier erstmal die Formel:

Hi...
20.08.2008 09:09:00
Thread-ID: 1003086
5 Beiträge
Anzeige
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Zellenformatierung testen - .InsertIndent
Tom

Guten Morgen,
mittels diesem kleinen VBA möchte ich erreichen, dass in Spalte "D" nach "Teilprojekt" gesucht wird.
Wird dieses gefunden, so wird der Text in der Spalte "F" um 2 Einzüge nach rechts verschoben.
Das funktioniert auch soweit.
Private Sub CommandButton2_Click() For...
01.09.2008 10:56:47
Thread-ID: 1006352
3 Beiträge
Anzeige
MultiPage und ImageCombo - Bilder verschwinden
Alfons

Hallo,
ich habe eine UserForm mit einer MultiPage.
In der ersten Registerkarte ist eine ImageCombo.
Die Bilder für die ImageCombo sind in einer ImageList.
Beim starten der UserForm sind die Bilder in der ImageCombo auch zu sehen.
Wird aber zwischendurch ein anderes Register...
15.10.2008 19:38:13
Thread-ID: 1016667
9 Beiträge
Mit LoadPicture Bild aus dem Internet laden
Tobias

Hallo zusammen,
hab mal wieder ein Frage an das Kompetenzteam :).
Möchte in einer Userform ein Firmenlogo anzeigen lassen aber ich will keine Daten irgendwo ablegen. Sollte die Exeldatei mal irgenwo anderst landen ohne zugehöriges IMG wird das Logo nicht mehr angezeigt das will ich verm...
29.10.2008 09:09:00
Thread-ID: 1020141
4 Beiträge
Formel verbinden
Malivendi

Guten Abend,
habe gerade ein problem und komme nicht weiter. Ich gabe eine formel mit der kann ich in einer Tabelle 2 suchen und vergleichen, jetzt müsste ich die formel so erweitern, dass ich in Tabelle 3 , Tabelle 4 usw. suchen und vergleichen kann. In der ersten Tabelle gebe ich die Bez...
04.11.2008 21:31:00
Thread-ID: 1021733
4 Beiträge
Bild in Userform laden
Toby


hallo zusammen
Die aufgabe ist es, mit einer auswahl liste verschiedene Bilder in eine userform zu laden!
die Bilder sollte mit dem Excelfile gespeichert werden können
Zur Zeit mache ich das so, ich lade ein bild mit folgender Funktion in eine Userform
Public Function Bil...
15.12.2008 12:57:09
Thread-ID: 1033005
4 Beiträge
Bild einblenden
Stefan

Hallo Forum,
habe beim suchen im Forum folgenden Code gefunden:
Dim HWH As Object
Sub CommandButton1_Click() CommandButton1.Caption = "Bild" [A300].Activate Set HWH = ActiveSheet.Pictures.Insert("G:\...\....gif") End Sub
Sub CommandButton2_Click() ActiveSheet.Shapes("Pictur...
07.01.2009 13:19:00
Thread-ID: 1037518
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
4
6
9
2
1
8
3
3
3
2
4
4
10
1
5
5
1
1
3
2
6
8
4
7
1