Zählen wenn als VBA

Hallo und guten Morgen!
Ich habe eine Tabelle, in der ich Aufgaben und Projekte verwalten möchte.
Nun gibt es bei mir Hauptprojekte und daraus resultierende Teilprojekte.
Diese möchte ich nun in einer Spalte zählen lassen.
So zum Beispiel:
Hauptprojekt 1
Hauptprojekt 2
HauptProjekt 3
Teilprojekt 1
Teilprojekt 2
Hauptprojekt 4
Hauptprojekt 5
Teilprojekt 1
Teilprojekt 2
Teilprojekt 3
Ich denke das Schema ist verständlich.
Jetzt frage ich mich, wie ich die Zählerrei hinbekomme. Als erstes habe ich es mit einer Zählenwenn-Formel versucht, die aber superlang wird, da ja berücksichtigt werden muss unter welchen Hauptprojekt das Teilprojekt steht.
Das 2. Problem ist, da ich auch mal ab und zu eine Zeile lösche und somit die Formeln den Bezug verlieren...auch wenn ich mit festen Bezügen arbeite.
Nun lange Rede kurze Frage...wie kann ich in der Spalte E zählen ob in Spalte D Teilprojekt oder Hauptprjekt steht und mit der Berücksichtigung das ja bei jedem neuen Hauptprojekt auch die Zählerrei mit den Teilprojekten neu beginnt.
Im Übrigen Beginnt alles ab Zeile 4, da alles darüber Überschriften und weiterer Kram ist.
Das ganze sollte unbedingt mittels VBA gehen, da ich das an anderer Stelle auch noch benötige...
Vielen Dank
Der Tom

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Option Base 1 Sub Makro1() Dim i As Long Dim AnzHP As Long Dim AnzTP() As Long Dim Zelle As Range '--- Zählen For Each Zelle In Range("D4:D13") If Left$(Zelle, 1) = "H" Then AnzHP = AnzHP + 1 ReDim Preserve AnzTP(AnzHP) Else AnzTP(AnzHP) = AnzTP(AnzHP) + 1 End If Next '--- Ergebnisausgabe im Direktfenster Debug.Print "Anzahl Hautpprojekte: " & AnzHP For i = 1 To AnzHP Debug.Print "Hauptprojekt " & i & " hat " & AnzTP(i) & " Teilprojekte" Next End Sub

Sub zählen() Range("E4").Select ActiveCell.FormulaR1C1 = _ "=IF(RC[-1]="""","""", IF(LEFT(RC[-1],1)=""H"",COUNTIF(R4C4:RC[-1],""H*""),IF(LEFT(R[-1] _ C[-1],1)=""H"",1,R[-1]C +1)))" Range("E4").Select Selection.AutoFill Destination:=Range("E4:E50"), Type:=xlFillDefault Range("E4:E50").Select End Sub

Hi
nee ist wirklich nicht optimal.
der Makrorekorder ist zwar nützlich, zeichnet aber auch viel unnötiges auf (wie sollte er auch wissen, was notwendig ist und was nicht)
daher muss der Code nach der Aufzeichnung noch überarbeitet werden.
im prinzip lässt sich das alles in eine Zeilen zusammenfassen:


Range("E4:E50").FormulaR1C1 = "=IF(RC[-1]="""","""", IF(LEFT(RC[-1],1)=""H"",COUNTIF(R4C4:RC[-1],""H*""),IF(LEFT(R[-1]C[-1],1)=""H"",1,R[-1]C +1)))"

wenn dich die Formeln stören und du lieber feste werte in der Exceltabelle hättest, kannst du den Code so erweitern:


with Range("E4:E50")
.FormulaR1C1 =  "=IF(RC[-1]="""","""", IF(LEFT(RC[-1],1)=""H"",COUNTIF(R4C4:RC[-1],""H*""),IF( _
LEFT(R[-1]C[-1],1)=""H"",1,R[-1]C +1)))"
.formula = .Value
end with

(der . steht für das, was bei WITH beschrieben ist)
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread