2 Zeilen werden gesucht

Sub Zugriff_auf_eine_andere_Mappe() Dim Pfad, Dateiname, Tabellenname, Zelladresse As String Pfad = InputBox("Bitte den Pfad eingeben (zB c:\Temp1): ") Dateiname = InputBox("Bitte den Dateiname eingeben (zB Kunden): ") Tabellenname = InputBox("Bitte den Tabellenname eingeben (zB 2008): ") Zelladresse = InputBox("Bitte die Zelladresse eingeben (zB B10): ") ' Nun soll die Datei geöffnet werden und der Wert aus B10 der betreffenden Tabelle ' in die Zelle C5 der aufrufenden Datei, die das Makro enthält, übertragen werden End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jean,
hie eine Variante ohne die Datei zu Öffnen.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub Zugriff_auf_eine_andere_Mappe()
  'Variablendeklaration muss für jede Variable separat erfolgen!
  Dim Pfad As String, Dateiname As String, Tabellenname As String, Zelladresse As String

  Pfad = InputBox("Bitte den Pfad eingeben (zB c:\Temp1): ")
  Dateiname = InputBox("Bitte den Dateiname eingeben (zB Kunden.xls): ")
  Tabellenname = InputBox("Bitte den Tabellenname eingeben (zB 2008): ")
  Zelladresse = InputBox("Bitte die Zelladresse eingeben (zB B10): ")

  ' Nun soll die Datei geöffnet werden und der Wert aus B10 der betreffenden Tabelle
  ' in die Zelle C5 der aufrufenden Datei, die das Makro enthält, übertragen werden

  'Tabellenname anpassen!
  ThisWorkbook.Sheets("Tabelle3").Range("C5") = GetValue(Pfad, Dateiname, Tabellenname, Zelladresse)


End Sub

Private Function GetValue(path As String, file As String, _
    sheet As String, ref As String)
  ' 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

Gruß Sepp

Sub Zugriff_auf_eine_andere_Mappe() 'Variablendeklaration muss für jede Variable separat erfolgen! Dim Pfad As String, Dateiname As String, Tabellenname As String, Zelladresse As String Pfad = InputBox("Bitte den Pfad eingeben (zB c:\Temp1): ") Dateiname = InputBox("Bitte den Dateiname eingeben (zB Kunden.xls): ") Tabellenname = InputBox("Bitte den Tabellenname eingeben (zB 2008): ") Zelladresse = InputBox("Bitte die Zelladresse eingeben (zB B10): ") With ThisWorkbook.Sheets("Tabelle3").Range("C5") .Formula = "='" & Pfad & "\[" & Dateiname & "]" & Tabellenname & "'!" & Zelladdresse .Formula = .Value End With End Sub

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2 Zeilen werden gesucht

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread