Herbers Excel-Forum - das Archiv
Wert suchen incl. Formelergebnis
- Wert suchen incl. Formelergebnis von Erich M. vom 20.11.2003 07:13:18
- AW: Wert suchen incl. Formelergebnis - von WernerB. am 20.11.2003 07:43:53
- AW: Wert suchen incl. Formelergebnis - von Erich M. am 20.11.2003 08:43:05
- AW: Wert suchen incl. Formelergebnis - von WernerB. am 20.11.2003 13:24:52
- Super! genau das wars - von Erich M. am 21.11.2003 06:59:57
- Super! genau das wars - von Erich M. am 21.11.2003 06:59:57
- AW: Wert suchen incl. Formelergebnis - von WernerB. am 20.11.2003 13:24:52
- AW: Wert suchen incl. Formelergebnis - von Erich M. am 20.11.2003 08:43:05
- AW: Wert suchen incl. Formelergebnis - von WernerB. am 20.11.2003 07:43:53
 |
Betrifft: Wert suchen incl. Formelergebnis
von: Erich M.
Geschrieben am: 20.11.2003 07:13:18
Hallo zusammen,
habe mit Hilfe des Forum einen Code erstellt, der bestimmte Werte
in einer spalte sucht. Nun habe ich das Problem, wenn ich die Zahl "5"
suche, findet er alle "5" - aber er findet "5" nicht, wenn in der Zelle
die Formel "A1+B1" (= 2+3) hinterlegt ist.
So sieht meine Suche aus:
For Each wks In Worksheets
If wks.Name = tarWks Then GoTo Exitfor
Set rng = wks.Columns(mySpalte).Find(what:=sFind, _
LookAt:=xlWhole, LookIn:=xlFormulas)
If Not rng Is Nothing Then
sAddress = rng.Address
Do
Application.Goto rng, True
' If MsgBox("Weiter und kopieren", vbYesNo + vbQuestion) = vbNo Then Exit Sub
wks.Rows(rng.Row).Copy Destination:=Worksheets(tarWks).Rows(Cr)
Cr = Cr + 1
Set rng = Columns(mySpalte).Cells.FindNext(After:=ActiveCell)
If rng.Address = sAddress Then Exit Do
Loop
End If
Exitfor:
Next wks
Besten Dank für eine Hilfe!
Der gesamte Code siehe hier:
https://www.herber.de/forum/archiv/340to344/t340130.htm
mfg
Erich
 |
Betrifft: AW: Wert suchen incl. Formelergebnis
von: WernerB.
Geschrieben am: 20.11.2003 07:43:53
Hallo Erich,
ersetze mal
LookIn:=xlFormulas
durch
LookIn:=xlValues
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: Wert suchen incl. Formelergebnis
von: Erich M.
Geschrieben am: 20.11.2003 08:43:05
Hallo Werner,
super - das wars!
Gibt es auch noch eine Möglichkeit, dass beim Übernehmen der Formel
in die neue Tabelle nicht die Formel (="A1+B1") sondern der fixe Wert
(="5") eingetragen wird??
Besten Dank!!
mfg
Erich
die
|
Betrifft: AW: Wert suchen incl. Formelergebnis
von: WernerB.
Geschrieben am: 20.11.2003 13:24:52
Hallo Erich,
ich schlage vor, Dein Makro wie folgt zu ergänzen:
wks.Rows(rng.Row).Copy Destination:=Worksheets(tarWks).Rows(Cr)
wks.Rows(rng.Row).Copy
Worksheets(tarWks).Rows(Cr).PasteSpecial Paste:=xlValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Cr = Cr + 1
Gruß WernerB.
|
Betrifft: Super! genau das wars
von: Erich M.
Geschrieben am: 21.11.2003 06:59:57
Hallo Werner,
besten Dank - darauf wär ich nie gekommen;
mein Problem ist jetzt komplett gelöst!!
Wie immer perfekte Leistung des Forums!!
mfg
Erich
| |