Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

An Anton

An Anton
07.12.2006 11:20:03
DieterG
Hallo Anton,
ich muß Dich leider noch mal um Hilfe bitten.
Ich habe in Deiner Lösung eine "kleine Änderung" vorgenommen.
Aus Like "G" hab ich "E" gemacht.
Um nicht die Spalten-Überschriften in Zeile 1 zu löschen, soll das Makro erst ab Zeile 2 greifen!

Sub E_löschen()
Dim L As Long
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
For L = ZL To 1 Step -1 'Schleife bis zur ersten Zeile
If Cells(L, 6).Value <> "E" Then Rows(L).Delete
Next L
End Sub

Danke nochmal
Gruß Dieter

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: An Anton
07.12.2006 11:40:18
Anton
Hallo Dieter,
nein, nein.... mach's doch anders:

Sub G_löschen()
Dim L As Long
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
For L = ZL To 2 Step -1    'Schleife bis zur zweiten Zeile
If Cells(L, 3).Value like "*G*" Then Rows(L).Delete 'hier bedeutet 3 die Spalte 3 also "C"
Next L
End Sub

Viel Spaß beim anpassen.
Servus,
Anton

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige