Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dim as string in einer Formel

Dim as string in einer Formel
29.01.2016 11:31:22
Uwe
Hallo liebe Experten,
ich konnte meine VBA-Code durch die im Betreff genannte Anweisung erheblich verkürzen.
Nun habe ich bisher erfolglos versucht folgendes durchzuführen:
' Tabellenblatt In Abwicklung bearbeiten
'
Workbooks.Open MusterInAbwicklung
Workbooks(ArbeitsdateiAMintern).Activate
Worksheets("PUK FRA").Activate
Range("S2").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1],'[MUSTER-UM_PUK_MiFID_zWPBestand_RiscUeber-IN-ABWICKLUNG.xlsx]In Abwicklung'!R2C18:R34C21,2,0)"
Ich versuche den fett markierten Begriff, der zu einer bereits geöffneten Mappe und darin auf ein Tabellenblatt verweist, zu kürzen:
Dim MuInAbIn as string
MuInAbIn = "[MUSTER-UM_PUK_MiFID_zWPBestand_RiscUeber-IN-ABWICKLUNG.xlsx]
Das funktioniert allerdings nicht
Hat jemand eine Idee, wie man das lösen könnte?
Vielen Dank dafür im Voraus.

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dim as string in einer Formel
29.01.2016 11:42:37
otto
Hi,
schreib den Bezug auf die externe Mappe in eine Zelle und gib dann anstelle des "fetten" Strings den Zellbezug an.
otto

AW: Dim as string in einer Formel
29.01.2016 11:53:16
Uwe
Hallo Otto,
das verstehe ich nicht.

AW: Dim as string in einer Formel
29.01.2016 12:21:58
Rudi
Hallo,
meinst du so?
MuInAbIn="'[MUSTER-UM_PUK_MiFID_zWPBestand_RiscUeber-IN-ABWICKLUNG.xlsx]In Abwicklung'!"
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1]," &MuInAbIn &"R2C18:R34C21,2,0)"
Gruß
Rudi

AW: Dim as string in einer Formel
29.01.2016 12:25:42
Daniel
Hi
probiers mal so:

dim MuInAbIn as string
MuInAbIn = "[MUSTER-UM_PUK_MiFID_zWPBestand_RiscUeber-IN-ABWICKLUNG.xlsx]"
Workbooks(ArbeitsdateiAMintern).Worksheets("PUK FRA").Range("S2").FormulaR1C1 = _
"=VLOOKUP(RC[-1],'" & MuInAbIn & "In Abwicklung'!R2C18:R34C21,2,0)"

die Variable wird mit & mit den Teilstrings verbunden.
die Grenzen der Teilstrings müssen hierbei mit " gekennzeichnet werden
vor und nach jedem & muss ein Leerzeichen stehen.
es gibt aber noch eine etwas elegantere Methode, um Variablen Text in einen Textbaustein einzubringen, vorallem bei Formeln:
Dim FO as string
Dim MuInAbIn as string
FO = "=VLOOKUP(RC[-1],'[xxx]In Abwicklung'!R2C18:R34C21,2,0)"
MuInAbIn = "MUSTER-UM_PUK_MiFID_zWPBestand_RiscUeber-IN-ABWICKLUNG.xlsx"
FO = Replace(FO, "xxx", MuInAbIn)
Workbooks(ArbeitsdateiAMintern).Worksheets("PUK FRA").Range("S2").FormulaR1C1 = FO
ist zwar etwas mehr Code, dafür aber viel übersichtlicher, weil die Formel im Code als ganzes erhalten bleibt und somit leicher geschrieben und auf eventuelle Fehler überprüft werden kann.
Gruß Daniel

Anzeige
AW: Dim as string in einer Formel
29.01.2016 12:58:52
Uwe
Hallo Daniel,
vielen Dank, ich habe Teil 1 Deiner Vorschläge verwendet und es klappt aber so was von gut.
Darauf kann ich nun aufbauen.
Nochmals danke und ein schönes Wochenende.

AW: Dim as string in einer Formel
29.01.2016 13:25:30
Daniel
Hi
kleiner Tip:
bevor du irgendwas anhakst, lies bitte den daneben stehenden Text.
im Herberforum ist es beispielsweise so, dass man den Haken dann setzt, wenn die Frage noch offen ist und du auf weitere Antworten hoffst.
Wenn die Frage aber erledigt ist und du einfach nur Danke sagen willst, dann setzt man das Häkchen NICHT!
Wenn das Häkchen gesetzt ist, erscheint der Beitrag in der Liste unter dem Menüpunkt NOCH OFFEN neben den Beiträgen ohne Antwort, und das ist hier ja nicht erforderlich.
Gruß Daniel

Anzeige
AW: Dim as string in einer Formel
02.02.2016 10:54:48
Uwe
Hallo Daniel,
danke auch für diesen Tipp.
Gruß,
Uwe

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige