Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro

Forumthread: Makro

Makro
31.03.2007 14:45:00
achim
Hallo Excel Freunde
An die Makro Spezialisten
Wer kann sich meine Beispiels datei ansehen.
Kurz Beschreibung:
Gehe in die einzelnen Spalten suche entsprechende Schlüsselzahl diese merke dir und dann zu einer zahl kombinieren. wenn das geschehen nenne die Anzahl der Kombi zahl. https://www.herber.de/bbs/user/57.xls
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro
ransi
HAllo
Auf die Gefahr hin das ich jetzt Mecker kriege weil ich doch einen Formelvorschlag mache:
Tabelle1

 ABCDEFGHIJ
1Unternehmengebietlagerartikel 1111234 
2112345 Ergebnis    
31313623 3    
41111234      
53124562      
611323      
71241      
82514356      
9421345      
10532343      
1164334343      
12414345      
1352545      
1463234612      
1572323      
161111234      
171111234      
18          
19          
20          

Formeln der Tabelle
ZelleFormel
F3=SUMMENPRODUKT((A2:A65536=F1)*(B2:B65536=G1)*(C2:C65536=H1)*(D2:D65536=I1))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Da rechnet sich nichts zu Tode.
ransi
Anzeige
AW: Makro
31.03.2007 19:58:17
achim
hallo ransi
danke für die rückmeldung u. formel. das ist auch eine gute alternative.
geht aber auch wenn du mich jetzt schlägst ein makro. bitte :-)
danke
achim h.
AW: Makro
ransi
Hallo Achim
Packe diesen Code mal in ein Modul:
Option Explicit



Public Function ungern(bereich As Range, welche_suchen As Range)
Dim arr
Dim Zelle As Range
Dim a As String 'Suchstring
Dim L As Long
Dim wie_oft As Long
arr = bereich 'alles in ein Array
For Each Zelle In welche_suchen 'suchbereich
    a = a & Zelle.Text
Next
For L = 1 To UBound(arr)
    If arr(L, 1) & arr(L, 2) & arr(L, 3) & arr(L, 4) = a Then wie_oft = wie_oft + 1
Next
ungern = wie_oft
End Function


Der Aufruf in der Tabelle geht dann so:
Tabelle1

 ABCDEF
1UnternehmengebietlagerartikelErgebnis1
211234551
31313623 1
41111234 1234
53124562  
611323  
71241  
82514356  
9421345  
10532343  

Formeln der Tabelle
ZelleFormel
E2=ungern(A:D;F1:F4)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Ich würde aber trotzdem Summenprodukt() nehmen.
ransi
Anzeige
AW: Makro
01.04.2007 14:42:18
achim
hallo ransi
danke für deine spitzenarbeit. beispielhaft gut. :-)
gruss
achim h.
;

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