Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: In Bereich Ergebnis einer Formel zuweisen

In Bereich Ergebnis einer Formel zuweisen
13.05.2008 08:47:00
Peter
Guten Tag
Ich möchte gerne dem mit "Resultat" benannten Spaltenbereich den Wert aus untenstehender Formel zuweisen und die Zahlen mit 3 Nachkommastellen formatieren.
Kann mir jemand jemand sagen, wie ich dem Range("Resultat") die Ergebnisse dieser Formel zuweise und die Formatierung vornehme?
Vielen Dank!
Peter
=IF(ISERROR(VLOOKUP(RC[-1],b_Daten,COLUMN(k_Titel),FALSE)),"",VLOOKUP(RC[-1],b_Daten,COLUMN(k_Titel) ,FALSE))

Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: In Bereich Ergebnis einer Formel zuweisen
13.05.2008 09:20:05
UweD
Hallo
hier eine Möglichkeit.
VB-Code:

Sub Peter()
    Range("Resultat").FormulaR1C1 = _
    "=IF(ISERROR(VLOOKUP(RC[-1],b_Daten,COLUMN(k_Titel),FALSE)),"""",VLOOKUP(RC[-1],b_Daten,COLUMN(k_Titel) ,FALSE))"
    'oder so
    'Range("Resultat").FormulaLocal = _
    "=WENN(ISTFEHLER(SVERWEIS(U12;b_Daten;SPALTE(k_Titel);FALSCH));"""";SVERWEIS(U12;b_Daten;SPALTE(k_Titel);FALSCH))"
        Range("Resultat").NumberFormat = "0.000"
End Sub
- Die Formel muß in Anführungszeichen stehen.
- da aber in der Formel selbst Anführungszeichen vorkommen, müssen diese "verdoppelt" werden.
gruß UweD

Anzeige
AW: In Bereich Ergebnis einer Formel zuweisen
13.05.2008 09:41:53
Peter
Hallo Uwe
Das hat so geklappt (muss mich immer noch daran gewöhnen, dass aus "" in Excel """" in VBA wird).
Allerdings möchte ich letztendlich nicht die Formel in der Tabelle eintragen, sondern nur den Wert. Was muss ich ändern?
Danke für eine Antwort.
Gruss, Peter

AW: In Bereich Ergebnis einer Formel zuweisen
13.05.2008 09:49:57
Reinhard
Moin Peter,
wenn es dir zu unübersichtlich wird, benutze Chr(34) anstatt ""
Baue unten im Code noch ein:
Range("Resultat").value=Range("Resultat").value
Gruß
Reinhard

Anzeige
AW: In Bereich Ergebnis einer Formel zuweisen
13.05.2008 09:50:00
UweD
Hallo nochmal.
hatte ich falsch verstanden.
das wäre eine Lösung:
VB-Code:

Sub Peter2()
    Range("Resultat").FormulaLocal = _
    "=WENN(ISTFEHLER(SVERWEIS(U12;b_Daten;SPALTE(k_Titel);FALSCH));"""";SVERWEIS(U12;b_Daten;SPALTE(k_Titel);FALSCH))"
        Range("Resultat").NumberFormat = "0.000"
    'Wert!!
    Range("Resultat").Value = Range("Resultat").Value
End Sub
Gruß UweD

Anzeige
AW: Vielen Dank! owT
13.05.2008 10:02:00
Peter
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige