Thema Datum  Von Nutzer Rating
Antwort
Rot ZÄHLER : Gleiche Werte zählen
 15.03.2016 12:40:50 Pinkman
NotSolved

Ansicht des Beitrags:
Von:
Pinkman		 Datum:
15.03.2016 12:40:50		 Views:
1839		 Rating:
     
Antwort:
  Ja
Thema:
ZÄHLER : Gleiche Werte zählen		 
Hallo Zusammen,

ich habe eine Tabelle die Werte hat die mehrmals vorkommen. 
In einer neuen Tabelle habe ich die Tabelle bereits so organisiert, dass jeder Wert genau einmal vorkommt.
Jetzt möchte ich aber gerne eine Spalte haben (zB Spalte C) die mir jeweils zu Spalte A angibt, wie oft dieser Wert/Zeile in der "unsortierten" Tabelle vorkommt.
Obendrein soll sie in der Spalte "B" der jeweiligen Zeilen nachschauen, ob sie gefüllt ist oder nicht und die dann mitzählen.
Sodass in Spalte "C" beispielsweise der Wert "5/7" rauskommt. -> also 7 gleiche Werte waren vorhanden und davon waren 5 in Spalte B befüllt.
Ich hoffe, dass ich es einigermaßen verständlich vormuliert habe.

Vielen Dank im Voraus

Hier mein Ansatz:


Sub Zähler()
    
    Dim i As Long
    Dim n As Long
    Dim k As Long

  
    Dim letztezeileInS2 As Long

    letztezeileInS2 = Sheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row

     Dim letzteZeileInS1 As Long
    
    Dim zähler As Long
    Dim nenner As Long
    
    
    For i = 2 To letztezeileInV
        
        letzteZeileInS1 = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
       
        zähler = 0 
        nenner = 0
        
        For n = 2 To letzteZeileInS1
       
            
            If Sheets(2).Cells(i, 1).Value = Sheets(1).Cells(n, 1).Value Then
                nenner = nenner +1
                
                If Sheets (2).Cells(2).Value <> ""
                zähler = zähler +1
                
                Sheets(1).Cells(n, 3) = zähler & "/" & nenner
                End If 

            End If
            
        Next n
        
    Next i
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot ZÄHLER : Gleiche Werte zählen
 15.03.2016 12:40:50 Pinkman
NotSolved