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

Ganze Zeile löschen anhand von Bedingungen

Forumthread: Ganze Zeile löschen anhand von Bedingungen

Ganze Zeile löschen anhand von Bedingungen
26.06.2007 17:06:47
Bedingungen
Hallo zusammen!
Ich suche verzweifelt nach einer VBA Lösung für folgendes Problem:
Ich habe folgende Tabelle (bzw. ca. 400 Stück vom gleichen Typ):
ABCDEFGHIJK
1BelegVerkaufsauftragLieferterminBelegartHerstellungs- mengeRestmengeStart- datumEnd- datumRessourcennr.BeschreibungProduktionsstatus
2147304-00114730411.07.2007Arbeitsgang 04.04.200704.04.2007800VorbereitungFertig
3147304-00114730411.07.2007Arbeitsgang 12.04.200712.04.2007260DP - Presse 10Fertig
4147304-00114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
5147304-00214730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
6147304-00314730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
7147304-00314730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
8147304-00114730411.07.2007Arbeitsgang 04.04.200704.04.2007800VorbereitungFertig
9147304-00114730411.07.2007Arbeitsgang 12.04.200712.04.2007260DP - Presse 10Fertig
10147304-00114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
11147304-00214730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
12147304-00314730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
13147304-01014730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
14147304-01114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
15147304-01114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
16147304-00914730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
17147304-01014730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
18147304-01114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
19147304-01714730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
20147304-01814730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
21147304-01814730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
22147304-03114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
23147304-01714730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
24147304-01814730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
25147304-02414730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
26147304-02514730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
27147304-02514730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
28147304-02314730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
29147304-02414730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
30147304-02514730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen



Ich möchte nun das das Makro in der Spalte J nachsieht, ob zweimal in folge das Wort Endkontrolle vorkommt. Wenn dem so ist soll die zweite Zeile mit dem Wort komplett gelöscht werden.
Nun sollte die Tabelle so aussehen:
ABCDEFGHIJK
1BelegVerkaufsauftragLieferterminBelegartHerstellungs- mengeRestmengeStart- datumEnd- datumRessourcennr.BeschreibungProduktionsstatus
2147304-00114730411.07.2007Arbeitsgang 04.04.200704.04.2007800VorbereitungFertig
3147304-00114730411.07.2007Arbeitsgang 12.04.200712.04.2007260DP - Presse 10Fertig
4147304-00114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen
5147304-00114730411.07.2007Arbeitsgang 04.04.200704.04.2007800VorbereitungFertig
6147304-00114730411.07.2007Arbeitsgang 12.04.200712.04.2007260DP - Presse 10Fertig
7147304-00114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen



Nun soll das Makro in der Spalte A nachsehen, ob die gleiche Zahl (in diesem fall 147304-001) mehr als 3 mal in folge angezeigt wird. Is dem so, sollen alle weiteren mit dieser Zahl gelöscht werden (also in diesem Fall sollen die ersten 3 Zeile bestehen bleiben in die anderen 3 gelöscht werden).#
Das Ergebnis soll dann so aussehen:
ABCDEFGHIJK
1BelegVerkaufsauftragLieferterminBelegartHerstellungs- mengeRestmengeStart- datumEnd- datumRessourcennr.BeschreibungProduktionsstatus
2147304-00114730411.07.2007Arbeitsgang 04.04.200704.04.2007800VorbereitungFertig
3147304-00114730411.07.2007Arbeitsgang 12.04.200712.04.2007260DP - Presse 10Fertig
4147304-00114730411.07.2007Arbeitsgang 27.06.2007 991Endkontrollenicht begonnen



Wäre Super wenn mir hier jemand mit einem kleine VBA Text helfen könnte!!
Danke!!!

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ganze Zeile löschen anhand von Bedingungen
26.06.2007 18:06:00
Bedingungen
Hallo,
schau mal ob dies so funktioniert

Sub Makro1()
Dim a As Variant, b As Variant
For a = 1 To Range("j20000").End(xlUp).Row
If Cells(a, 11) = "Endkontrolle" And Cells(a + 1, 11) = "Endkontrolle" Then
Rows(Cells(a + 1, 11).Row).Delete Shift:=xlUp
a = a - 1
End If
Next a
For a = 1 To Range("a20000").End(xlUp).Row
If Cells(a, 2) = "147304-001" And Cells(a + 1, 2) = "147304-001" And Cells(a + 2, 2) = "147304- _
001" Then
For b = 1 To Range("a20000").End(xlUp).Row
If Cells(a + b + 2, 2) = "147304-001" Then
Rows(Cells(a + b + 2, 2).Row).Delete Shift:=xlUp
b = b - 1
End If
Next b
Exit For
End If
Next a
End Sub


Gruss
Tino

Anzeige
AW: Ganze Zeile löschen anhand von Bedingungen
26.06.2007 18:09:24
Bedingungen
Hallo,
habe vergessen den Code wieder auf deine Tabellenangaben umzustellen.

Sub Makro1()
Dim a As Variant, b As Variant
For a = 1 To Range("j20000").End(xlUp).Row
If Cells(a, 10) = "Endkontrolle" And Cells(a + 1, 10) = "Endkontrolle" Then
Rows(Cells(a + 1, 10).Row).Delete Shift:=xlUp
a = a - 1
End If
Next a
For a = 1 To Range("a20000").End(xlUp).Row
If Cells(a, 1) = "147304-001" And Cells(a + 1, 1) = "147304-001" And Cells(a + 2, 1) = "147304- _
001" Then
For b = 1 To Range("a20000").End(xlUp).Row
If Cells(a + b + 2, 1) = "147304-001" Then
Rows(Cells(a + b + 2, 1).Row).Delete Shift:=xlUp
b = b - 1
End If
Next b
Exit For
End If
Next a
End Sub


Gruss
Tino

Anzeige
AW: Ganze Zeile löschen anhand von Bedingungen
27.06.2007 07:49:47
Bedingungen
Hi Tino.
Danke erstmal für die schnelle Antwort.
Dein Makro funktioniert soweit. Jedoch lässt es sich leider nicht auf meine anderen Tabellen anwenden, weil Du für die letzte Funktion (nachsehen ob die Nummer 3x in folge Auftritt - dann alle weiteren mit gleicher Nummer löschen) direkt die Werte aus der Tabelle genommen hast. Diese sind jedoch Variabel. D.H. in der Spalte A könnte auch der Wert 123456-001 stehen (Diese Zahl ändert sich immer).
Vielleicht fällt Dir hierzu ja noch was ein.
Gruß
Christian

Anzeige
AW: Ganze Zeile löschen anhand von Bedingungen
27.06.2007 08:27:33
Bedingungen
Servus,
hab ich das richtig verstanden?
Du willst statt :
If cells(a, 1) = "147304-001" And... für "147304-001" eine Variable haben.
wenn ja, dann schreib oben:
Dim zahl As String und ersetze die Zahlen durch die Variable. Zwischen die For-Schleifen musst du eine InputBox einbauen:
zahl = InputBox("Bitte Suchstring eingeben!").
Gruß
Chaos

Anzeige
AW: Ganze Zeile löschen anhand von Bedingungen
27.06.2007 10:22:00
Bedingungen
Hi Leute,
ich muß ja erst mal meinen Dank an alle ausprechen, die in diesem Forum aktiv sind. Es ist schon ne tolle Sache das unwissende (wie ich) hier ihre Fragen stellen können und ihr euch die Zeit nehmt diese zu beantworten.
Zu meinem Problem:
Ich habs mit einem anderem Makro hinbekommen:

Sub Test()
Application.ScreenUpdating = False
Dim wks As Worksheet
Dim i As Variant
Dim a As Variant
Set wks = Sheets(1)   'hier anpassen
anz = wks.Cells(65536, 10).End(xlUp).Row
For i = 1 To anz
If Cells(i, 10) = "Endkontrolle" Then
Do
If Cells(i, 10).Offset(1, 0) = Cells(i, 10) Then
Rows(i + 1).Delete shift:=xlUp
End If
Loop Until Cells(i, 10).Offset(1, 0)  Cells(i, 10)
End If
Next i
a = 1
Do
If Cells(a, 1) = Cells(a, 1).Offset(1, 0) Then
If Cells(a, 1) = Cells(a, 1).Offset(2, 0) Then
Do
Rows(a + 3).Delete shift:=xlUp
Loop Until Cells(a, 1).Offset(3, 0) = ""
End If
End If
a = a + 1
Loop Until Cells(a, 1) = ""
Application.ScreenUpdating = True
End Sub


Dieses Makro macht genau was ich beschrieben habe.
Trotzdem danke an alle.

Anzeige

Forumthreads zu verwandten Themen

Bedingte Formatierung möglich ?
Micha

Hallo
Ist es möglich die Zellen per Bedingter Formatierung mit einer Formel zu Formatieren das wenn z.B in
A1 der Wert z.B 2505 geschrieben wird, das der Wert dann durch eine angegebene Zahl z.B 5 geteilt wird ?
Habe schon in der Regel die Formel A1/5 eingetragen, doch leider wird d...
22.09.2008 19:33:00
Thread-ID: 1011552
5 Beiträge
größte Zahl finden mit bedingung
Alexander

Hallo noch ein kleines Problem:
Ich habe eine Liste die in Spalte A mit jeweils mit Datum versehen wird. Des öfteren mehrere Zeilen mit dem selben Datum. Nun möchte ich aus Spalte B von den eingetragenen Zahlen eines selben Datums die jeweils größte herausfinden.
Hilfe.
Danke
...
14.11.2008 21:50:47
Thread-ID: 1024720
4 Beiträge
Anzeige
Tabelle auf DIN A 4 ausdrucken
Kathryn

Hallo,
ich habe eine Excel Tabelle, die ich nun ausdrucken möchte. Leider passt die Tabelle beim ausdrucken nicht auf ein DIN A 4 Blatt. Kann ich das irgendwie konfigurieren oder muss ich die Schrift noch kleiner machen?
Gruß.
01.12.2008 17:06:00
Thread-ID: 1029307
3 Beiträge
VBA 2 Din A 5 auf Din A 4 Drucken ?
Peter

Hallo
Habe auf ein Tab 2 Din A 5 Bereiche erstellt.
Wie kann man per Vba oder Formel die Beiden Bereiche auf Din A 4 Drucken?
Mfg. Peter
01.12.2008 17:56:42
Thread-ID: 1029327
3 Beiträge
Druck 2 Abschnitte auf Din A4
Peter

Hallo
Möchte gern 2 Abschnitte von einem Tab auf einer DinA 4 Seite Drucken.
Gelingt aber nicht, da er jeden Abschnitt auf einer Din A4 Seite druckt.
Sub Karte_Drucken() ' Karte_Drucken Makro ' Range("A2:T14,A17:T29").Select ' Range("A17").Activate ' With ActiveSheet.Pag...
04.12.2008 21:11:07
Thread-ID: 1030301
3 Beiträge
VBA Querdruck DinA5 auf DinA4 Hochformat
Peter

Hallo,
habe eine Userform die ich aufrufe, dort sind 2 CommandButtons auf die entweder auf DinA5 oder DinA4 gedruckt werden soll.
Habe nun den Makrorecorder laufen lassen.
Private Sub CommandButton1_Click() 'Sub Karte_Druck() ' Karte_Druck Makro Din A 4 Application.ScreenUpdating...
07.12.2008 11:40:36
Thread-ID: 1030830
3 Beiträge
AddIn über VBA auslösen
klausk

Guten Tag,
ich habe als "Telefonwählgerät" ein AddIn installiert. Das entsprechende Symbol für Wählen ist in der Commandbar vorhanden.
Nun möchte ich CommandButtons erstellen und mit deren Caption den Wählvorgang auslösen.
Wie kann ich ein AddIn über VBA auslösen, der Makrorekorder...
10.03.2009 11:35:13
Thread-ID: 1058544
14 Beiträge
Anzeige
DIN A 4 Hoch- oder Querdruck
Erwin_Geer

Hallo Excelspezialisten,
ich mache viele Auswertungen, die ich in Listenform als Datei ausgebe. Es gibt aber immer noch Kollegen, die alles ausdrucken - und manchmal über das Hochformat meckern, weil z. B. auf dem 2. Blatt nur noch 1 Spalte ist.
Nachdem schon einige Makros gelaufen sind...
03.12.2009 11:17:44
Thread-ID: 1121523
3 Beiträge
Bildschirmauflösung-UF anpassen | Herbers Excel-Forum
ingo h.
hallo an alle
(sorry, umschalttaste klemmt an dieser tatstatur9
ich habe etliche funktionen getestet und auch eine gefunden,
die mir auch die merkwürdigsten bildschirmauflösungen korrekt anzeigt.
als unsere fa. mit clients ausgestattet wurde, gabs kleine grafikkarten und
kleine...
13.01.2010 13:24:12
Thread-ID: 1129467
2 Beiträge
Kann Code einfach nicht anpassen: auf Tabelle2;D7!
RoB

Hallo Leute,
Ich habe einen Code bekommen, der in der Rohfassung perfekt lief, habe nun aber versucht ihn an meine Datei anzupassen: Excel soll statt in Spalte 1:1 von Tabelle "Tabelle 2" die makro-funktion erstmals in der Zelle D7 anwendet. Wie bekomme ich das hin?
Hier der Code:
...
12.07.2010 12:08:22
Thread-ID: 1166591
3 Beiträge
Anzeige
Zeilenhöhen auf eine Seite anpassen
Tipetan

Hallo Excel-Gemeinde!
Ich habe eine Tabelle mit Inhalt für maximal eine Seite A3 quer. Die Spaltenanzahl ist fest und die Breite ist auf ein Maximum eingestellt - die 14 Spalten verteilen sich über die gesamte Breite meiner Seite.
Nun zu meinem Problem: Ich habe eine variable Anzahl von...
07.01.2011 13:00:04
Thread-ID: 1194386
5 Beiträge
Anzeige
Bedingte Formatierung in C3:H14
Dieter(Drummer)

Hi Formelspezialisten/innen,
such die bedingte Formatierung: Es sollen die Zellen (Zahlen) im Bereich C3:H14 Gelb markiert werden, wenn die Zahlen identisch mit den Zahlen in C15:H15 sind.
Habe hier eine Musterdatei anbei: Die Datei https://www.herber.de/bbs/user/74228.xls wurde aus Dat...
31.03.2011 12:39:08
Thread-ID: 1208465
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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