Datei über VBA öffnen

[Olerostock]

Hi Alexandra,

nein habe ich nicht.

[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
läufts.

[Gast 123]

Hallo

alternativ zum Datei öffnen kann man die Werte mit VBA auch per Formeln als Werte laden.
Bedingung ist aber in der Formel für Sheets(""RP_NZ"")  den VBA Codename anzugeben.
Den kann man per Msgbox ermitteln:   Msgbox Sheets(""RP_NZ"") .CodeName

mfg Gast 123

Code:

Sub PerFormel_kopieren()
  Pfad = "'C:\Sammlung\Verträge\Global\2025\"
  Datei = "[Daten.xlsb]TabelleX'!"  'CodeName für Sheets(""RP_NZ"")
  Sheets(1).[b2:i49].Formula = Pfad & Datei & "K4"     'Formel setzen
  Sheets(1).[b2:i49].Value = Sheets(1).[b2:i49].Value  'In Werte wandeln
  Sheets(1).[b2:i49].Replace "0", "", xlWhole          'Nullwerte löschen
End Sub