title image


Smiley Re: Danke ....aber
Hallo



Code etwas ändern:







      

' Durchsucht Spalte B und löscht die Zeile, wenn der Suchbegriff

' 'Summe' in einer Zelle steht. Suchbegriff und Range("B:B") anpassen



Sub LöscheWenn()

Dim n    As Integer



    For n = 1 To Sheets.Count

      For Each Cell In Sheets(n).Range("B:B")

          If InStr(Cell.Value, "Summe") Then Rows(Cell.Row).Delete

      Next Cell

    Next n



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0







mfg, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: