Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1848to1852
1848to1852
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ähnliche Einträge suchen und Löschen

Forumthread: Ähnliche Einträge suchen und Löschen

Ähnliche Einträge suchen und Löschen
20.09.2021 14:10:16
Vba-Tüftler
Guten Tag VBA-Experten,
ich habe ein Problem und hoffe mir kann hier jemand helfen.
Zum Verständnis hole ich mit meiner Beschreibung des Problems etwas weiter aus. Ich muss beruflich zwei Excel Worksheets bearbeiten. Wobei die eine, nennen wir sie "Blatt 1", zu Beginn eher unwichtig ist. Auf "Blatt 2" befinden sich Artikelnummern in Zeile 1 aufgelistet (Spaltenanzahl kann variieren), wobei diese in Fertigartikel mit der Form 123456 Fert, Werkzeugen zu den Fertigartikel in der Form 123456 WKZ und den konsolidierten S-Artikeln 123456S aufgeführt sind. Wenn ein Artikel im S-Format vorhanden ist, soll die Artikelnummer 123456S ausgelesen und in "Blatt 1" Zeile 1 kopiert werden (die dortigen Rechenoperationen funktionieren). Wenn es nun zu dem gefundenen S-Artikel WKZ und Fert gibt, sollen diese Spalten gelöscht werden.
Jemand eine Ahnung mit welchem Befehlen das geht? Bin leider neu im VBA-Coding und komme gerade nicht weiter.
Danke schonmal
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ähnliche Einträge suchen und Löschen
20.09.2021 17:27:30
onur
"komme gerade nicht weiter" - Wie weit bist du den schon gekommen? Wo ist die Beispielsdatei bzw der Code, den du schon hast?
AW: Ähnliche Einträge suchen und Löschen
20.09.2021 17:35:11
GerdL
Moin

Sub Unit()
Dim Blatt1 As Worksheet, Blatt2 As Worksheet, C As Range, i As Long
Set Blatt2 = Worksheets("Tabelle1") 'ANPASSEN
Set Blatt1 = Worksheets("Tabelle2") 'ANPASSEN
For Each C In Blatt2.Range(Blatt2.Cells(1, 1), Blatt2.Cells(1, Columns.Count).End(xlToLeft))
If C Like "######S" Then
i = i + 1
Blatt1.Cells(1, i) = C
End If
Next
For i = Blatt2.Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If InStr(Blatt2.Cells(1, i), "WKZ") > 0 Or InStr(Blatt2.Cells(1, i), "Fert") > 0 Then
If WorksheetFunction.CountIf(Blatt2.Rows(1), Left(Blatt2.Cells(1, i), 6) & "S") > 0 Then
Blatt2.Columns(i).Delete
End If
End If
Next
Set Blatt1 = Nothing
Set Blatt2 = Nothing
End Sub
Gruß Gerd
Anzeige
AW: Ähnliche Einträge suchen und Löschen
21.09.2021 13:53:17
Vba-Tüftler 

Sub test()
Dim s_artikel() As Variant
Dim blatt1 As Worksheet
Dim blatt2 As Worksheet
Set blatt1 = Worksheets("Tabelle1")
Set blatt2 = Worksheets("Tabelle2")
s_artikel = Array()
blatt2.Activate
Dim last_row As Integer
Dim last_column As Integer
last_row = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
last_column = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column
ReDim s_artikel(1 To last_column + 1)
Dim p As Integer
Dim i As Integer
i = 1
For p = 1 To last_column
If blatt2.Cells(1, p) Like "######S*" Then
'MsgBox ("s gefunden")--> suchen funktioniert nun folgt kopieren
s_artikel(i) = blatt2.Cells(1, p)
i = i + 1
Else
End If
Next p
Dim u As Integer
Dim b As String
For u = 1 To UBound(s_artikel)
If Left(s_artikel(u), 6) = Left(blatt2.Range("1:1")) Then
'blatt2.Columns(u).Delete
Else
End If
Next u
End Sub
Sorry, dass ich den Code per copy-paste eingefügt habe kann leider hier nichts uploaden, liegt irgendwie an der Einstellung vom Geschäft. Erstmal danke Gerd für deinen Code. Ich habe ihn probiert und hatte aber das Problem, dass er mir die "WKZ" und "FERT" Spalten nicht gelöscht hat. Ich dachte mir nun ich lese alle S-Artikel in einen Array ein. Dann war mein Gedanke, dass der Code quasi schauen soll, ob es den S-Artikel aus dem Array auch in Form von "FERT" und/oder "WKZ" in der Tabelle gibt. Ich dachte da auch ein InStr oder sowas, nur habe ich das Problem, wenn ich mit der Variable u den Array durchlaufe und im Worksheet ein "FERT" finden sollte, nicht weiß wie ich diese Spalte lösche.
Anzeige
AW: Ähnliche Einträge suchen und Löschen
21.09.2021 18:37:59
GerdL
Hallo,
du könntest eine Mustertabelle hier hochladen.
Gruß Gerd
AW: Ähnliche Einträge suchen und Löschen
22.09.2021 07:27:40
Vba-Tüftler
Guten morgen Gerd,
hast wohl recht ich habe versucht es möglichst treffend darzustellen. Im Endeffekt hat dein Code doch funktioniert, ich hatte nur irgendwo einen Fehler eingebaut. In dem Excel Sheet, was ich mit hochlade, wären dann die 200000 FERT und 200000_WKZ schon entfernt. Nun wollte ich noch andere Posten die in dem Sheet sind, hier als Bahn usw. gelistet, löschen. Meine Idee war auch wieder über InStr, aber das haut nicht so hin.
Zuletzt bin ich auch noch nicht komplett dahinter gestiegen, wie ich die FERT und WKZ Artikel ohne gemeinsamen S-Artikel mit einander verrechne. Heißt WKZ konsolidiert mit FERT oder umgekehrt, schenkt sich nichts und dann soll quasi für diesen konsolidierten Wert eine S-Spalte angelegt werden und die anderen beiden gelöscht werden. Dies ginge ja wieder mit deinem vorigen Code. Problem hier ist die WZK und FERT stehen nicht unbedingt nebeneinander, so wie in meinem Beispiel. Wirklich vielen Dank, dass dir die Zeit nimmst. 

Sub Neue_GuV_implementieren()
Dim blatt1 As Worksheet
Dim blatt2 As Worksheet
Dim r As Range
Dim i As Long
Set blatt1 = Worksheets("Tabelle1")
Set blatt2 = Worksheets("Tabelle2")
For Each r In blatt2.Range(blatt2.Cells(1, 1), _
blatt2.Cells(1, Columns.Count).End(xlToLeft))
If r Like "######S*" Then
i = i + 1
End If
Next
For i = blatt2.Cells(1, Columns.Count).End(xlToLeft).Column To 1 Step -1
If InStr(blatt2.Cells(1, i), "WKZ") > 0 Or InStr(blatt2.Cells(1, i), " FERT") > 0 Then
If WorksheetFunction.CountIf(blatt2.Rows(1), Left(blatt2.Cells(1, i + 1), 6) & "S*") > 0 Then
blatt2.Columns(i).Delete
End If
End If
Next
'For i = blatt2.Cells(1, Columns.Count).End(xlToLeft).Column To 2 Step -1
'If InStr(blatt2.Cells(1, i), "*WKZ*") > 0 Or _
InStr(blatt2.Cells(1, i), "*FERT*") > 0 Or _
InStr(blatt2.Cells(1, i), "######S*") > 0 Then
'Else
'blatt2.Columns(i).Delete
'End If
'Next
Set blatt1 = Nothing
Set blatt2 = Nothing
End If
End Sub
Tabelle: https://www.herber.de/bbs/user/148198.xlsx
Anzeige
AW: Ähnliche Einträge suchen und Löschen
21.09.2021 14:18:45
Vba-Tüftler
'If Right(Left(cells(1,x),7),1) = "S" then
'Else If Left(cells(1,x),6)=Left(s_artikel(u),6) And cells(1,x)="*WKZ*" Then
'blatt2.columns(x).delete
'else if Left(cells(1,x),6)=Left(s_artikel(u),6) And cells(1,x)="*FERT*" Then
'blatt2.columns(x).delete
'Else
So hätte ich die Suche gestaltet, nur weiß ich mit meinem Wissensstand nicht, wie man die Variable x deklariert. x soll hier die Nummer der Spalte sein in der die zu löschenden "FERT" und "WKZ" Artikel sind
Anzeige

Forumthreads zu verwandten Themen

wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
Zeilen mit bestimmten Inhalt löschen
sascha76er

Hallo,
ich möchte immer alle Zeilen via Makro löschen, wenn der Inhalt der Zeile indentisch mit der ersten ist.
Ist das möglich, wenn ja wie?
Vorab vielen Dank
Sascha
08.12.2008 13:35:00
Thread-ID: 1031058
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
suchen und bestimmte Zelle löschen
Peter

Hallo
ich würde gerne nach bestimmten Begriffen suchen und falls der Begriff gefunden wird,
das dann die übernächste Zelle nach unten gelöscht wird.
Beispiel: Falls Begiff gefunden in B3 dann lösche Wert in B5, Begriff gefunden in E30 dann lösche Wert in E32 usw.
Wer weiß wie ic...
19.06.2009 20:22:11
Thread-ID: 1083023
2 Beiträge
Zeilen löschen wenn ...
Marion65

Hi zusammen,
habe eine Tabelle hochgeladen, mein Problem ist dort beschrieben.
Gruß Marion
https://www.herber.de/bbs/user/62707.xls
24.06.2009 04:57:02
Thread-ID: 1083974
8 Beiträge
Wenn Zeile doppelt dann löschen
walli

Guten Morgen,
ich möchte gern, wenn eine Zeile in meiner großen Tabelle doppelt vorhanden ist,
löschen.
Die Werte fangen ab Zeile 6 an und sind von Spalte A bis M,
es soll dann die doppelte Zeile nur von A-M gelöscht werden.
mfg walli
24.06.2009 11:29:15
Thread-ID: 1084058
5 Beiträge
Zeile löschen , wenn doppelt, Makro ?
walli

Hallo zusammen,
hatte vorhin geschrieben, leider nicht mehr im Forum.
Ich habe eine große Tabelle, ab Zeile 6 von Spalte A bis M
soll diese kontr. werden ob eine Zeile doppelt (gleich) ist und
diese Doppelte dann von A-M löschen.
Das Ende der Tabelle kann von A6 bis 500 ode...
24.06.2009 12:45:17
Thread-ID: 1084084
4 Beiträge
Zeilen löschen wenn ...
Marion65

Hallo zusammen,
habe mein Problem in der Beispieldatei beschrieben. Für Eure Hilfe wäre ich Dankbar.
Gruß Marion
https://www.herber.de/bbs/user/62728.xls
Ps. Franz hatte mir schon ein Makro gebastelt, doch leider funktioniert es nicht richtig.
Sub BegriffSuchenZeilenLoesc...
24.06.2009 20:27:47
Thread-ID: 1084196
8 Beiträge
Anzeige
Makro läuft nicht. Zeile löschen wenn...
Christoph

Hallo,
ich habe eine große Tabelle und möchte die Zeilen löschen, die eine "1" in Spalte O:O haben.
Ich habe auch hier und in anderen Foren eine Reihe Makros gefunden. Unter anderem dieses hier:
Sub loeschen() Dim loZeile As Long Application.ScreenUpdating = False For loZeile = 12...
01.07.2009 13:38:55
Thread-ID: 1085695
10 Beiträge
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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