Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1632to1636
1632to1636
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: Restrukturierung bei gleichen Zelleninhalt

VBA: Restrukturierung bei gleichen Zelleninhalt
25.07.2018 14:56:25
Manuel
Liebe, Excel-Freunde.
Ich stehe leider mit meinem VBA know-how bei folgendem Sachverhalt auf der Leitung.
Anbei angefügt ist ein .xlsm File welches einen Materialstammdaten Datensatz erhält.
https://www.herber.de/bbs/user/122881.xlsx
Ziel ist es bei doppelten Werten in Spalte D (Material ID) - die ganze Zeile in einen extra Tab zu schieben (cut+paste). Wenn somit eine Material ID Datensatz 2-fach exisiert - wird der 2te Datensatz in einen extra tab verschoben (cut+paste). Wenn eine Material ID 3 Fach besteht werden 2 neue tabs erstellt in denen getrennt die 2 überflüssigen zeilen separat eingefügt werden.
Beispiel:
Material ID 000000000039002410 existiert 3x - durch click auf einen button wird der 2te Datensatz dieses Materials in einen neuen Tab (1) verschoben, und der 3te Datensatz wieder in einen weiteren Tab (2) verschoben.
Am Ende habe ich ein File welches im basis-tab nurnoch single daten enthält.
Tab 2 Enhält 2te doppelte datensätze
Tab 3 Enthält 3te datensätz
Ich bedanke mich schon im Voraus für eure Hilfe.
Gruß

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Autofilter
25.07.2018 15:07:13
Fennek
Hallo nach Wien,
in der 1. freien Spalte ein "=zählenwenn()" einfügen. Dann kann nach "2" und "3" mit dem Autofilter ausgewählt und kopiert werden.
mfg
AW: VBA Autofilter: so?
25.07.2018 15:46:04
Fennek 

Sub T_1()
ls = Cells(1, Columns.Count).End(xlToLeft).Column + 1
lr = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, ls) = "Anzahl"
Columns(ls).NumberFormat = "General"
Range(Cells(3, ls), Cells(lr, ls)).Formula = "=countif(d:d, d3)"
With Cells(1).CurrentRegion
.AutoFilter ls, "2"
.Copy Sheets("(2)").Range("A1")
.AutoFilter
.AutoFilter ls, "3"
.Copy Sheets("(3)").Range("A1")
.AutoFilter
End With
End Sub

Anzeige
AW: VBA Autofilter: so?
25.07.2018 16:08:40
Manuel
Das Makro sieht schon gut aus jedoch habe ich glaube ein bisschen schlecht erklärt:
Das makro soll nicht datensätze mit 3 einträgen in (3) und datensätze mit 2 einträgen in (2) kopieren.
Das ziel ist es die datensätze zu trennen und das "Sheet1" von multiplen (gleichen) datensätzen zu bereinigen das heißt:
Wenn ich einen Datensatz habe der 3x enthalten ist (zB: 000000000039002410) soll dieser (Zeile 5) dort stehen bleiben, Zeile 6 in Tab (2) wandern und Zeile 7 in Tab (3) wandern.
Im endeffekt habe ich dann in Tab (2) alle single Datensätze die als 2tes vorgekommen sind und in (3) alle Datensätze die als 3tes vorgekommen sind (in unserem fall steht in (3) nur ein datensatz.. usw...
als erklärung wie das finale file aussehen soll habe ich es untenstehen beigefügt.
https://www.herber.de/bbs/user/122885.xlsx
Danke für eure (deine) hilfe und Grüße aus Wien!
Anzeige
AW: Idee
25.07.2018 16:23:47
Fennek
Hallo,
als Idee, d.h. ungeprüft

Range(Cells(3, ls), Cells(lr, ls)).Formula = "=countif(d$3:d3, d3)"
wenn alles passt, kommen noch die Lösch-Codes.
mfg
AW: Idee
25.07.2018 16:39:57
Manuel
Super genauso passt es nun!
Kannst du mir noch hilfe bei den Lösch codes geben? Gruß
Hier der Aktuelle Code:
Sub T_1()
' T_1 Macro
ls = Cells(1, Columns.Count).End(xlToLeft).Column + 1
lr = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, ls) = "Anzahl"
Columns(ls).NumberFormat = "General"
Range(Cells(3, ls), Cells(lr, ls)).Formula = "=countif(d$3:d3, d3)"
With Cells(1).CurrentRegion
.AutoFilter ls, "2"
.Copy Sheets("(2)").Range("A1")
.AutoFilter
.AutoFilter ls, "3"
.Copy Sheets("(3)").Range("A1")
.AutoFilter
End With
End Sub

Anzeige
AW: löschen: ungeprüft
25.07.2018 16:44:36
Fennek 

.autofilter ls, ">1"
activesheet.usedrange.columns(1).specialcells(12).offset(1).entirerow.delete
.autofilter

AW: geprüft: komplett
25.07.2018 20:53:30
Fennek 

Sub F_en()
ls = Cells(1, Columns.Count).End(xlToLeft).Column + 1
lr = Cells(Rows.Count, 1).End(xlUp).Row
Cells(1, ls) = "Anzahl"
Columns(ls).NumberFormat = "General"
Range(Cells(3, ls), Cells(lr, ls)).Formula = "=countif(d$3:d3, d3)"
With Cells(1).CurrentRegion
.AutoFilter ls, "2"
.Copy Sheets("(2)").Range("A1")
.AutoFilter
.AutoFilter ls, "3"
.Copy Sheets("(3)").Range("A1")
.AutoFilter
.AutoFilter ls, ">1"
Application.DisplayAlerts = False
.Offset(1).Delete
Application.DisplayAlerts = True
.AutoFilter
End With
End Sub

Anzeige
AW: geprüft: komplett
26.07.2018 09:46:14
Manuel
Fennek you saved my day!
Danke dir vielmals und grüße aus Wien!
M.

304 Forumthreads zu ähnlichen Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
2
8
4
5
9
5
4
6
20
12
1
6
2
6
1
4
2
1
11
7
15
3