Excel VBA: ExecuteExcel4Macro Problem

[sharky51]

Hallo zusammen,

ich lese aus einer geschlossenen Mappe einige Werte mit diesem Makro aus.
Anstatt der Angabe von Zeile und Spalte würde ich aber gerne eine mit Namen benannte Zelle angeben, das funktioniert leider nicht.
Bekomme die Fehlermeldung an der Stelle Zellbezug: Ungültiger Prozedur oder ungültiges Argument.

Wie müsste das Argument richtig heißen?

Code:

Sub Zelle_auslesen()
  Dim Adresse As String, Zeile As Integer, Spalte As Integer, Zellbezug As String
  Dim monZahl

  pfad = "D:\\Excel\Aktuell\"
  datei = "Test.xlsm"
  Register = "Auswertung"

  Zeile = 257: Spalte = 6 ' Bereichs-Name "Anzahl_Monate"
 'Zellbezug = Cells(Zeile, Spalte).Address(ReferenceStyle:=xlR1C1)
  Zellbezug = Cells("Anzahl_Monate").Address(ReferenceStyle:=xlR1C1)

  Adresse = "'" & pfad & "[" & datei & "]" & Register & "'!" & Zellbezug
  Ergebnis = ExecuteExcel4Macro(Adresse)
  MsgBox ("Wert der Zelle: " & Ergebnis)
End Sub

[Kuwer]

Hallo Erich,

Cells() verlangt mindestens ein numerisches Argument.
Nimm statt Cells() Range().

Gruß Uwe

[sharky51]

Hallo Uwe,

hatte das bereit probiert ...das hilft auch nicht. Wieder Fehlermeldung

Die Methode Range für das Objekt _Global ist fehlgeschlagen

[Kuwer]

Hallo Erich,

so vielleicht?

Code:

Sub Zelle_auslesen()
 Dim Adresse As String, Zeile As Integer, Spalte As Integer, Zellbezug As String
 Dim monZahl

 pfad = "D:\\Excel\Aktuell\"
 datei = "Test.xlsm"
 Register = "Auswertung"

'Zeile = 257: Spalte = 6 ' Bereichs-Name "Anzahl_Monate"
'Zellbezug = Cells(Zeile, Spalte).Address(ReferenceStyle:=xlR1C1)
 Zellbezug = "Anzahl_Monate"

'Adresse = "'" & pfad & "[" & datei & "]" & Register & "'!" & Zellbezug
 Adresse = "'" & pfad & "[" & datei & "]'!" & Zellbezug
 Ergebnis = ExecuteExcel4Macro(Adresse)
 MsgBox ("Wert der Zelle: " & Ergebnis)
End Sub

Gruß Uwe

[sharky51]

Hallo Uwe,

leider funktioniert das auch nicht.

Steigt hier aus:
Ergebnis = ExecuteExcel4Macro(Adresse)

Bekomme wieder Laufzeitfehler 1004:
Wir haben ein Problem bei mindest einem Formelbezug in dieser Arbeitsmappe festgestellt.
Überprüfen Sie, ob alle Zellbezüge, Bereichsnamen, definierten Namen und Verknüpfungen mit anderen Arbeitsmappen in Ihren Formeln richtig sind.


Btw. Wie kann man hier eine Fehlermeldung als Bild einfügen...die Abtipperei nervt ein wenig.

[Kuwer]

Hallo Erich,

Hallo Uwe,

leider funktioniert das auch nicht.

Steigt hier aus:
Ergebnis = ExecuteExcel4Macro(Adresse)

hab es eben selbst gemerkt. So ist es richtig:

Adresse = "'" & pfad & datei & "'!" & Zellbezug

Gruß Uwe

[sharky51]

Hallo Erich,


hab es eben selbst gemerkt. So ist es richtig:

Adresse = "'" & pfad & datei & "'!" & Zellbezug

Gruß Uwe

Ne Uwe,

leider so auch nicht...
Laufzeitfehler 13: Typen unverträglich
und
im Ergebnis erhalte ich "Fehler 2029"

[Steffl]

Auch Hallo,

ist hier

Code:

pfad = "D:\\Excel\Aktuell\"

nicht ein ein Backslash zuviel?

Code:

pfad = "D:\Excel\Aktuell\"

[Rabe]

Hi,

Btw. Wie kann man hier eine Fehlermeldung als Bild einfügen...die Abtipperei nervt ein wenig.

die Bild-Datei mit "neues Attachment" einfügen oder das Bild-Icon (
  Bild-Icon.png (Größe: 646 Bytes / Downloads: 72) ) drücken und den Pfad/Link zur Bild-Datei angeben

[snb]

Code:

Sub Zelle_auslesen()
  pfad = "G:\OF\"
  datei = "Test_snb.xlsb"
  Register = "Sheet1"
  Zellbezug = "Anzahl_Monate"

  MsgBox "Wert der Zelle: " & ExecuteExcel4Macro("'" & pfad & "[" & datei & "]" & Register & "'!" & Zellbezug)
End Sub

oder

Code:

Sub Zelle_auslesen()
  sn = array("G:\OF\", "Test_snb.xlsb", "Sheet1", "Anzahl_Monate")

  MsgBox "Wert der Zelle: " & ExecuteExcel4Macro("'" & sn(0) & "[" & sn(1) & "]" & sn(2) & "'!" & sn(3))
End Sub