Macro soll auf geschlossene Arbeitsmappe zugreifen

Hallo,
komme nicht weiter und finde irgendwie nichts passendes :((

Ein Makro, was in der Arbeitsmappe "Klassendaten_10b_Abfrage.xls" steht, soll Daten aus der Arbeitsmappe "Klassendaten_10b_editieren.xls" einfügen.

Das Problem: Die Quelldatei muss geschlossen bleiben (damit keiner "ausversehen" etwas ändern oder löschen kann).

Habe mich mal in den FAQ umgeschaut - so wie es unten steht, klappt es nur, wenn die Quelldatei geöffnet ist.

Kann mir jemand sagen, was ich umschreiben muss?

Schonmal vielen Dank für eure Hilfe

MichiM

-------------
Name = Range("D3").Value
Workbooks("Klassendaten_10b_editieren.xls").Activate
Sheets(Name).Select
Range("B8").Select
Selection.Copy
Workbooks("Klassendaten_10b_Abfrage.xls").Activate
Sheets("Eingabe").Select
Range("D6").Select
ActiveSheet.Paste
Workbooks("Klassendaten_10b_editieren.xls").Activate
Sheets(Name).Select
Range("B9").Select
Selection.Copy
Workbooks("Klassendaten_10b_Abfrage.xls").Activate
Sheets("Eingabe").Select
Range("D8").Select
ActiveSheet.Paste
usw.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Michi

hier mal eine Möglichkeit ohne öffnen, die mal im Forum stand.

Option Explicit
' von Alf Herber Forum
' https://www.herber.de/forum/archiv/52to56/t52834.htm#52840
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "C:\temp\"
f = "test.xls"
s = "Tabelle3"
r = "A1"
MsgBox GetValue(p, f, s, r)
End Sub


Private Function GetValue(path, file, sheet, ref)
'   Retrieves a value from a closed workbook
Dim arg As String
'   Make sure the file exists
If Right(path, 1) <> "\" Then path = path & "\"
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
'   Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.

http://home.media-n.de/ziplies/

Beliebteste Forumthreads (12 Monate)

Macro soll auf geschlossene Arbeitsmappe zugreifen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread