Sortieren, summieren, kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Dietmar,
späte Antwort = kein Problem. Ist ja deine verlorene Zeit und nicht meine :-)
Warum der Button in der Tabelle nicht mehr funktionierte kann ich dir nicht sagen! Aber das hast du ja gelöst bekommen.
Ich verstehe nicht, was jetzt sortiert werden soll. Das Makro wirft die Nummern rüber (jede einmalig) und macht dann SUMMEWENN (Geld) auf ebendiese. Wie passen da jetzt die Länder dazu?
Vermutung: Du möchtest als Ergebniss nicht:
5500 - 3,18 (Deutschland, Polen)
sondern:
5500 - Deutschland - 1,77
5500 - Polen - 1,41
Desweiteren verstehe ich nicht, was du mit "sortieren" meinst. Hast du das Wort im falschen Kontext verwendet, oder möchtest du wirklich die Ausgabeliste in nach Alphabet/Mächtigkeit sortiert aufsteigender Form sehen?
Bitte bestätigen, oder dementieren und neu erklären!
mit Grüßen an den klimatisch gemäßigten Niederrhein aus dem wirklich saukaltem Estland!
Klaus M.vdT.

Hi Dietmar,
du hast angebeben "Excel 2000". Das ist richtig? Daher habe ich die abwärstkompatible "SUMMENPRODUKT" Formel genutzt, anstatt der neuen "SUMMEWENNS" (beachte das S am Ende) Funktion. SUMMEWENNS wäre hier geeigneter, aber gibts halt erst ab 2007.
(Das wirft allerdings wieder die Frage auf: Warum eigentlich per Makro und nicht gleich per Formeln? aber egal).

Sub SumIfMakroWarumNichtPerFormel()
Dim lRow As Long
Dim lRow2 As Long
With Sheets("Berechnung")
.Cells.ClearContents
Sheets("Liste").Columns("B:B").Copy
.Range("A1").PasteSpecial
Sheets("Liste").Columns("D:D").Copy
.Range("B1").PasteSpecial
.Range("C1").Value = "Geld"
Application.CutCopyMode = False
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A1:B" & lRow).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("C1"),  _
Unique:=True
.Range("A1:B1").EntireColumn.Delete Shift:=xlToLeft
lRow = .Cells(Rows.Count, 1).End(xlUp).Row
lRow2 = Sheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row
.Range("C2:C" & lRow).FormulaR1C1 = "=SUMPRODUCT((Liste!R2C2:R" & lRow2 & "C2=RC[-2])*( _
Liste!R2C4:R" & lRow2 & "C4=RC[-1])*Liste!R2C3:R" & lRow2 & "C3)"
.Range("C2:C" & lRow).Value = .Range("C2:C" & lRow).Value
'SORTIEREN
End With
End Sub

Um das ganze nach Nummern und dann nach Ländern zu sortieren, benutzt du bitte die Excel-Eigene Sortierfunktion. Wenn du faul bist, kannst du dir die einmal rekordern und ins Makro anstatt des Platzhalters 'SORTIEREN einsetzen.
Ich hab das nicht realisiert, weil ich meine dass die Makro-Sortierfunktionen meines Excel 2010 nicht abwärtskompatibel zu deinem 2000er sind.
Grüße,
Klaus M.vdT.

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread