Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA öffnet and. Excel File, aber Formel geht mehr

VBA öffnet and. Excel File, aber Formel geht mehr
29.06.2006 11:33:31
Thomas
Hallo zusammen, also mein Problem ist folgendes. Ich habe in einer Excel File genannt "Aktueller Tag" eine Formel gemacht, die auf eine andere Excel File "Vortag" bezug nimmt. Den Vortag öffne ich mit Hilfe von VBA Befehlen. Laut Debugger kommt auch keine Fehlermeldung. Die Formel wird auch korrekt in Aktueller Tag hineingesetzt, aber die Formel stimmt nicht. Ich hab bisher herausgefunden, dass der Bezug von Aktueller Tag zu Vortag nicht funktioniert. Ich kann natürlich auch falsch liegen, also bitte ich um Hilfe!!!
Hier ein Ausschnitt von dem Code mit dem Problem...
''Übernahme Versanddaten Vortag
Dim ylAnw As Excel.Application
Set ylAnw = CreateObject("excel.application")
ylAnw.Visible = True
ylAnw.Workbooks.Open Filename:=ActiveWorkbook.Path & "\YYf4 Vortag.xls"
Range("N3").Select
ActiveCell.FormulaR1C1 = _
"=LOOKUP(3,1/('[YYf4 Vortag.xls]Tabelle1'!R3C1:R201C1&'[YYf4 Vortag.xls]Tabelle1'!R3C2:R201C2&'[YYf4 Vortag.xls]Tabelle1'!R3C4:R201C4=RC[-13]&RC[-12]&RC[-10]),'[YYf4 Vortag.xls]Tabelle1'!R3C5:R201C5)"
Selection.AutoFill Destination:=Range("N3:N201"), Type:=xlFillDefault
Range("N3:N201").Select
ylAnw.Quit
Set ylAnw = Nothing
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA öffnet and. Excel File, aber Formel geht mehr
30.06.2006 07:35:25
Kalkschmid
hallo zusammen,
hab bisschen in anderen Lösungen zu Problemen gestöbert und selber eine Lösung gefunden, damits funktiniert. Ich poste sie mal, empfalls jemand anderes auch so ein Problem mal haben sollte. Das Problem - theoretisch ganz einfach - war, dass der Pfad mit übergeben werden muß in der Formel. Dann funktinierts. Natürlich kann der Pfad auch mit path ermittelt werden. werde ich sicherlich noch gleich einbauen. hier die Lösung:
ActiveCell.FormulaR1C1 = _
"=LOOKUP(3,1/('C:\test\[YYf4 Vortag.xls]Tabelle1'!R3C1:R201C1&'C:\test\[YYf4 Vortag.xls]Tabelle1'!R3C2:R201C2&'C:\test\[YYf4 Vortag.xls]Tabelle1'!R3C4:R201C4=RC[-13]&RC[-12]&RC[-10]),'C:\test\[YYf4 Vortag.xls]Tabelle1'!R3C5:R201C5)"
Selection.AutoFill Destination:=Range("N3:N201"), Type:=xlFillDefault
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige