title image


Smiley Re: Danke
Hallo



Bitteschön.





      

' 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()

' Variable n deffinieren - Wertbereich +/- 32768 , 2 Byte Speicherverbrauch

Dim n    As Integer





' Schleife beginnend mit 1 (1. Tabellenblatt) bis zum

' letzten Tabellenblatt (Sheets.Count)

    For n = 1 To Sheets.Count

' Durchsucht alle Zellen der Tabelle n, Spalte B

' Sheets(n).Range("B:B")

' Alternativ auch anderer Bereich möglich.

' z.B. Range("B1:C10")

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

' Cell.Value -->  Inhalt der jeweiligen Zelle

' InStr -->  Überprüft, wenn 'Summe' enthalten ist

' Rows --> Zeile

' Cell.Row --> Nummer der Spalte

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

      Next Cell

    Next n



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0







Bei weiteren Fragen bzw. Problemen einfach melden.





mfg, GraFri

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: