Office: VBA - Nummerierung mit Kriterien in Excel

Hallo zusammen,

ich denke mal der Titel zusammen mit der angehängten Exceldatei sagt eigentlich schon alles.
Wäre super wenn mir jemand behilflich sein könnte.

:arrow: Das ganze sollte sich nach Möglichkeit im VBA bewerkstelligt werden.

Danke vorab! N3O

 

:arrow: :arrow: Excel 2003

 

Hallo!

Zwei einfache Formeln zum runterkopieren tun's auch...

In A2: =ZÄHLENWENN(C$2:C2;C2)
In B2: =WENN(D2="";"";SUMMENPRODUKT((C$2:C2=C2)*(D$2:D2<>"")))

 

Hallo!

Klappen tut das schon so!

Ich habe allerdings eine Berechnungsdatei mit nachgeschaltetem Makro. Die Datei wie dort dargestellt sieht nur durch das Makro so aus. Wenn ich jetzt nochmal mit Formeln anfange, kann ich noch eine Berechnungsdatei aufmachen was das ganze unnötig aufbläst.... (Vorallem dann wenn die Daten weitaus komplexer sind / Das Beispiel war bewusst einfach gewählt)

:arrow: Ums kurz und verständlich zu machen ich brauche das ganze im VBA! Trotzdem Danke für deine Hilfe. :-)

N3O

 

Hallo!

Zeichne das Eintragen der Formeln und die anschließende Umwandlung in Festwerte doch einfach mit dem Makrorekorder auf.
Dann hast du's in VBA.

 

Fragen über Fragen

Hallo,

das sieht dann wohl so aus:

Code:

Sub Makro4()

    Sheets("Datei").Select
    'Formel
    ActiveCell.FormulaR1C1 = "=COUNTIF(R2C[1]:RC[1],RC[1])"
    'Zelle in der Formel angewandt wird
    Range("B2").Select
    'Bereich
    Selection.AutoFill Destination:=Range("B2:B26"), Type:=xlFillDefault
    Range("B2:B26").Select
            
End Sub

Hab da aber noch Fragen:
1. Wie mache ich dieses Makro unabhängig von einem Bereich (oder anders das Makro soll so lang ausgeführt werden bis Tabelle zu Ende / oder in Spalte A kein Eintrag........)??????

2. Kann man die Formel im VBA auch irgendwie laienhafter ausdrücken, ähnlich wie bei der Eingabe in der Tabelle??????

Danke vorab für alle Antworten!

N3O

 

Hallo!

Ist es so besser?

Code:

Sub Makro4()
Dim Bereich As Range
'Legt das Blatt fest:
With Sheets("Datei")
'Wählt den Bereich bis zur letzten ausgefüllten Zelle:
Set Bereich = .Range("B2:B" & .Range("C65536").End(xlUp).Row)
'Schreibt die Formel in B2:
.Range("B2").Formula = "=COUNTIF(C$2:C2,C2)"
'Füllt die Formel nach unten aus:
.Range("B2").AutoFill Destination:=Bereich
End With
End Sub

 

Hey,

du bist spitze! :-D
Auch in der Gefahr das ich dich langsam nerve, hab ich noch eine Frage. Gibt es noch eine andere Variante nur die Werte (Ergebnisse) eingetragen zu bekommen als die nachfolgende?

Code:

Sub Makro1()

Dim Bereich As Range
'Legt das Blatt fest:
With Sheets("Datei")
'Wählt den Bereich bis zur letzten ausgefüllten Zelle:
Set Bereich = .Range("B2:B" & .Range("C65536").End(xlUp).Row)
'Schreibt die Formel in B2:
.Range("B2").Formula = "=COUNTIF(C$2:C2,C2)"
'Füllt die Formel nach unten aus:
.Range("B2").AutoFill Destination:=Bereich
End With

'Kopieren/Werte einfügen
Columns("B:B").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

Quasie das man gleich oben sagt das nur das Ergebnis eingetragen werden soll!

Danke für deine Hilfe!

LG, N3O

 

Hallo!

Dies wandelt auch die Formeln in Festwerte um:

.Range("B:B").Value = .Range("B:B").Value

 

1000 Dank für deine Hilfe! :-D

LG, N3O

 

Hallo!

Und noch ne Frage:

Habe versucht in dem obigen Makro die Formel abzuändern. Funktioniert aber irgendwie nicht.

.Range("B2").Formula = "=IF(D2="","",SUMPRODUCT((C$2:C2=C2)*(D$2:D2<>"")))"

Danke vorab!

N3O

 

Hallo!

Ja, bei solchen Dingern kommt Excel immer mit den Tüddelchen durcheinander...
So geht's:

Code:

.Range("B2").Formula = "=IF(D2="""","""",SUMPRODUCT((C$2:C2=C2)*(D$2:D2<>"""")))"