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

VBA: Zeilen löschen wenn dann

Forumthread: VBA: Zeilen löschen wenn dann

VBA: Zeilen löschen wenn dann
21.10.2017 10:21:34
Bernd
Hallo zusammen,
bräuchte mal Hilfe bei folgendem Problem.
Lösche alle Zeilen in den Tabelle20 bis Tabelle159, wenn in einer Zeile mehr als einmal der Wert "0,00" vorkommt. Es betrifft die Spalten C - H.
Danke im Voraus!
Gruß aus Bremen
Bernd
Office 2016 Pro 32bit
Anzeige

21
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: Zeilen löschen wenn dann
21.10.2017 10:39:36
Hajo_Zi
Hallo Bernd,
es wurde keine Datei verlinkt, da Du die Lösung selber an Deine Bedingungen anpassen wolltest. Viel Erfolg. 
Option Explicit
Sub Löschen()
Dim WsTabelle As Worksheet
Dim LoLetzte As Long
Dim LoI As Long
For Each WsTabelle In Worksheets
If IsNumeric(Mid(WsTabelle.Name, 8)) And Mid(WsTabelle.Name, 8) >= 20 _
And Mid(WsTabelle.Name, 8)  1 Then
Rows(LoI).Delete
End If
Next LoI
End If
Next WsTabelle
End Sub


Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben, mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: VBA: 1004 wg. Flüchtigkeitsfehler
21.10.2017 11:58:29
Gerd
Hallo Hajo,
da fehlt etwas.
If WorksheetFunction.CountIf(WsTabelle.Range(WsTabelle.Cells(LoI, 3), WsTabelle.Cells(LoI, _
8)), 0) > 1 Then
Gruß Gerd
AW: VBA: 1004 wg. Flüchtigkeitsfehler
21.10.2017 12:08:17
Hajo_Zi
ja stimmt, man sollte mit With arbeiten. 
Option Explicit
Sub Löschen()
Dim WsTabelle As Worksheet
Dim LoLetzte As Long
Dim LoI As Long
For Each WsTabelle In Worksheets
With WsTabelle
If IsNumeric(Mid(.Name, 8)) And Mid(.Name, 8) >= 20 _
And Mid(.Name, 8)  1  _
Then
Rows(LoI).Delete
End If
Next LoI
End If
End With
Next WsTabelle
End Sub
Gruß Hajo
Anzeige
AW: Punkt vor "Rows" fehlt noch! o.T.
21.10.2017 12:24:40
Gerd
Gruß Gerd
AW: VBA: 1004 wg. Flüchtigkeitsfehler
21.10.2017 12:47:56
Bernd
Hallo Hajo,
Danke für deine Bemühungen! Leider funktioniert der Code nicht, aber es liegt wie ich glaube nicht an deinem Code, sondern ich vermute, dass die Zelle nicht nummerisch sind sondern Text. Siehe Hardcopy.
Userbild
Daher die Bitte an dich, könntest du den Code ändern?
Gruß aus Bremen
Bernd
Anzeige
AW: VBA: 1004 wg. Flüchtigkeitsfehler
21.10.2017 12:51:47
Hajo_Zi
Hallo Bernd,
Du bist hier in einem Excel-Forum. Excel kann wenig mit Bilder anfangen.
Lese meinen ersten Beitrag genau. Du wolltest es selber an Deine Bedingungen anpassen, also mache es auch.
Gruß Hajo
Anzeige
AW: VBA: 1004 wg. Flüchtigkeitsfehler
21.10.2017 13:03:57
Bernd
Danke für die überhebliche Antwort, ich hätte wissen müssen, dass Sie Herr Ziplies keinen Respekt vor anderen Menschen haben.
Gruß
Bernd Kiehl
PS. Ab sofort werde ich keine Beiträge mehr von Herrn Hajo Ziplies lesen!!!!!!!!!!
AW: VBA: 1004 wg. Flüchtigkeitsfehler
21.10.2017 13:06:41
Nepumuk
Hallo Bernd,
teste mal:
Option Explicit

Public Sub Löschen()
    Dim objWorksheet As Worksheet
    Dim lngRow As Long
    For Each objWorksheet In Worksheets
        With objWorksheet
            If IsNumeric(Mid$(.Name, 8)) And Val(Mid$(.Name, 8)) >= 20 _
                And Val(Mid$(.Name, 8)) <= 159 Then
                For lngRow = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
                    If WorksheetFunction.Sum(.Range(.Cells(lngRow, 3), _
                        .Cells(lngRow, 8)), 0) = 0 Then .Rows(lngRow).Delete
                Next
            End If
        End With
    Next
End Sub

Gruß
Nepumuk
Anzeige
AW: VBA: 1004 wg. Flüchtigkeitsfehler
21.10.2017 13:17:07
Nepumuk
Hallo Bernd,
meine Antwort funktioniert nur in Zeilen in denen alle Werte 0,00 sind. Ich hab deine erste Frage nicht gelesen.
Gruß
Nepumuk
AW: Zeilen mit 2 x "0,00" löschen
21.10.2017 13:06:57
Gerd
Hallo Bernd, probier mal:
Sub Loeschen()
Dim WsTabelle As Worksheet
Dim LoLetzte As Long
Dim LoI As Long
For Each WsTabelle In Worksheets
With WsTabelle
If IsNumeric(Mid(.Name, 8)) And Mid(.Name, 8) >= 20 _
And Mid(.Name, 8)  1 Then
.Rows(LoI).Delete
End If
Next LoI
End If
End With
Next WsTabelle
End Sub

Gruß Gerd
Anzeige
AW: Zeilen mit 2 x "0,00" löschen
21.10.2017 13:15:03
Nepumuk
Hallo Gerd,
da gehört ein Punkt rein:
)), "0.00") > 1
VBA spricht noch immer englisch. :-)
Gruß
Nepumuk
AW: Zeilen mit 2 x "0,00" löschen
21.10.2017 13:22:21
Werner
Hallo Nepumuk,
mit dem Punkt geht es nicht, mit Komma geht es -ist doch Text.
Gruß Werner
AW: Zeilen mit 2 x "0,00" löschen
21.10.2017 13:24:57
Nepumuk
Hallo Werner,
danke, man sollte doch alles lesen und nicht nur ein Bild anschauen.
Gruß
Nepumuk
Anzeige
AW: Zeilen mit 2 x "0,00" löschen
21.10.2017 13:35:13
Bernd
An Gerd und Nepumuk,
Danke für Eure Bemühungen. Ich habe selbst ein wenig experimentiert und das ist dabei heraus gekommen. 
Sub bedingte_Zeilenloeschung()
Dim T As Integer
Dim lz As Long
Dim wks As Worksheet
Dim i As Byte
Application.ScreenUpdating = False
For i = 20 To Worksheets.Count
Worksheets(i).Activate
lz = Cells(Rows.Count, 1).End(xlUp).Rows.Row        'Ermittlung der letzten Zeile in  _
Spalte C
For T = lz To 2 Step -1                             'Durchlauf aller Zeilen und Zählung rü _
ckwärts bis Zeile 2
If Cells(T, 3).Value = "0,00" Then              'Abfragen, ob in der ? Spalte "was  _
auch immmer" steht
Rows(T).Delete Shift:=xlUp
End If
Next T
Next i
End Sub
Was ich noch nicht hinbekommen habe ist, nicht nur eine Spalte abzufragen sondern die Spalten C bis H, denn wie im Bild zu sehen. Es müssen auch in der Zeile alle Spalten mit dem Wert nicht Zahl "0,00" vorhanden sein.
Ich hoffe, das mir von euch jemand den fehlenden Code ergänzen kann.
Liebe Grüße aus Bremen
Bernd
Anzeige
AW: Zeilen mit 2 x "0,00" löschen
21.10.2017 14:22:24
Nepumuk
Hallo Bernd,
hast du den Code von Gerd getestet? Der sollte es doch tun.
Gruß
Nepumuk
AW: Zeilen mit 2 x "0,00" löschen
21.10.2017 14:42:29
Bernd
Hallo Nepumuk,
Ja, habe ich und auch beantwortet. Schönes Wochenende ;-)
Lieben Gruß aus Bremen
Bernd
AW: @Nepumuk
21.10.2017 13:26:28
Gerd
Hallo Nepumuk,
ich wollte nicht zu Ende testen.
Hier soll ein Text "0,00" gelöscht werden, ein Wert 0 offenbar nicht.
Gruß Gerd
Anzeige
Frage
21.10.2017 13:24:24
Werner
Hallo Hajo,
hast du eigentlich Geschwister? Ich vermute ja, weil ein Mensch alleine kann kaum so arrogant sein.
Gruß Werner
AW: Frage
21.10.2017 13:27:13
Bernd
Hallo Werner,
Danke für deinen Beistand, aber ich habe festgestellt, er ist es nicht wert über ihn zu reden!!!!!!!!
Lieben Gruß aus Bremen
Bernd
AW: VBA: Zeilen löschen wenn dann
21.10.2017 14:04:35
Gerd
Hallo Bernd! 
Sub bedingte_Zeilenloeschung()
Dim T As Long
Dim wks As Worksheet
Dim i As Integer
Application.ScreenUpdating = False
For i = 20 To Worksheets.Count
With Worksheets(i)
'Ermittlung der letzten Zeile in Spalte C
'Durchlauf aller Zeilen und Zählung rückwärts bis Zeile 2
For T = .Cells(.Rows.Count, 3).End(xlUp).Row To 2 Step -1
'Abfragen, ob in den Spalten C:H der Text "0,00" mind. 2 x steht
If WorksheetFunction.CountIf(.Cells(T, 3).Resize(1, 6), "0,00") > 1 Then
.Rows(T).Delete Shift:=xlUp
End If
Next T
End With
Next i
End Sub

Gruß Gerd
Anzeige
AW: VBA: Zeilen löschen wenn dann
21.10.2017 14:18:47
Bernd
Hallo Gerd,
Passt schon, Danke für deine Bemühungen, du hast einen "gut" bei mir.
Liebe Grüße aus Bremen
Bernd

Forumthreads zu verwandten Themen

Nur gefilterte Zeilen in ein Textfeld übergeben
Heiko

Hallo an alle,
ich brauche ein wenig Hilfe. Ich bin gerade dabei aus einem ziemlich breiten (unübersichtlich geworden) Sheet die gewünschten Werte in eine Form (Textfeld) zu übergeben.
Ich bekomme es leider nicht hin, dass nur die gefilterten Zeilen im Textfeld erscheinen sollen.
Ic...
05.11.2008 19:59:37
Thread-ID: 1022076
7 Beiträge
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Anzeige
einfügen von daten in gefilterte Liste
daten

hallo zusammen
ich habe folgendes problem:
ich habe eine gesamtliste, ( mit den Spalten,Kundennr, Kundenname Ansprechpartner im Aussendienst (der gehört zu meiner Firma und betruet den Kunden in dieser Zeile) , briefversand j oder n ) . Diese Liste schicke ich an bspw. an 10 Mitarbeite...
11.02.2010 21:06:51
Thread-ID: 1137726
2 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
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
Anzeige
ausgeblendete Zeilen (Inhalt) löschen
Lorenz

Hallo Excelscheff`s
Für mich wieder mal ein ungelöstes Langzeitproblem.
Mit folgenden Codezeilen wird der Inhalt von ausgeblendeten (Filter-Rest) Zeilen nicht gelöscht.
Wie muß der Code lauten um die "ausgeblendeten Zeilen in den Löschvorgang ein zu beziehen?
LoLetzte = wksDaten...
16.05.2011 13:28:15
Thread-ID: 1214665
3 Beiträge
Alle Leere Zeilen In A Spalte Löschen
Leo

Abend zusammen,
ich hab folgendes Problem !?
Ich habe in der A SPALTE eine Namensliste, mit mehreren tausend Namen, doch leider sind mir beim kopieren in Excel ein paar "ZEILEN Lücken" - ich hoffe ihr versteht mein Problem, kann es nicht besser formulieren - aufgestoßen ...
Meine Fr...
28.09.2011 21:43:27
Thread-ID: 1231905
4 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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