Zeilen löschen

Sub ZeilenLöschenSpalteC() 'Zeilen löschen wenn in Spalte C ein Eintrag steht Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 If Cells(i, 3) > "" Then Rows(i).Delete Next i Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
ich beziehe mich mal auf den Blatt "Eingabe". Wir tuen mal so, als würden die Zeilen nur geleert werden und nicht gelöscht, damit wir über Zeilenindices sprechen können.
Das Makro findet in C12 eine Zahl, geht weiter.
in C11 steht nichts. Zeile geleert. Name "Thomas" gemerkt
C10 = leer, Zeile leeren, Namen +"Judith"
C9 = leer, Zeile leeren, Namen +"Andreas
C8,C7,C6
C5 leeren, Namen +Franz
C4 leeren, Namen +Frank
C3 leeren, Namene +Stephan
C2 leeren, Namen + Andreas
Namensliste ohne Doppler: "Thomas Judith Andreas Franz Frank Stephan"
Zeilen noch vorhanden: 6-8 und 12.
Zeile 6, Name Andreas, löschen
Zeile 7, Name Stephan, löschen
Zeile 8, Name Franz, löschen
Zeile 12, Name Judith, löschen.
noch übrig: nix.
Also, so wie du deine Aufgabe geschildert hast willst du einfach das gesamte Blatt löschen? Das geht auch in einer Zeile, mit "cells.clearcontents" :-)
Beschreib bitte nochmal die Aufgabe am Beispielblatt, am besten in Prosa und nicht in Code.
Grüße,
Klaus M.vdT.

Hi Werner,
einen Lösungsansatz habe ich, siehe Anbei. Du musst die erste Schleife auf jedem Fall zuende laufen lassen, bevor du die Zeilen mit den gefundenen Namen löscht - sonst gibt es chaos mit der Zeilenzuordnung!
Hast du Randsituationen, zB kann in E ein Name doppelt vorkommen usw?

Sub ZeilenLöschenSpalteC()
'Zeilen löschen wenn in Spalte C ein Eintrag steht
Dim i As Long
dim NamenSammeln as string
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1
If Cells(i, 3) > "" Then
Namensammeln = namensammeln & cells(i,5).value & ","
Rows(i).Delete
end if
Next i
'AB HIER PSEUDOCODE
MeinArray = split namensammeln ","
Autofilter setzen E2:Exxx
Filtern nach MeinArray
specialcells(visible) löschen
Autofilter aufheben
'ENDE PSEUDOCODE
Application.ScreenUpdating = True
End Sub

Aus dem Pseudocode baue ich dir gerne funktionalen Code, aber nur in einer Musterdatei von dir!
Grüße,
Klaus M.vdT.

Option Explicit Sub ZeilenLöschenSpalteC() 'Zeilen löschen wenn in Spalte C ein Eintrag steht Dim i As Long, e As Long, strg$ Application.ScreenUpdating = False For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 If Cells(i, 3) > "" Then If Cells(i, 5) > "" Then strg = Cells(i, 5).Value e = i - 1 For e = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1 If strg = Cells(e, 5) Then Rows(e).Delete Next Rows(i).Delete End If Next i Application.ScreenUpdating = True End Sub

Option Explicit Sub ZeilenLöschenSpalteC() 'Zeilen löschen wenn in Spalte C ein Eintrag steht Dim i As Long, e As Long, strg$ Application.ScreenUpdating = False For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 If Cells(i, 3) > "" Then If Cells(i, 5) > "" Then strg = Cells(i, 5).Value e = i - 1 For e = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1 If strg = Cells(e, 5) Then Rows(e).Delete: i = i - 1 Next Rows(i).Delete End If Next i Application.ScreenUpdating = True End Sub

Sub ZeilenLöschenSpalteC() 'Zeilen löschen wenn in Spalte C ein Eintrag steht Dim i As Long, e As Long, strg$ Application.ScreenUpdating = False For i = Cells(Rows.Count, 3).End(xlUp).Row To 2 Step -1 If Cells(i, 3) > "" Then If Cells(i, 5) > "" Then strg = Cells(i, 5).Value Rows(i).Delete e = i - 1 For e = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1 If strg = Cells(e, 5) Then Rows(e).Delete: i = i - 1: Exit For Next End If Next i Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread