Farben zählen (Spalten und Zeilen weise)

falcon30 · 22.06.2005

Hi,

ich habe noch eine Frage:

Ist es möglich nach der Auswerung die Cockpit-Charts sofort zu erzeugen?

D.h. Wie kann ich von einer anderen Datei aus ein Makro starten?

Grüße
falcon30

Matjes · 22.06.2005

Hallo falcon,

zur 2. Frage:
Du könntest am Ende der Sub AuswertungDerProjektAmpeln vor Aufraeumen: den Makro CockpitZusammenstellen aufrufen.
Unter der Annahme, daß der Makro CockpitZusammenstellen sich in der Mappe Auswertung.xls befindet:

Code:

Application.Run (Auswertung.xls!CockpitZusammenstellen)

zur 1.Frage:

Wie schaffe ich es am Ende die Spalten zu Summieren.
Spalten wären: B55:B54, C55:C54,D5554

Ich kann mir nicht genau vorstellen, was da summiert werden soll.
Kannst Du das auch ein wenig inhaltlich erklären ?

Gruß Matjes

falcon30 · 22.06.2005

Hi,

mit Summieren meinte ich, die Gesamtzahl der rot, gelb, grün bewerteter Felder.

So sieht das Ergebnis bis jetzt aus:

Code:

Spalte	Anz. rot	Anz. gelb	Anz. grün
SYS-Anforder-ungsanalyse	6	2	1
SW-Anforder-ungsanalyse	5	1	0
SW-Design	                5	1	0
SW-Erstellung	                5	2	0
Integration und SW-Test	4	1	0
Systemtest	                7	0	3
Abnahme-
test	                                0	0	0
Projekt-management	5	6	2
Konfigurations-management	8	0	3
Qualitäts-sicherung	                8	2	2
Problem resolutin	                6	5	0

In der nächsten Zeile hätte ich jetzt noch:

Code:

Gesamtzahl rot/gelb/grün     59               20           11

Grüße
falcon30

falcon30 · 22.06.2005

Hi,

ich habe da leider noch einige Fragen:

Ich gebe alle Projekte aus, mit folgendem Makro:

Code:

...
 For x = 1 To l_AnzProjekte
     ->Farben pro Projekt zählen
      l_rot = 0: l_gelb = 0: l_gruen = 0: l_keine = 0
      For sp = 1 To c_QuelleAmpel_Spalten
        With r_Farben.Offset(x, sp)
          If .Interior.ColorIndex = c_CInd_rot Then
            l_rot = l_rot + 1
          ElseIf .Interior.ColorIndex = c_CInd_gelb Then
            l_gelb = l_gelb + 1
          ElseIf .Interior.ColorIndex = c_CInd_gruen Then
            l_gruen = l_gruen + 1
          Else
            l_keine = l_keine + 1
          End If
        End With
      Next
...

Kann hier die Gesamtzahl der Projekte mit ausgegeben werden?

Ab der Zelle M75:M?? stehen die Verantwortlichen für die Projekte. Können die Projektverantwortlichen auch mit Ausgegeben werden.

Gleichzeitig hätte ich gerne eine Ausgabe der Anzahl der betreuten Projekte Pro Projektverantwortlichen.

Vielen Dank!!

Grüße
falcon30

Matjes · 23.06.2005

Hi falcon,

zu

Code:
Spalte Anz. rot Anz. gelb Anz. grün
SYS-Anforder-ungsanalyse 6 2 1
SW-Anforder-ungsanalyse 5 1 0
SW-Design 5 1 0
SW-Erstellung 5 2 0
Integration und SW-Test 4 1 0
Systemtest 7 0 3
Abnahme-
test 0 0 0
Projekt-management 5 6 2
Konfigurations-management 8 0 3
Qualitäts-sicherung 8 2 2
Problem resolutin 6 5 0

In der nächsten Zeile hätte ich jetzt noch:

Code:
Gesamtzahl rot/gelb/grün 59 20 11

Die Werte werden ja in einer Schleife zeilenweise ermittelt.

Vor dieser Schleife 3 Long-Variablen initialisieren, z.B.
rotges=0
gelbges = 0
gruenges =0

In der Schleife, wo die Werte geschrieben werden, fügst du für jede Farbe ein Zeile ein, z.B. rotges=rotges+geschriebener Wert

Dann hast Du nach der Schleife die aufsummierten Werte rotges, gelbges, gruenges. Die kannst Du dann nach der Schleife in die nächste Zeile eintragen. Und in die Zelle davor den Text.

zu:

Kann hier die Gesamtzahl der Projekte mit ausgegeben werden?

Die kann ausgegeben werden - steht in der Variablen l_AnzProjekte

zu

Ab der Zelle M75:M?? stehen die Verantwortlichen für die Projekte. Können die Projektverantwortlichen auch mit Ausgegeben werden.

Gleichzeitig hätte ich gerne eine Ausgabe der Anzahl der betreuten Projekte Pro Projektverantwortlichen.

Ohne komplette Datei und genaue Angabe (von Hand aufgebautes Beispiel-Blatt) ist das nicht zu machen. Im Prinzip sind in den Makros alle Handwerkzeuge dafür vorhanden.

Gruß Matjes

falcon30 · 23.06.2005

Hi,

ich habe es versuch, doch leider bekomme ich es nicht hin. :'(

Hier mein versuch:

Code:

Const c_QuelleQS As String = M75->obere linke Ecke
  Const c_QuelleQS_Spalten = 1
  Const c_QuelleQS_SpaltenUeberschiften = M4
  Const c_QuelleQSNamen As String = M75

-> zu zählende QS-Betreuer
  Const c_X = X
  Const c_Y = Y
  Const c_Z = Z
  Const c_A = A

Code:

 wsq.Activate
    Set r_QS = wsq.Range(c_QuelleQSNamen).Offset(-1, 0)
    
    For zl = 1 To c_QuelleQS_Spalten
     ->QS zählen
      l_X = 0: l_Y = 0: l_Z = 0: l_A = 0: l_kein_Betreuer = 0:
      
      For x = 1 To l_AnzProjekte
        With r_QS.Offset(x, sp)
          If ActiveCell.Value = c_X Then
            l_X = l_X + 1
            ElseIf ActiveCell.Value = c_Y Then
            l_Y  = l_Y + 1
            ElseIf ActiveCell.Value = c_Z Then
            l_Z = l_Z + 1
            ElseIf ActiveCell.Select = c_A Then
            l_A = l_A + 1
                                 
          Else
            l_kein_Betreuer = l_kein_Betreuer + 1
            
          End If
        End With
      Next
     ->ausgeben
      wsz.Cells(l_zeile, 1).Value = Projekte
      wsz.Cells(l_zeile, 2).Value = l_X
      wsz.Cells(l_zeile, 3).Value = l_Y
      wsz.Cells(l_zeile, 4).Value = l_Z
      wsz.Cells(l_zeile, 5).Value = l_A
      wsz.Cells(l_zeile, 6).Value = l_kein_Betreuer

Hiiiiiiiilllllllllllllllllllfffffffffffffffffffffffffeeeeeeeeeeeeeeeee!!

Grüße
falcon30

falcon30 · 23.06.2005

Hi,

kannst Du bitte die Namen entfernen bzw. umbenennen.

habe ich wohl vergessen!

Danke!!

Grüße
falcon30

Matjes · 23.06.2005

Hi falcon,

ich melde mich heute Abend per mail.

Gruß Matjes

falcon30 · 23.06.2005

Bitte verwende dann die E-Mail adresse von gmx und nicht meine Frimenadresse.

Danke!!

Grüße
falcon30

Farben zählen (Spalten und Zeilen weise)

falcon30

Matjes

falcon30

falcon30

Matjes

falcon30

falcon30

Matjes

falcon30

Farben zählen (Spalten und Zeilen weise)

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums