Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Zeilen-Nr.s bei partieller Übereinstimmung in

Forumthread: Alle Zeilen-Nr.s bei partieller Übereinstimmung in

Alle Zeilen-Nr.s bei partieller Übereinstimmung in
11.05.2016 15:40:00
Winfried
Hallo zusammen,
verfolge euer Forum schon eine ganze Weile und habe durch eure guten Lösungen schon viele Probleme erfolgreich "selber" lösen können (Danke schon mal dafür :D)
Ich habe leider nur noch sehr eingerostete bis nicht mehr vorhandene Programmierkenntnisse und stehe vor einem Problem, bei dem ich einfach nicht auf die Lösung komme.
Habe leider online noch keine Lösung finden können, weshalb ich eure direkte Hilfe erbete :).
Folgendes Problem stellt sich mir:
Ich habe eine Tabelle mit sehr vielen Kombinationsmöglichkeiten, bei denen bestimmte Zellwerte in einigen Zellen übereinstimmen.
Jetzt möchte ich die Zeilen, welche partiell übereinstimmen, als eine Zeile in ein neues Tabellenblatt kopieren, wobei einige Zellen addiert und einige ergänzt werden sollen (um den vorherigen Bezug wieder herstellen zu können).
Ich hab da mal was vorbereitet, da man sich von meiner wirren Erklärungen selbst wahrscheinlich kein Bild machen kann ;)
Die Kriterien 1-3 (hier verkettet in einem Feld) sollen Zeilenweise vergleichen werden.
Bei Übereinstimmung der 3 Kriterien (des Kriteriums) soll eine Zeile mit den 3 Kriterien (dem Kriterium) in der Zieltabelle (möglichst in einem anderen Tabellenblatt) erstellt werden, bei dem die jeweilien Menge addiert und die Lfd-Nr. ALLER betroffener Zeilen in eine Zelle geschrieben werden (am Besten mit einem Trenner)
Ausgangstabelle
Lfd-Nr. Kriterium Menge
1 rot;m;slim 1
2 rot;l;normal 5
3 rot;s;slim 8
4 rot;m;normal 9
5 rot;m;slim 6
6 rot;l;normal 1
7 blau;m;slim 4
8 blau;l;slim 8
9 blau;s;normal 5
10 blau;m;normal 3
11 blau;l;slim 4
12 blau;s;slim 2
13 blau;m;normal 7
14 blau;m;normal 4
15 blau;s;slim 1
Zieltabelle
Lfd-Nr. Kriterium kummulierte Menge
1; 5 rot;m;slim 7
2; 6 rot;l;normal 6
3 rot;s;slim 8
4 rot;m;normal 9
7 blau;m;slim 4
8; 11 blau;l;slim 12
9 blau;s;normal 5
10; 13; 14 blau;m;normal 14
12; 15 blau;s;slim 3
Ich stehe da irgendwie auf dem Schlauch, besonders bei der Frage wie ich alle ursprünglichen LFD-Nr.s in ein Feld bekomme?
Vielen lieben Dank im Voraus für eure Hilfe und einen schönen Abend noch.
Gruß
Winnie

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Alle Zeilen-Nr.s bei partieller Übereinstimmung in
11.05.2016 16:18:24
Michael
Hi Winnie,
schau Dir mal diese Schritte an: https://www.herber.de/bbs/user/105510.xlsx
Damit ist die Problemstellung nicht zur Gänze aufgearbeitet, aber das Gröbste läßt sich so erledigen.
Falls Dir das genügt, braucht es keine Programmierung.
Schöne Grüße,
Michael

Anzeige
AW: Alle Zeilen-Nr.s bei partieller Übereinstimmung in
11.05.2016 16:35:48
UweD
Hallo
versuch das mal....

Sub sdsdjs()
On Error GoTo Fehler
Dim TB1, TB2, i As Double, j As Double
Dim LR1 As Double, LR2 As Double
Application.ScreenUpdating = False
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
LR1 = TB1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
With TB2
.Cells.ClearContents
TB1.Columns(2).Copy .Columns(2)
.Columns(2).RemoveDuplicates Columns:=1, Header:=xlYes
.Columns(1).NumberFormat = "@"
.Cells(1, 1) = "Lfd-Nr."
.Cells(1, 3) = "kummulierte Menge"
LR2 = .Cells(Rows.Count, 2).End(xlUp).Row
.Range(.Cells(2, 3), .Cells(LR2, 3)).FormulaR1C1 = _
"=SUMIF(" & TB1.Name & "!C[-1],RC[-1]," & TB1.Name & "!C)" 'Formel
.Range(.Cells(2, 3), .Cells(LR2, 3)) = _
.Range(.Cells(2, 3), .Cells(LR2, 3)).Value ' Werte
For i = 2 To LR2
For j = 2 To LR1
If TB1.Cells(j, 2) = .Cells(i, 2) Then
.Cells(i, 1) = .Cells(i, 1) & TB1.Cells(j, 1) & "; "
End If
Next j
.Cells(i, 1) = Left(.Cells(i, 1), Len(.Cells(i, 1)) - 2) ' letzte ; weg
Next i
End With
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & vbLf & Err.Description: Err.Clear
End Sub

Gruß UweD

Anzeige
AW: Alle Zeilen-Nr.s bei partieller Übereinstimmung in
11.05.2016 18:12:06
Winfried
Danke Uwe,
du bist ein VBA-Gott ;o).
Das passt wirklich wie die Faust aufs Auge mein Freund :o) :o) :o)
Da hast du mir mindestens eine schlaflose Nacht erspart, TOP!!
Vielen Dank und einen schönen abend noch
LG
Winnie

Danke für die Rückmeldung owT
12.05.2016 08:35:43
UweD

AW: Danke für die Rückmeldung owT
12.05.2016 15:05:24
Winfried
Hallo Uwe,
ich hab die Formel jetzt für meine große Tabelle umgesetzt/erweitert und laufe in ein Problem, was ich nicht ganz nachvollziehen kann...
Die tatsächliche Tabelle hat 32 Spalten und zum Testzweck 115 Zeilen + Überschriften.
Dabei gibt es 3 Spalten (E, V & W) die aufsummiert und 3 Spalten (A, B & C) welche erweitert werden müssen.
Es will mit der großen Tabelle leider nicht so recht funktionieren, und es tretren nachfolgende Probleme auf:
1.) Die Spaltenüberschrift der "Summenspalten" (es gibt 3 Spalten wo ich die Summe bilden muss) wird bei Durchführung des nachfolgenden Befehls mit einer 0 überschrieben (ohne Ausführung der Zeile stehen die richtigen Spaltennamen aus Tabelle 1 drin). In der zweiten Tabellen-Zeile werden die richtigen Summen eingetragen. 
       .Range(.Cells(2, 5), .Cells(LR2, 5)).FormulaR1C1 = _
"=SUMIF(" & TB1.Name & "!C[+1],RC[+1]," & TB1.Name & "!C)" 'Formel 1
.Range(.Cells(2, 5), .Cells(LR2, 5)) = .Range(.Cells(2, 5), .Cells(LR2, 5)).Value        _
' Werte 1
.Range(.Cells(2, 22), .Cells(LR2, 22)).FormulaR1C1 = _
"=SUMIF(" & TB1.Name & "!C[-16],RC[-16]," & TB1.Name & "!C)" 'Formel 2
.Range(.Cells(2, 22), .Cells(LR2, 22)) = .Range(.Cells(2, 22), .Cells(LR2, 22)).Value    _
' Werte 2
.Range(.Cells(2, 23), .Cells(LR2, 23)).FormulaR1C1 = _
"=SUMIF(" & TB1.Name & "!C[-17],RC[-17]," & TB1.Name & "!C)" 'Formel 3
.Range(.Cells(2, 23), .Cells(LR2, 23)) = .Range(.Cells(2, 23), .Cells(LR2, 23)).Value                         ' Werte 3
2.) Die eindeutigen Werte werden in die Tabelle 2 reingeschrieben, es werden ausser den Summen der ersten Zeile aber keine weiteren Werte eingetragen.
Desweiteren ist nach der ersten Zeile Schluss, wobei ich vermute dass diese beiden Dinge zusammenhängen.
Hier der erweiterte Code 
Sub Test4()
On Error GoTo Fehler
Dim TB1, TB2, i As Double, j As Double
Dim LR1 As Double, LR2 As Double
Application.ScreenUpdating = False
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
LR1 = TB1.Cells(Rows.Count, 1).End(xlUp).Row                                'letzte Zeile  _
der Spalte A
With TB2
.Cells.ClearContents
TB1.Columns(6).Copy .Columns(6)
.Columns(6).RemoveDuplicates Columns:=1, Header:=xlYes
.Columns(1).NumberFormat = "@"
.Columns(2).NumberFormat = "@"
.Columns(3).NumberFormat = "@"
.Cells(1, 1) = TB1.Cells(1, 1)
.Cells(1, 2) = TB1.Cells(1, 2)
.Cells(1, 3) = TB1.Cells(1, 3)
.Cells(1, 4) = TB1.Cells(1, 4)
.Cells(1, 5) = TB1.Cells(1, 5)
.Cells(1, 7) = TB1.Cells(1, 7)
.Cells(1, 8) = TB1.Cells(1, 8)
.Cells(1, 9) = TB1.Cells(1, 9)
.Cells(1, 10) = TB1.Cells(1, 10)
.Cells(1, 11) = TB1.Cells(1, 11)
.Cells(1, 12) = TB1.Cells(1, 12)
.Cells(1, 13) = TB1.Cells(1, 13)
.Cells(1, 14) = TB1.Cells(1, 14)
.Cells(1, 15) = TB1.Cells(1, 15)
.Cells(1, 16) = TB1.Cells(1, 16)
.Cells(1, 17) = TB1.Cells(1, 17)
.Cells(1, 18) = TB1.Cells(1, 18)
.Cells(1, 19) = TB1.Cells(1, 19)
.Cells(1, 20) = TB1.Cells(1, 20)
.Cells(1, 21) = TB1.Cells(1, 21)
.Cells(1, 22) = TB1.Cells(1, 22)
.Cells(1, 23) = TB1.Cells(1, 23)
.Cells(1, 24) = TB1.Cells(1, 24)
.Cells(1, 25) = TB1.Cells(1, 25)
.Cells(1, 26) = TB1.Cells(1, 26)
.Cells(1, 27) = TB1.Cells(1, 27)
.Cells(1, 28) = TB1.Cells(1, 28)
.Cells(1, 29) = TB1.Cells(1, 29)
.Cells(1, 30) = TB1.Cells(1, 30)
.Cells(1, 31) = TB1.Cells(1, 31)
.Cells(1, 32) = TB1.Cells(1, 32)
.Cells(1, 33) = TB1.Cells(1, 33)
.Cells(1, 34) = TB1.Cells(1, 34)
.Cells(1, 35) = TB1.Cells(1, 35)
.Cells(1, 36) = TB1.Cells(1, 36)
.Cells(1, 37) = TB1.Cells(1, 37)
LR2 = .Cells(Rows.Count, 2).End(xlUp).Row
.Range(.Cells(2, 5), .Cells(LR2, 5)).FormulaR1C1 = _
"=SUMIF(" & TB1.Name & "!C[+1],RC[+1]," & TB1.Name & "!C)" 'Formel 1
.Range(.Cells(2, 5), .Cells(LR2, 5)) = .Range(.Cells(2, 5), .Cells(LR2, 5)).Value        _
' Werte 1
.Range(.Cells(2, 22), .Cells(LR2, 22)).FormulaR1C1 = _
"=SUMIF(" & TB1.Name & "!C[-16],RC[-16]," & TB1.Name & "!C)" 'Formel 2
.Range(.Cells(2, 22), .Cells(LR2, 22)) = .Range(.Cells(2, 22), .Cells(LR2, 22)).Value    _
' Werte 2
.Range(.Cells(2, 23), .Cells(LR2, 23)).FormulaR1C1 = _
"=SUMIF(" & TB1.Name & "!C[-17],RC[-17]," & TB1.Name & "!C)" 'Formel 3
.Range(.Cells(2, 23), .Cells(LR2, 23)) = .Range(.Cells(2, 23), .Cells(LR2, 23)).Value    _
' Werte 3
For i = 2 To LR2
For j = 2 To LR1
If TB1.Cells(j, 6) = .Cells(i, 6) Then
.Cells(i, 1) = .Cells(i, 1) & TB1.Cells(j, 1) & "; "
.Cells(i, 2) = .Cells(i, 2) & TB1.Cells(j, 2) & "; "
.Cells(i, 3) = .Cells(i, 3) & TB1.Cells(j, 3) & "; "
End If
Next j
.Cells(i, 1) = Left(.Cells(i, 1), Len(.Cells(i, 1)) - 2)                             _
' letzte ; weg
.Cells(i, 2) = Left(.Cells(i, 2), Len(.Cells(i, 2)) - 2)                             _
' letzte ; weg
.Cells(i, 3) = Left(.Cells(i, 3), Len(.Cells(i, 3)) - 2)                             _
' letzte ; weg
Next i
End With
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Hierunter findest du das Ergebnis des Makros (Rote Zelllen = Fehler (bzw. Angabe fehlt), grüne Zellen alles OK)
Userbild
Was hab ich denn übersehen?
VG und Danke im Voraus für deine Mühen
Winfried

Anzeige
AW: Danke für die Rückmeldung owT
12.05.2016 15:12:11
Winfried
Habe gerade festgestellt dass die Überschrift durch die "SUMIf"-Formel überschrieben wird....
Wieso weiß ich nicht, da die Range eigentlich erst bei Zeile 2 anfängt, oder?
VG
Winfried

AW: Danke für die Rückmeldung owT
12.05.2016 15:21:40
Winfried
Probleme haben sich gerade erledigt....
Hatte vergessen im Befehl auf die richtige Spalte (6 statt 2)zu setzen 
LR2 = .Cells(Rows.Count, 2).End(xlUp).Row
korrigiert 
LR2 = .Cells(Rows.Count, 6).End(xlUp).Row
Jetzt funzt es wieder ;o)

Anzeige
Daumen hoch
12.05.2016 15:54:34
UweD
;

Forumthreads zu verwandten Themen

Diagramm/Bild in UF - 2003 ja - 2007 error ?
Jens

Moin allerseits
ich hab da ein Diagramm in einer Userform, bzw ein Bild eines Diagramms.
Das Diagramm hat 4 Datenpunkte.
Unter Excel 2000 läuft es gut - unter Excel 2007 gibt es den Fehler, dass 2D Diagramme nicht mehr als 32000 Datenpunkte enthalten dürfen...aber es sind nur 4 ! <...
08.08.2008 22:59:03
Thread-ID: 1000428
3 Beiträge
2003 Diagramm in 2007
Bernd

Hallo,
ich habe in Excel 2003 ein Diagramm erstellt, deren Bereiche über Makros gesteuert werden.
Wenn ich die Datei in Excel 2007 öffne kommen allerdings nur Fehlermeldungen.
Gehe ich richtig in der Vermutung, dass programmierte Diagramme in Excel 2007 prinziüiell nicht mehr funkti...
18.08.2008 08:09:28
Thread-ID: 1002499
3 Beiträge
Anzeige
Drei Diagrammtypen in einem Diagramm
Jan

Hallo zusammen,
vor zwei Tagen (Beitrag 20.08.2008 11:10:17) wurde mir hier im Forum erfolgreich bei dem Thema "Kombination aus gruppierten und gestapelten Säulen" geholfen. Beverly hat mein Problem gelöst i n dem ein Teil der Daten der Primär- und ein anderer Teil der Sekundärachse zugetei...
22.08.2008 10:20:18
Thread-ID: 1003765
4 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Wenn bestimmte Bedingungen erfüllt - kommentar ein
Frank

Hallo und guten Abend!!!
Brauche wieder einmal eure Hilfe!!!
In einer Tabelle Namens Hilfsblatt werden in Spalte O die Daten aus den Spalten I & K zusammengefasst (z.B. =I5&K5). Der Wert aus Spalte P wird mittels folgender Formel
=WENN(ISTFEHLER(SVERWEIS($B2&C$1;Hilfsbl...
03.09.2008 18:17:00
Thread-ID: 1007200
2 Beiträge
Anzeige
Prüfe Tabelle für Tabelle nach bestimmten Inhalt
Tom

Hallo - schönen guten Morgen....
Ich habe in diesem Script einen Fehler, weis aber leider nicht wo. Eine Fehlermeldung als solches gibt es nicht aber das script macht halt nicht das was es soll.
Private Sub CommandButton5_Click() Dim lngZ As Long With Sheets("Mitarbeiterdaten") Workbo...
15.09.2008 11:08:52
Thread-ID: 1009714
6 Beiträge
Diagramm in Kommentar einbinden
Frank

Hallo!
Ich möchte gerne ein Diagramm in einen Kommentar einbinden.
Meine Frage ist nun geht das überhaupt und wenn ja wie?
Falls nicht, gibt es eine andere - vergleichbare Lösung?
Gruß Frank
17.09.2008 12:27:00
Thread-ID: 1010326
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
Josef

Guten Morgen!
Ich habe in einem Tabellenblatt ca. 8000 Datensätze. Wenn z.B. in der Spalte D der Wert "MusterA" steht, dann soll in diesem Datensatz in der Spalte B ein kleines "c" eingetragen werden. wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef
07.10.2008 05:58:58
Thread-ID: 1014578
11 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Diagramme - XLUSRGAL.XLS übernehmen in EXCEL2007?
thema

Hallo liebe EXperts!
Können die in Diagrammvorlagen, die in EXCEL 2003 gespeichert sind (vgl. XLUSRGAL.XLS) schnell in EXCEL 2007 übernommen werden?
Oder muss man die Vorlagen neu erstellen?
Danke für eure Tipps.
Grus TheMa
17.10.2008 10:25:00
Thread-ID: 1017059
3 Beiträge
versch. Datein zu einer xls zusammenfügen
Tom

Hallo und schönen guten morgen!
Ich würde gern alle Excel-Datein in einem bestimmten Ordner zu einer einzigsten zusammen führen wolllen. Leider beiss ich mir beim VBA da bis jetzt die Zähne aus.
Die Dateinamen der zusammenzuführenden Datein sind unterschiedlich und folgen keinem Schema....
04.11.2008 09:43:13
Thread-ID: 1021479
3 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