daten aus geschlossener Tabelle...

Forumthread: daten aus geschlossener Tabelle...

16.10.2008 07:52:10

reinhardt

Hallo.
Ich möchte per Button in Mappe1, Tabelle1 Daten aus Mappe2, Tabelle2 und Mappe2, Tabelle3 lesen können.
Habe gestern hier eine Hilfe für den im Archiv gefundenen Code bekommen.
Jetzt schreibt Excel per Button aus Mappe1,Tabelle1 in die Mappe1, Tabelle2 die Daten aus Mappe2, Tabelle1
Ich weiß nicht, wie ich das umdrehen soll.
Wer kann mir bitte helfen?
Gruß Reinhardt.


Sub DatenImportMappe()
Dim rngTarget As Range
Dim tarWks As Worksheet
Set tarWks = Worksheets("Tabelle2")

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: daten aus geschlossener Tabelle...

16.10.2008 08:23:00

Hajo_Zi
AW: Doppelt - weiter in ...

16.10.2008 08:50:55

Erich

AW: daten aus geschlossener Tabelle...

16.10.2008 08:23:00

Hajo_Zi

Hallo Reinhard,
irgendwie past der Betreff nicht zum Inhalt. Ich bbeziehe mich mal auf den Betreff.


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 = "L:\Eigene Dateien\Hajo\"
f = "Adresse.xlsm"
s = "Adresse"
r = "B4"
'   bennanter Bereich ergänzung von Nikhil Milo
'    r = "Heinze"
MsgBox GetValue(p, f, s, r)
Worksheets("Tabelle1").Range("A1") = GetValue(p, f, s, r)
End Sub
Public 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)
'   bennanter Bereich ergänzung von Nikhil Milo
'     arg = "'" & path & "[" & file & "]" & sheet & "'!" & ref
'   Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
End Function
Public Function Start(path, file, sheet, ref)
Worksheets("Tabelle1").Range("A1") = GetValue(path, file, sheet, ref)
Start = Worksheets("Tabelle1").Range("A1")
End Function

AW: Doppelt - weiter in ...

16.10.2008 08:50:55

Erich

Hallo Reinhardt,
meine Antwort findest du im bisherigen Thread: https://www.herber.de/forum/messages/1016733.html
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

daten aus geschlossener Tabelle...

Forumthread: daten aus geschlossener Tabelle...

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread