Office: Werte suchen, zellen rechts daneben löschen Klappt aber...........

Hallo zusammen,
ich habe Modul zusammnengestzt um in meiner Tabelle einen Wert zu suchen, wird ein Wert gefunden sollen bestimmte zellen rechts daneben gelöscht werden.
Soweit klappt es auch mit folgendem Code:

Sub Suchen_löschen()
Dim i As Long
Dim k As Long
Dim startzeile As Long
startzeile = 8
With Worksheets(1).Range("a1:a500")
Set Zelle = .Find("Ende", LookIn:=xlValues)
If Not Zelle Is Nothing Then
ersteAdresse = Zelle.Address
Do
zeile = zeile & Zelle.Row & vbCrLf
Set Zelle = .FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address ersteAdresse
End If
End With
rng = zeile - 1 '
'MsgBox rng 'zeile - 1
For i = startzeile To rng
For k = 5 To 14
If Cells(i, 4) = "" Then
Cells(i, k).ClearContents
End If
Next
Next
End Sub

Nun möchte ich aber das alle Tabellenblätter ausser einiger Ausnahmen durchlaufen werden, was ich einfach nicht hinbekomme.
Es wäre schön wenn einer von euch mal einen Blick darauf wirft und mir bei der erstellung einer Schleife behilflich ist.

Danke
Gerd

:)

 

Moin, Gerd,

Dir ist schon bewußt, dass es sich bei Deiner Variable rng um einen String handelt? Code ist ungetestet:

Code:

 

Hallo Jinx,
danke für deine Hilfe
Ich habe das Modul von dir getestet und es durchläuft jetzt die nicht aufgeführten Blätter wie ich es wollte, macht aber nicht mehr was es eigentlich sollte.
Hab mich vielleicht auch nicht gut ausgedrückt.
Hier ein neuer Versuch:

Meine Tabellen sind alle unterschiedlich lang deshalb habe ich die Startzeile angegeben und "ende" als suchwort gesetzt um die letzte Zeile zu ermitteln.
Anschließend soll dieser Bereich in den Tabellen in z.B. Zeile X Zelle 4 durchsucht werden.

If Cells(i, 4) = "" Then
Cells(i, k).ClearContents

Wird hier nun ein Text, Zahl gefunden sollen definierte Zellen rechts daneben gelöscht werden.
Alles was neben oder unter "ende" steht soll nicht geändert werden.
In deinem Code wird nur noch alles was rechts neben "ende" steht gelöscht.
Ich lade meine Beispielmappe mal hoch darin ist das Modul von mir und deines.

Danke
Gerd

 

Moin, Gerd,

die Erklärung hat schon gepasst, aber da hat jemand mit offenen Augen geschlafen... *wink.gif*

Code:

 

Hallo jinx,
Super, jetzt ist es so wie ich es brauche.
Hab folgende Zeile noch angepasst

For lngZeile = 8 To Zelle.Row - 1

damit alle Werte rechts neben "ende" erhalten bleiben.

Herzlichen Dank für deine Hilfe

Gerd