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

Letzte Zeile mit Bedingung löschen

Forumthread: Letzte Zeile mit Bedingung löschen

Letzte Zeile mit Bedingung löschen
03.10.2017 13:38:42
Guesa
Hallo Forum
Bastele immer noch an meiner Auftragsverwaltung herum. Folgendes Problem hat sich jetzt noch ergeben. Kurze Erklärung: In Tb Einträge lege ich die komplett-Aufträge an. Für den Produktionsstatus brauche ich daraus die ganze Zeile, für die Einträge in die Laufkarte nur bestimmte Einträge. Wenn jetzt in der Letzten Zeile eine Fehleingabe getätigt worden ist und diese gebucht worden ist, möchte ich, dass die letzte Buchung (Letzte Zeile) aus Tb Produktionsstatus und Eintr-Laufkarte gelöscht werden. Ich habe zwar einen Code der die letzte Zeile löscht, aber mit einem nervösen Zeigefinger meiner Kollegen :-) werden dann eventuell mehrere Zeilen gelöscht. Daher sollten die Zeilen nur gelöscht werden, wenn die Best. Nr. identisch ist. Zum besseren Verständnis lade ich mal eine Beispiel-Datei hoch.
Für Eure Hilfe schon mal ein herzliches Danke schön.
https://www.herber.de/bbs/user/116717.xlsm
Gruß, Guesa
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Letzte Zeile mit Bedingung löschen
03.10.2017 14:47:31
Werner
Hallo,
lade das mal als .xlsx hoch, kann im Moment keine .xlsm runterladen. Dann schau ich es mir mal an.
Gruß Werner
AW: Letzte Zeile mit Bedingung löschen
03.10.2017 15:48:04
Werner
Hallo,
teste mal: 
Public Sub Fehleintrag_raus()
Dim loWertE As Long 'Wert Einträge
Dim loWertP As Long 'Wert Produktionsstatus
Dim loWertL As Long 'Wert Eintr-Laufzettel
If IsNumeric(Worksheets("Einträge").Cells(Rows.Count, 3).End(xlUp)) Then
loWertE = Worksheets("Einträge").Cells(Rows.Count, 3).End(xlUp)
End If
If IsNumeric(Worksheets("Produktionsstatus").Cells(Rows.Count, 3).End(xlUp)) Then
loWertP = Worksheets("Produktionsstatus").Cells(Rows.Count, 3).End(xlUp)
End If
If IsNumeric(Worksheets("Eintr-Laufkarte").Cells(Rows.Count, 3).End(xlUp)) Then
loWertL = Worksheets("Eintr-Laufkarte").Cells(Rows.Count, 3).End(xlUp)
End If
If loWertE = loWertP And loWertE = loWertL Then
Worksheets("Produktionsstatus").Cells(Rows.Count, 3).End(xlUp).EntireRow.Delete
Worksheets("Eintr-Laufkarte").Cells(Rows.Count, 3).End(xlUp).EntireRow.Delete
Else
MsgBox "Löschen nicht möglich, da es sich" & vbLf _
& "unterschiedliche Bestellnummern handelt."
End If
End Sub
Gruß Werner
Anzeige
AW: Letzte Zeile mit Bedingung löschen
03.10.2017 17:30:33
Guesa
Hallo Werner
Erstmal Danke für die schnelle Antwort. Dein Code macht genau das was ich geschrieben habe. Jetzt stelle ich allerdings fest, dass ich das ganze total falsch erklärt habe. Ist etwas kompliziert zu erklären. Wenn du mal in Produkst.. reinguckst stehen da beide Einträge, in Eintr-Laufkarte nur der Eintrag mit der laufenden Nr. Das Makro löscht mir jetzt korrekt den letzten Eintrag aus Produktionsstatus aber auch den letzten in Laufd. Nr. Das ist zwar die letzte Zeile aber nicht der letzte Eintrag. Im Grunde muss noch eine Prüfung rein. Wenn Einträge LaufendeNr und Best.Nr gleich dann lösche in Produktionsstatus und Eintr-Laufende Nr. Wenn Einträge LaufendeNr Nichts und Best.Nr. gleich dann lösche nur aus Produktionsstatus. Ich hoffe das ich das jetzt einigermaßen verständlich ausgedrückt habe. Vielleicht noch zum besseren Verständnis der Code (ist sogar von Dir) wie ich kopiere.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.ScreenUpdating = False
If Target.Column  7 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Dim eRow As Long, eRowL As Long
eRow = Target.Row
With Worksheets("Produktionsstatus")
If IsEmpty(.Range("A1")) Then
eRowL = 1
Else
eRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
Range(Cells(eRow, 1), Cells(eRow, 7)).Copy
.Cells(eRowL, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'.Columns.AutoFit
End With
If Target.Column  7 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Dim iRow As Long, iRowL As Long
iRow = Target.Row
With Worksheets("Eintr-Laufkarte")
If IsEmpty(.Range("B1")) Then
iRowL = 1
Else
iRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
If Cells(iRow, 2).Value > "" Then
Range(Cells(iRow, 8), Cells(iRow, 11)).Copy
.Cells(iRowL, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'.Columns.AutoFit
End If
End With
Application.ScreenUpdating = True
End Sub
Total auf dem Schlauch stehend Gruß, Guesa
Anzeige
AW: Letzte Zeile mit Bedingung löschen
04.10.2017 06:20:45
Werner
Hallo,
teste: 
Public Sub Fehleintrag_raus()
Dim loWertE As Long 'Best.Nr. Einträge
Dim loWertP As Long 'Best.Nr. Produktionsstatus
Dim loWertL As Long 'Best.Nr. Eintr-Laufzettel
Dim loWertENr As Long 'lfd. Nummer Einträge
Dim loWertLNr As Long 'lfd. Nummer Eintr-Laufzettel
If IsNumeric(Worksheets("Einträge").Cells(Rows.Count, 3).End(xlUp)) Then
loWertE = Worksheets("Einträge").Cells(Rows.Count, 3).End(xlUp)
loWertENr = Worksheets("Einträge").Cells(Rows.Count, 3).End(xlUp).Offset(, -1)
Else
Exit Sub
End If
If IsNumeric(Worksheets("Produktionsstatus").Cells(Rows.Count, 3).End(xlUp)) Then
loWertP = Worksheets("Produktionsstatus").Cells(Rows.Count, 3).End(xlUp)
End If
If IsNumeric(Worksheets("Eintr-Laufkarte").Cells(Rows.Count, 3).End(xlUp)) Then
loWertL = Worksheets("Eintr-Laufkarte").Cells(Rows.Count, 3).End(xlUp)
loWertLNr = Worksheets("Eintr-Laufkarte").Cells(Rows.Count, 3).End(xlUp).Offset(, -2)
End If
If MsgBox("Letzten Eintrag tatsächlich löschen?", vbYesNo, "Sicherheitsabfrage") = vbNo Then  _
Exit Sub
If loWertE = loWertP And loWertE = loWertL And loWertENr > 0 And loWertENr = loWertLNr Then
Worksheets("Produktionsstatus").Cells(Rows.Count, 3).End(xlUp).EntireRow.Delete
Worksheets("Eintr-Laufkarte").Cells(Rows.Count, 3).End(xlUp).EntireRow.Delete
Worksheets("Einträge").Cells(Rows.Count, 3).End(xlUp) = "Fehleintrag"
ElseIf loWertE = loWertP Then
Worksheets("Produktionsstatus").Cells(Rows.Count, 3).End(xlUp).EntireRow.Delete
Worksheets("Einträge").Cells(Rows.Count, 3).End(xlUp) = "Neu erfassen"
Else
MsgBox "Keine identischen Bestellnummern."
End If
End Sub
Da ist jetzt vor dem Löschen der Daten noch eine Sicherheitsabfrage drin.
Zudem setze ich den letzten Wert Spalte C im Blatt "Einträge" auf "Neu erfassen".
Das hat folgenden Grund:
Wenn dein "User" den letzten Eintrag aufgrund Fehlerfassung löscht und dann das Makro erneut ausführt, dann würde der jetzt letzte Eintrag bei Übereinstimmung der Bestellnummer ebenfalls gelöscht. In deiner Beispieldatei würde das zutreffen, somit wären dann beide Einträge weg (Kennwort "Nervöse Finger").
Gruß Werner
Anzeige
AW: Letzte Zeile mit Bedingung löschen
04.10.2017 19:15:48
Guesa
Hallo Werner
Habe ich gerade bei mir getestet, echt Super. Großen Dank für Deine Mühe.
Werde ich morgen am Arbeitsrechner testen.
Gruß, Guesa
AW: Letzte Zeile mit Bedingung löschen
04.10.2017 23:21:29
Werner
Hallo,
na dann hoffen wir mal, dass es in deiner Arbeitsdatei auch funktioniert.
Kleiner Tip noch zum vermeiden von verbundenen Zellen.
Schreib mal in Zelle A1 "hier sind die verbundenen Zellen."
Jetzt Zelle A1 bis Zelle D1 markieren - Zellen formatieren - Ausrichtung - horizontal - über Auswahl zentrieren
Gleiches Ergebnis wie bei verbundenen Zellen, ohne die Nachteile derselben.
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Anzeige
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
Datenblatt ab letzte volle Zeile löschen
meixner

Hallo zusammen,
brauche ein Makro, dass ein Datenblatt durchsucht. Wenn in der Spalte A ab einer gewissen Zeile kein Text oder Zahl mehr steht, soll der komplette Bereich gelöscht werden.
z.B ab Zeile A30 befinden sich nur Nullen in der Spalte. Dann soll alles ab A30: F30 gelöscht werd...
19.10.2009 15:19:42
Thread-ID: 1110670
4 Beiträge
letzte volle zeile suchen und löschen
meixner

Hallo zusammen,
habe eine Tabelle (A8: H16). Ich möchte anhand eines Makros die letzte volle zeile suchen, die sich in Spalte G befindet, anhand eines Makros finden.
Wenn er die letzte befüllte zeile in spalte G gefunden hat, soll alles andere was sich ab dieser vollen Zeile in den and...
15.11.2009 12:00:37
Thread-ID: 1117324
10 Beiträge
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
VBA: bei Wert 0 in Zelle A5, Zeile 9 löschen
Steffen

Hallo zusammen,
ich benötige kurz eure kompetente Hilfe!
Ich habe folgendes Problem....
Wenn in Zelle A5 in Mappe1 der Wert 0 steht dann soll die Zeile 9 in Mappe2 gelöscht werden.
Ich hoffen mir kann jemand weiterhelfen!
Vielen Dank für die Hilfe und einen Lieben Gruß
S...
04.09.2010 18:17:19
Thread-ID: 1175718
13 Beiträge
Anzeige
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
VBA: Zeilen mit Eintrag in Spalte B löschen
Martin

Guten Tag
Wie kann ich vermeiden beim untenstehende Code ein RC22 (hätte lieber ein Range oder Cells) einzugeben. Ich möchte, dass alle Zeilen mit Eintrag O oder P in Spalte B gelöscht werden.
Besten Dank im voraus.
Martin
'O und P löschen
With xxx.UsedRange
With .Colum...
13.04.2011 15:29:24
Thread-ID: 1210256
7 Beiträge
VBA: leere Zeilen löschen
Fritz_W

Hallo Forumsbesucher,
ich bitte um Eure Hilfe:
Mit welchem Code lassen sich alle leere Zeilen der aktiven Spalte (bis zur letzten Zeile mit Inhalt) löschen.
Beispiel: Befindet sich der Cursor in Zelle C6 und ist in Spalte C die letzte Zelle mit Inhalt die Zelle C957 sollten alle lee...
19.10.2011 09:27:12
Thread-ID: 1234458
3 Beiträge
VBA - letzte Zeile ermitteln
WalterK

Hallo,
für die letzte belegte Zeile in Spalte D habe ich folgende Codezeile gefunden:
Zeletzte = Cells(Rows.Count, 4).End(xlUp).Row
Leider werden hier auch die Formelergebnisse "" mitberücksichtigt.
Wie müßte die Codezeile lauten, wenn für die Ermittlung der letzten belegten Zei...
09.12.2011 11:55:16
Thread-ID: 1241383
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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