Makro löscht nur einen Wert

Sub KillTheDaughter() Dim Bereich As Range, zelle As Range Application.ScreenUpdating = False Set Bereich = Range("Source!G1:G30000") For Each zelle In Bereich If zelle.Value <> "" And InStr(1, "CSG COMPUTER SERVICE GMBH,DVO DATENVERARBEITUNGS-SERVICE GMBH,IBB INFORMATIONSSYSTEME,IBM FORSCHUNGSLABORATORIUM,IBM KLUBRESTAURANT V. GOLTSIOS,IT-SERVICES AND SOLUTIONS GMBH,SERCON GMBH,SERCON SERVICE-KONZEPTE FUER,SERCON SERVICE -KONZEPTE FUER INFOR,SERCON WIESBADEN SERVICE-KONZEPTE", zelle.Value) <> 0 Then zelle.EntireRow.Delete Shift:=xlUp End If Next Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub KillTheDaughter() Dim InI As Integer With Worksheets("Source") Application.ScreenUpdating = False For InI = 30000 To 1 If .Cells(InI, 7).Value <> "" And InStr(1, "CSG COMPUTER SERVICE GMBH, " _ & "DVO DATENVERARBEITUNGS-SERVICE GMBH," _ & "IBB INFORMATIONSSYSTEME,IBM FORSCHUNGSLABORATORIUM," _ & " IBM KLUBRESTAURANT V. GOLTSIOS,IT-SERVICES AND SOLUTIONS GMBH," _ & "SERCON GMBH,SERCON SERVICE-KONZEPTE FUER,SERCON SERVICE -KONZEPTE FUER INFOR," _ & "SERCON WIESBADEN SERVICE-KONZEPTE", .Cells(InI, 7).Value) <> 0 Then Rows(InI).EntireRow.Delete Shift:=xlUp End If Next Application.ScreenUpdating = True End With End Sub

Hi Hajo,
ich hab jetzt noch mal kurz ne neue Tabelle erstellt, die das ganze vereinfacht darstellen soll:
Auf dem Worksheet "Source" habe ich folgende Daten:
CSG COMPUTER SERVICE GMBH |1
DVO DATENVERARBEITUNGS-SERVICE GMBH |2
IBB INFORMATIONSSYSTEME |3
IBM FORSCHUNGSLABORATORIUM |4
IBM FORSCHUNGSLABORATORIUM |14
IBM FORSCHUNGSLABORATORIUM |21
IBM FORSCHUNGSLABORATORIUM |24
IBM FORSCHUNGSLABORATORIUM |27
IBM FORSCHUNGSLABORATORIUM |30
IBM KLUBRESTAURANT V. GOLTSIOS |5
IT-SERVICES AND SOLUTIONS GMBH |6
SERCON GMBH |7
SERCON SERVICE -KONZEPTE FUER INFOR |9
SERCON WIESBADEN SERVICE-KONZEPTE |10
Mit meinem Makro möchte ich, das alle Zeilen, in denen in der Spalte A in den Zeilen 1 bis 14 das Wort "IBM FORSCHUNGSLABORATORIUM" steht gelöscht werden.
Hier das Makro:


Sub KillTheCellsWithIBMFORSCHUNGSLABORATORIUM()
Dim Bereich, zelle
Set Bereich = Range("Source!A1:A14")
For Each zelle In Bereich
If zelle.Value = "IBM FORSCHUNGSLABORATORIUM" Then
zelle.EntireRow.Delete Shift:=xlUp
End If
Next
End Sub

lasse ich das Makro nun druchlaufen passiert folgendes:
CSG COMPUTER SERVICE GMBH |1
DVO DATENVERARBEITUNGS-SERVICE GMBH |2
IBB INFORMATIONSSYSTEME |3
IBM FORSCHUNGSLABORATORIUM |14
IBM FORSCHUNGSLABORATORIUM |24
IBM FORSCHUNGSLABORATORIUM |30
IBM KLUBRESTAURANT V. GOLTSIOS |5
IT-SERVICES AND SOLUTIONS GMBH |6
SERCON GMBH |7
SERCON SERVICE -KONZEPTE FUER INFOR |9
SERCON WIESBADEN SERVICE-KONZEPTE |10
es werden nur 3 der 6 Einträge gelöscht. Irgendetwas funktioniert da nicht! Lasse ich das Makro noch einmal laufen, werden nochmal 2 gelöscht, aber einmal steht das immernoch da. Erst nach dem nächsten Durchlauf sind alle Zeilen, in denen "IBM F...." steht, gelöscht. So kann nicht eine allgemeine Lösung aussehen!
Wie ist es möglich, dass das Makro schon bei ersten mal alles löscht? Hast du eine Ahnung? Verzeih mir, das ich so viel deiner Zeit in Anspüruch nehme, ich hätte schon längst nicht mehr zugehört, aber ich versprweche dir, dass wenn das Makro funktioniert, dadurch pro Woche ca eine halbe Stunde eingespart wird was bewirkt, dass pro jahr 25 Stunden Arbeit gespart werden, die meine Abteilung nur in die Steigerung der Konjunktur durch puren Konsum von Erzeugnissen jeder Art, investiert.
Vielen Dank und schönen Gruß, Thomas

ich merke schon, das du nicht die zeit hast. ich hab mir eben wirklich mühe gegeben das ganze deutlich darzustellen. das problem liegt dabei, das du dir nicht die zeit nimmst das geschriebene zu wirklich lesen, sondern es nur schnell überfliegst. das habe ich auch schon bei deinen anderen quotes gemerkt. das liegt wahrscheinlich daran, das du mit deiner wiklich enormen erfahrung sowieso die probleme auf den ersten oder zweiten blick erkennst.
bei meinem problem hat es leider nicht geklappt, was nicht schlimm ist, weil es ja eh supernett von dir ist, dass du dich um die probleme anderer kümmerst.
nichts desto trotz danke ich dir vielmals für deine große anteilnahme und lege mein kleines projekt ad acta. man kann tochterunternehmen auch per hand aus einer liste herauslöschen!
vielen dank und schönen gruß, thomas

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread