Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 18:57:33
17.04.2024 16:56:58
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sverweis mit Variablen bei VBA Programmierung

Sverweis mit Variablen bei VBA Programmierung
24.06.2007 19:57:00
Sebastian
Ich möchte in einem Makro in eine Zelle eine Sverweis Formel bringen und die Datei und das Register als Variable in die Formel eintragen:
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC2,'[Auftraggeber aus SAP.xls]Auftraggeber aus SAP'!R2C1:R9999C24,8,FALSE)"
Also die Datei Auftraggeber aus SAP.xls und das Register Auftraggeber aus SAP sollen als Variable eintragbar sein:
Ich denke ich muss dabei die Variablen wie folgt definieren:
Dim SAPDatei As Object
Dim SAPRegister As Object
und dann "aktivieren":
Set SAPDatei = ActiveWorkbook
Set SAPRegister = ActiveWorksheet
und dann in die Formel eintragen:
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC2,'[SAPDatei]SAPRegister'!R2C1:R9999C24,8,FALSE)"
Das funktioniert aber nicht. Woran liegts? Syntax? Oder geht das gar nicht?
Nachdem ich mir daran die Zähne ausgebissen habe, wäre ich für einen Tipp sehr dankbar
Sebastian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sverweis mit Variablen bei VBA Programmierung
24.06.2007 20:24:00
Beverly
Hi Sebastian,
ich kann den Code jetzt nicht testen, aber vom Prinzip her sollte es so funktionieren
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC2,'[" & SAPDatei & "]" & SAPRegister & "'!R2C1:R9999C24,8,FALSE)"
________________________________________

AW: Sverweis mit Variablen bei VBA Programmierung
24.06.2007 20:28:00
Josef
Hallo Sebastian,
in der Formel kannst du nicht das Objekt übergeben sondern einen String der den Namen des Objektes trägt.
Ungetestet:

Dim SAPDatei As String, SAPRegister As String
SAPDatei = ActiveWorkbook.Name
SAPRegister = ActiveWorksheet.Name
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC2,'[" & SAPDatei & "]" & SAPRegister & "'!R2C1:R9999C24,8,FALSE)"


Gruß Sepp

Anzeige

311 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige