title image


Smiley Re: For each Schleife in einer Selection
Hallo,



hilft dir sowas:



Dim LetzteZeile as long

LetzteZeile = Cells(Rows.Count, 1).End(xlUp).Row

For k = LetzteZeile To 1 Step -1

If InStr(Cells(k, 1), "1") > 0 Then Cells(k, 1).EntireRow.Delete

Next



Beispiel löscht alle Zeilen, wo in Spalte 1 eine 1 vorkommt



Viele Grüße



Ulrich
(Falls vorhanden:) Tabellen sind eingefügt mit Tool von Schorsch Dabbeljuh
hier sein offizieller Download-Link

(Fast) alles über Excel-Formeln ohne VBA findet man auf der Seite Excelformeln

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: