Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
15.10.2025 12:39:33
Summen zusammenzählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
944to948
944to948
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste auswerten - bereinigen

Forumthread: Liste auswerten - bereinigen

Liste auswerten - bereinigen
31.01.2008 14:37:03
Petra
Hallo liebe Excelfreunde
Ich muß eine grosse Liste bereinigen nach folgendem Kriterium: die Liste besteht aus Materialnummern und Beträgen(positiv und negativ Beträge). Jetzt sollen alle gleichen Materialnummer saldiert werden, ergibt die Summe Null, dann sollen alle Zeilen derjenigen Materialnummer gelöscht werden.
Wie kann ich die Aufgabe schnellstens lösen, sind ca. 250 Materialnummern und die Gesamtliste umfasst ca. 35.000 Zeilen.
Wer kann mir den entscheidenden Tipp geben? Vielleicht per VBA!
Vielen Dank und liebe Grüße
Petra

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Liste auswerten - bereinigen
31.01.2008 14:41:35
Josef
Hallo Petra,
das geht doch auch per Filter und Formel.
Nimm zuerst den Spezialfilter "ohne Dupplikate" und Filtere die Liste an eine andere Stelle. Guckst Du: Spezialfilter (1) - Duplikate wegfiltern
Dann nimmst du SUMMEWENN() und Filterst das Ergebniss nach "0".

Gruß Sepp



Anzeige
AW: Liste auswerten - bereinigen
31.01.2008 14:46:00
Rudi
Hallo,
mit SUMMEWENN den Saldo ermitteln, nach 0 filtern und die Zeilen löschen.
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

AW: Liste auswerten - bereinigen
31.01.2008 15:00:00
Petra
Hallo ihr beiden
vielen Dank für Euren Tipp. Nur klappt das Ganze nicht so. Manuelle Aufgaben sind nicht gefragt, da das alles öfter mit den verschiedensten Listen laufen soll (auf Knopfdruck). Die Summewenn klappt auch so nicht ganz, da ich ja ersteinmal ermitteln muss, wieviel verschiedene Materialnummern es sind und dann auch welche. Manuell muüsste ich ja mindestens 200 bis 250 mal die Formel ausführen und dann feststellen, die Summe ergibt Null ( dann alle relevanten Zeilen löschen) oder die Summe ergibt nicht Null. Ich hoffe, ihr erkennt mein Problem!
Nochmals liebe Grüße
Petra

Anzeige
AW: Liste auswerten - bereinigen
31.01.2008 15:16:26
Mag
Hi,
Spalte A ab Zeile 2 stehen Materialnummern, Spalte B ab Zeile 2 Umsätze, Spalte C in Zeile 2 folgende
Formel. Formel kopieren und bis Listenende kopieren. Dann Spalte C nach 0 Filtern (s.o.) und Zeilen löschen.

=SUMMENPRODUKT(($A$2:$A$7=A2)*$B$2:$B$7)


Gruss

Anzeige
AW: Liste auswerten - bereinigen
31.01.2008 15:17:38
Mag
... wobei A7 und B7, also Zeile 7 auf DEIN Listenende anzupassen wäre ...

AW: Liste auswerten - bereinigen
31.01.2008 15:40:00
Petra
Hallo Mag
ich kann nur sagen "Quick und prima"
Danke
und einen schönen Tag noch
Petra

AW: Liste auswerten - bereinigen
31.01.2008 15:18:00
Rudi
Hallo,

Manuell muüsste ich ja mindestens 200 bis 250 mal die Formel ausführen


Unsinn!
Wenn deine MatNr in A und die Beträge in B stehen
In eine Hilfsspalte: =Summewenn(A:A;A2;BB)
Nach 0 filtern, alles markieren und die Zeilen löschen.
Das dauert ca. 15 Sekunden.
Gruß
Rudi
Eine Kuh mach muh, viele Kühe machen Mühe.

Anzeige
AW: Liste auswerten - bereinigen
31.01.2008 15:19:00
Josef
Hallo Petra,
na dann, probier mal. (bezieht sich immer auf das aktive Blatt)
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub FilterMatNr()
Dim a As Variant, b As Variant, c As Variant
Dim lngR As Long, l As Long, n As Long

lngR = Cells(Rows.Count, 1).End(xlUp).Row

a = Range("A1:B" & lngR)

Redim b(1 To lngR)
Redim c(1 To lngR)

For l = 1 To lngR
    If IsNumeric(a(l, 2)) Then
        If Application.SumIf(Range("A1:A" & lngR), a(l, 1), Range("B1:B" & lngR)) > 0 Then
            If Not IsNumeric(Application.Match(a(l, 1), b, 0)) Then
                n = n + 1
                b(n) = a(l, 1)
                c(n) = Application.SumIf(Range("A1:A" & lngR), a(l, 1), Range("B1:B" & lngR))
            End If
        End If
    Else
        n = n + 1
        b(n) = a(l, 1)
        c(n) = a(l, 2)
    End If
Next

Range("A1:B" & lngR).ClearContents

If n > 0 Then
    Range("A1:A" & n) = Application.Transpose(b)
    Range("B1:B" & n) = Application.Transpose(c)
End If

End Sub


Gruß Sepp



Anzeige
AW: Liste auswerten - bereinigen
31.01.2008 15:41:00
Petra
Hallo Sepp
auch Dir vielen Dank, muß es aber noch richtig durchtesten, schaut aber schon ganz gut aus!
Einen schönen Tag noch und liebe Grüße
Petra
;

Forumthreads zu verwandten Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Dropdownliste ausgew. gültige Werte aktualisieren
Flo

Hallo allerseits!
Ich habe ein Problem mit der Aktualisierung von bereits ausgewählten gültigen Werten in einer Dorpdownliste. Die gütligen Werte der Dropdownliste werden per Namensdefinition aus einem anderen Excelblatt gefüllt. Nun kommt es öfter mal vor, dass sich die Gültigen Werte im s...
16.08.2008 16:24:00
Thread-ID: 1002344
2 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Anzeige
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 Beiträge
Wert der letzten befüllten Zelle in Bereich
Bibo

Hallo EXCEL-Freunde,
ich habe bei excelformeln.de bei Beate Schmitz und Aladin Akyurek abgekupfert und ermittle mit der genauso kurzen wie eleganten Formel =VERWEIS(9^99;A1:F1) oder =VERWEIS(9^99;C1:C10) die letzten Zahlen in den angegebenen Bereichen.
Das klappt auch wunderbar, soweit...
12.10.2008 15:32:39
Thread-ID: 1015865
5 Beiträge
Anzeige
Wert in Tabelle suchen und summieren.
cfrei75

Hallo ich habe ein Problem! Wer kann mir bitte helfen.
Beispiel:
A1=6 Uhr
B1=21 Uhr
In der Zeile 2 stehen die Uhrzeiten von 0 bis 24 Uhr (24 Werte) als Titel.
In der Zeile 3 stehen die Werte der einzelnen Uhrzeiten (24 Werte).
Ich bräuchte die Summe der Uhrzeitwerte zwis...
20.10.2008 18:14:00
Thread-ID: 1017780
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige