Herbers Excel-Forum - das Archiv

suchen ersetzten wenn.....

Bild

Betrifft: suchen ersetzten wenn.....
von: Rick
Geschrieben am: 27.11.2003 15:48:37
Hallo zusammen!

ich habe eine Tabelle mit werten "gefüllt" und möchte nun in der Spalte D den Wert 58 ersetzen durch 47. Ginge ja problemlos mit suchen/ersetzen. Es soll aber nur ersetzt werden wenn in der Spalte C der gleichen Zeile ein "N" steht.
Danke schön im vorraus!

Grüße Rick

Bild

Betrifft: AW: suchen ersetzten wenn.....
von: Carsten
Geschrieben am: 27.11.2003 15:53:30
Hallo Rick,

einfach nach Spalte C filtern, nur sichtbare Zellen markieren und dann suchen/ersetzen.

Gruß
Carsten
Bild

Betrifft: AW: suchen ersetzten wenn.....
von: Rick
Geschrieben am: 27.11.2003 16:04:22
Ja danke! geht das mit einer Formel oder so? da ich es in ein makro einabuen möchte !!!
Danke Rick
Bild

Betrifft: AW: suchen ersetzten wenn.....
von: WernerB.
Geschrieben am: 28.11.2003 07:29:04
Hallo Rick,

wie gefällt Dir das:


Sub Rick()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For Each c In Range("D1:D" & laR)
If c.Value = 58 And c.Offset(0, -1).Value = "N" Then
c.Value = 47
End If
Next c
Application.ScreenUpdating = True
End Sub


Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Bild

Betrifft: AW: suchen ersetzten wenn.....
von: Rick
Geschrieben am: 28.11.2003 08:13:58
Super!!!! gefällt mir das. Vielen Vielen Dank !!
Rick
Bild
Excel-Beispiele zum Thema " suchen ersetzten wenn....."
Zellinhalt suchen und Zelle auswählen Suchbegriff über mehrere Tabellenblätter suchen.
Suchen und weitersuchen Zahl +/- 1 suchen
Ein Zeichen in einer Formel suchen Datum suchen und Wert eintragen
Wert in Tabelle suchen und in UserForm ausgeben Letzte Zelle mit Inhalt suchen
Textdatei nach Begriff durchsuchen und Fundzeile importieren Wert in Array suchen, ohne jedes Datenfeld abzufragen