Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
856to860
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
856to860
856to860
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige