Herbers Excel-Forum - das Archiv
suchen ersetzten wenn.....
- suchen ersetzten wenn..... von Rick vom 27.11.2003 15:48:37
- AW: suchen ersetzten wenn..... - von Carsten am 27.11.2003 15:53:30
- AW: suchen ersetzten wenn..... - von Rick am 27.11.2003 16:04:22
- AW: suchen ersetzten wenn..... - von Rick am 27.11.2003 16:04:22
- AW: suchen ersetzten wenn..... - von WernerB. am 28.11.2003 07:29:04
- AW: suchen ersetzten wenn..... - von Rick am 28.11.2003 08:13:58
- AW: suchen ersetzten wenn..... - von Rick am 28.11.2003 08:13:58
- AW: suchen ersetzten wenn..... - von Carsten am 27.11.2003 15:53:30
 |
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
 |
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
|
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
|
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).
|
Betrifft: AW: suchen ersetzten wenn.....
von: Rick
Geschrieben am: 28.11.2003 08:13:58
Super!!!! gefällt mir das. Vielen Vielen Dank !!
Rick
| |