Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen von Matthias L

Zeilen löschen von Matthias L
21.06.2013 08:27:35
Matthias
Hallo Matthias L,
du hast mir vor ein paar Tagen schon mal geholfen.
Das funktioniert auch gut.
Ich habe festgestellt, dass der Name in Spalte 5(E) doppelt sein kann und ich den Vornamen mit vergleichen muss, wenn ich das nicht mache, wird der falsche Name gelöscht. Der Vorname steht in Spalte 6(F).
Es werden die Zeilen 9 gelöscht ist richtig, aber auch die Zeile 8 nicht richtig, es müsste die Zeile 5 sein. in der Datei ersichtlich. Der Vorname ist in dem Beispiel Anton. Den Vergleich benötige ich noch. Es wäre schön, wenn Du mir noch mal helfen könntest.
https://www.herber.de/bbs/user/85940.xlsm
Gruß Werner

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: ich bin nicht Matthias L…
21.06.2013 09:00:05
Sheldon
Hallo Werner,
aber vielleicht magst Du mein Angebot dennoch annehmen.
Sub ZeilenLöschenSpalteC()
'Zeilen löschen wenn in Spalte C ein Eintrag steht und
'der Name in Spalte 5 auch löschen ohne den eintrag in Spalte 3
Dim i As Long, e As Long, strg$, pren$
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
pren = Cells(i, 6).Value
End If
Rows(i).Delete
For e = Cells(Rows.Count, 5).End(xlUp).Row To 2 Step -1
If strg = Cells(e, 5) And pren = Cells(e, 6) Then Rows(e).Delete: i = i - 1: Exit For
Next
End If
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Sheldon

Anzeige
AW: ich bin nicht Matthias L…
21.06.2013 09:10:06
Werner
Hallo Sheldon,
klar nehme ich dein Angebot an.
klappt gut, danke für deine schnelle Hilfe.
Gruß Werner

gern geschehen. owT
21.06.2013 09:43:21
Sheldon
Gruß
Sheldon

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige