Office: Addieren/Zusammenfassen von Gleichen Zeilen

Hallo ihr Meister des programmierens *Smilie

Ich bnötige eure hilfe bitte!
Folgende Tabelle habe ich:

Fahrzeug Anzahl
BMW 3er 2
BMW 3er 3
Mercedes 2
VW 5

Die soll mit einem Makro

Fahrzeug Anzahl
BMW 3er 5
Mercedes 2
VW 5

wieder geben.

Vielen Dank

:)

 

Hallo Dank,

bitte um dringende Lesung, Verstehung und Anwendung der Links in meiner Signatur zum Thema "Tutorials zu Pivottabellen".

Grüße
EarlFred

 

Danke,

aber kein Pivot sondern mit VBA *Smilie

 

Hallo,

richtig. Warum einfach, wenn man es auch schwer haben kann?
Dann nimm ein Dictionary.
Oder Spezialfilter ohne Duplikate und Summewenn (kann man auch über VBA ansteuern).

Und konkrete Hilfe gibt's wie immer bei konkreten Fragen.

Grüße
EarlFred

 

Ok, dann nochmal *Smilie

Ich habe eine ExcelTabelle (MS Version 2010)

mit einem Inhalt

Fahrzeuge Anzahl
BMW 3er 2
BMW 3er 3
Mercedes 2
VW 5

Mit hilfe eines Makros möchte ich die gleichen Fahrzeuge zusammenfassen und die Anzahl der gleichen Fahrzeuge soll auch addiert werden.

Damit es am Ende wir hier aussieht.

Fahrzeug Anzahl
BMW 3er 5
Mercedes 2
VW 5

Vielen Dank

 

Hallo Oguzman,

das könnte z. B. so funktionieren:

Option Explicit ' '   angenommen: Die Fahrzeuge stehen in Tabelle1 in Spalte A ab Zeile 2 '               Die Anzahl steht unmittelbar daneben in Spalte B ' Public Sub NachKennzeichen() Dim WkSh    As Worksheet Dim aTemp   As Variant Dim lZeile  As Long Dim rZelle  As Range Dim Dict    As Variant    Set WkSh = ThisWorkbook.Worksheets("Tabelle1")    With WkSh ' die Fahrzeuge aus A2:Bn in einen temporären Array schreiben       aTemp = .Range("A2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)    End With    WkSh.Range("D2:E100").ClearContents ' den Bereich D2:E100 leeren/löschen    Set Dict = CreateObject("Scripting.Dictionary")    On Error Resume Next '     die Daten an das Dictionary übergeben    For lZeile = 1 To UBound(aTemp)       Dict(aTemp(lZeile, 1)) = Dict(aTemp(lZeile, 1)) + aTemp(lZeile, 2)    Next lZeile ' '    ausgeben '    Set rZelle = WkSh.Cells(2, 4) '    Application.EnableEvents = False    rZelle.Resize(Dict.Count) = WorksheetFunction.Transpose(Dict.Keys)    rZelle.Offset(0, 1).Resize(Dict.Count) = WorksheetFunction.Transpose(Dict.Ite ms)    Application.EnableEvents = True End Sub

Code eingefügt mit Syntaxhighlighter 4.15

Gruß Peter

 

PETER du bist der BESTE !!! ES FUNKTIONIERT !!!

 

Hallo Peter,

wie kann ich die Spalte B durch C zum Beispiel addieren lassen.
in Spalte C ist zum Bepsiel das Baujahr enthalten.

Wenn ich A2:C2 in den Quelltext schreibe addiert er mit A2 bis C2

aTemp = .Range("A2:B" & .Cells(.Rows.Count, 1).End(xlUp).Row)


Vielen DANK im Voraus!