Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

daten aus geschlossener Tabelle...

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
Anzeige
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



Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige