HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Ergebnisse per VBA?

Ergebnisse per VBA?
26.03.2005 09:52:27
Erich
Hallo EXCEL-Freunde,
mit Zählenwenn als Formel kann ich ergebnisse ermitteln;
wie müsste denn hier der Code aussehen?
Die einzelnen Namen, Orte und Ziele sind fix und nicht veränderbar;
allerdings kommen diese unterschiedlich oft in den Spalten vor:
Tabelle2
  
 ABC
1NameOrtZiel
2AlbersAugsburgStuttgart
3HuberMünchenDresden
4AlbersHamburgBerlin
5MayerNürnbergStuttgart
6HuberAugsburgBerlin
7AlbersHamburgDresden
8MayerMünchenStuttgart
9   
10Ergebnisse  
11Name  
12Albers3 
13Huber2 
14Mayer2 
15   
16Ort  
17Augsburg2 
18München2 
19Hamburg2 
20Nürnberg1 
21   
22Ziel  
23Stuttgart3 
24Dresden2 
25Berlin2 
Formeln der Tabelle
B12 : =ZÄHLENWENN(A$2:A$8;A12)

B13 : =ZÄHLENWENN(A$2:A$8;A13)

B14 : =ZÄHLENWENN(A$2:A$8;A14)

B17 : =ZÄHLENWENN(B$2:B$8;A17)

B18 : =ZÄHLENWENN(B$2:B$8;A18)

B19 : =ZÄHLENWENN(B$2:B$8;A19)

B20 : =ZÄHLENWENN(B$2:B$8;A20)

B23 : =ZÄHLENWENN(C$2:C$8;A23)

B24 : =ZÄHLENWENN(C$2:C$8;A24)

B25 : =ZÄHLENWENN(C$2:C$8;A25)


 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

Besten Dank für eine Hilfe!

mfg

Erich

http://www.toolex.de

               

   

   
   


            
            

   
   

      

         
         7
         
Beiträge zum Forumthread

         
Beiträge zu diesem Forumthread

      

   

   

               

            
            Betreff
         

         
Datum

         
Benutzer

         

   
   



         
      





            
            
            
                           
                              
                           
                                 
                  

   
   

      

         

                           

                                       
                     AW: Ergebnisse per VBA?
                                 

               

                                       26.03.2005 09:59:22
                                 

                        

                                 Hajo_Zi
                           

         

      

      

                     
Hallo Erich,

warum muß alles per VBA gemacht werden. Excel hat doch auch Klassefunktionen.

Application.Count

Bitte keine Mail, Probleme sollten im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Betriebssystem XP Home SP2 und Excel Version 2003 SP1.





               

   

   
   

                              
                           
                                 
                  

   
   

      

         

                           

                                       
                     AW: Ergebnisse per VBA?
                                 

               

                                       26.03.2005 18:01:16
                                 

                        

                                 Erich
                           

         

      

      

                     
Hallo Hajo,

da das ganze innerhalb eines Codes läuft, muss ich es zwangsläufig einbauen

(siehe meine antwort an ransi).

mfg 

Erich

http://www.toolex.de

               

   

   
   

                              
                           
                                 
                  

   
   

      

         

                           

                                       
                     AW: Ergebnisse per VBA?
                                 

               

                                       26.03.2005 10:50:23
                                 

                        

                                 ransi
                           

         

      

      

                     
hallo erich

markiere b12

geh in den VBA-editor

-direktfenster

-und da dann dies hier rein:

-?activecell.formula

-Enter

gibt für b12:

=COUNTIF(A$2:A$8,A12)

ransi

               

   

   
         



         
      


   

                              
                           
                                 
                  

   
   

      

         

                           

                                       
                     Zwischenlösung
                                 

               

                                       26.03.2005 17:59:43
                                 

                        

                                 Erich
                           

         

      

      

                     
Hallo ransi,

bin einen Schritt weiter; jetzt habe ich noch das Problem, dass die Daten nicht im 

gleichen Blatt sind; wie muss der code geändert werden; meine Versuche waren vergeblich:

Sub Test2()
' Wie muss der Code lauten, wenn die Daten im Sheet "Tabelle1" sind ?
Range("B12") = WorksheetFunction.CountIf(Columns(1), "Albers")
'' ? Range("B12") = Sheets("Tabelle1").WorksheetFunction.CountIf(Columns(1), "Albers") ?
End Sub


mfg 

Erich

http://www.toolex.de

               

   

   
   

                              
                           
                                 
                  

   
   

      

         

                           

                                       
                     ..doch noch gelöst
                                 

               

                                       26.03.2005 18:19:51
                                 

                        

                                 Erich
                           

         

      

      

                     
Sub Test2()
Range("B12") = Application.WorksheetFunction.CountIf(Sheets("Tabelle1").Columns(1), "Albers")
End Sub


mfg 

Erich

http://www.toolex.de

               

   

   
   

                              
                           
                                 
                  

   
   

      

         

                           

                                       
                     AW: Zwischenlösung
                                 

               

                                       26.03.2005 18:22:20
                                 

                        

                                 Josef
                           

         

      

      

                     
Hallo Erich!

Z.b. so.






      

Sub test()

Dim rng As Range

Set rng = Sheets("Tabelle1").Columns(1)

MsgBox Application.CountIf(rng, "Albers")

End Sub 






Gruß Sepp

P.S.: Rückmeldung nicht vergessen!





		
               

   

   
         



         
      


   

                              
                           
                                 
                  

   
   

      

         

                           

                                       
                     Danke Sepp für die Alternative!!
                                 

               

                                       26.03.2005 18:52:05
                                 

                        

                                 Erich
                           

         

      

      

                     
mfg 

Erich

http://www.toolex.de

               

   

   
   

                              
            
            
            
            
                           


               
               

                  
                  



         
      


               

            
            
            
            
            
            
                           


   

      
      Meistgelesene Forumthreads (12 Monate)
   

   
   

 

               

                  
                  



         
      


               

            
            
            

   

      

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