Verweis mit VBA

Forumthread: Verweis mit VBA

Verweis mit VBA

12.01.2005 21:43:33

Daniel

hallo zusammen
ich möchte in Mappe1/Tabelle1 den aktuellen Wert von der anderen Exceldatei Mappe2 Feld a2. Erhalte aber immer eine Fehlermeldung.
Hat jemand eine Idee, Danke 1000 mal
ActiveCell.Offset(0, 0).Value = Windows("Mappe2").Sheets("Tabelle1").Range("a2")

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verweis mit VBA

PeterW
AW: Verweis mit VBA

12.01.2005 21:51:49

Daniel
AW: Verweis mit VBA

12.01.2005 21:49:20

Cardexperte
AW: Verweis mit VBA

12.01.2005 21:53:44

Daniel
AW: Verweis mit VBA

Heiko
AW: Verweis mit VBA

12.01.2005 21:55:45

Daniel
AW: Verweis mit VBA

12.01.2005 21:56:02

Ralf
AW: Verweis mit VBA

12.01.2005 22:13:25

Daniel
AW: Verweis mit VBA

13.01.2005 01:29:58

Matthias

AW: Verweis mit VBA

PeterW

Hallo Daniel,
Mappe2 ist geöffnet? dann vielleicht so:
ActiveCell.Value = WorkBooks("Mappe2.xls").Sheets("Tabelle1").Range("a2")
Gruß
Peter

AW: Verweis mit VBA

12.01.2005 21:51:49

Daniel

Danke PeterW
leider erhalte ich auch hier ein Laufzeitfehler 9

AW: Verweis mit VBA

12.01.2005 21:49:20

Cardexperte

Hello Daniel,
fehlt vielleicht hinten noch ein. value?
Gruss WS

AW: Verweis mit VBA

12.01.2005 21:53:44

Daniel

Danke Cardexperte
auch bei deinem Vorschlag erhalte ich einen Laufzeitfehler

AW: Verweis mit VBA

Heiko

So sollte es gehen.
ActiveCell.Offset(0, 0).Value = Workbooks("Mappe2").Sheets("Tabelle1").Range("a2")
Gruß Heiko

AW: Verweis mit VBA

12.01.2005 21:55:45

Daniel

he Super
geht so wunderbar
Danke das geht hier ja schnell

AW: Verweis mit VBA

12.01.2005 21:56:02

Ralf

Hallo Daniel,
mit folgendem Code (in ein allgemeines Modul) aus dem Archiv hole ich mit Daten aus geschlossenen Files:
Sub TestGetValue()
Dim p As String
Dim f As String
Dim s As String
Dim r As String
p = "C:\Test\"
f = "test.xls"
s = "Tabelle1"
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

Statt MsgBox kannst du ja die Variable weiterverarbeiten.
Gruß
Ralf

AW: Verweis mit VBA

12.01.2005 22:13:25

Daniel

genial
Danke 1000 mal
jetzt veruche ich nur noch r = "A1" mit r = Activecell.value zuersetzen..

AW: Verweis mit VBA

13.01.2005 01:29:58

Matthias

Hallo Daniel,
schreib doch:
r = ActiveCell.Address(0,0)
Gruß Matthias

Beliebteste Forumthreads (12 Monate)

Forumthread: Verweis mit VBA

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread