Office: Daten aus fremder Datei lesen

Huhu

brauch nochmal Hilfe!

ich habe folgendes:

Private Sub Workbook_Open()
Dim rngTarget As Range
Set rngTarget = Range("a1:I10")
Application.ScreenUpdating = False
Workbooks.Open "d:\Dokumente und Einstellungen\xxxx\Desktop\TEST\farben.xls"
rngTarget.Value = Range("A1:i10").Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub


Aber ich will Workbooks.Open.Range("A20").value machen und das geht nicht (Sprich dass er den Pfad aus einer Zelle liest.)

Geht das überhaupt? hat jemand eine Idee?

greetz und thx im vorraus

 

mh habs so gelöst.. 2 codes zusammengeschmissen ..

muss doch aber auch kürzer gehen oder?

Private Sub Workbook_Open()
Dim rngTarget As Range
' Ziel
Set rngTarget = Range("C1")
' Ziel
Application.ScreenUpdating = False
Dim ExtFile As String
Dim ExtBk As Workbook

ExtFile = Range("B2").Value
If Not ExtFile = "" And Dir(ExtFile) <> "" Then
Else
ExtFile = Application.GetOpenFilename(FileFilter:="microsoft excel files (*.xls), *.xls", Title:="Please Select Service A File")
End If
On Error Resume Next
Set ExtBk = Workbooks(Dir(ExtFile))
On Error GoTo 0
If ExtBk Is Nothing Then
Application.Workbooks.Open ExtFile
Set ExtBk = Workbooks(Dir(ExtFile))
End If

' Quelle
rngTarget.Value = Range("A5").Value
' Quelle
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
End Sub

 

Mh hab doch en Fehler..

Ich will Dass die Datei Übersicht aus den Dateien die in B1:B5 stehen die Werte welche jeweils in C2 im Tabellenblatt Gesamt in den Dateien stehen auslesen, aber irgentwie will das nicht so

 

Hi,

versuche mit deinem 1. Code auf diese Weise:

Code:

Workbooks.Open Worksheets("Tabelle1").Range("A20") & "farben.xls" 

In A20 steht der Pfad mit einschließlich eines Backslashs am Ende.

Bis später,
Karin

 

sorry falls es jemand als spam ansieht aber habs glaub geschafft xD

Private Sub Workbook_Open()
Dim Test As String
For x = 2 To Cells(1, 1).Value
Test = Cells(x, 2)


Dim rngTarget As Range
'Ziel
Set rngTarget = Cells(x, 8)
'Ziel
Application.ScreenUpdating = False
Application.Workbooks.Open Test
'Quelle
rngTarget.Value = Range("A1").Value
'Quelle
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True


Next x


End Sub

 

Huhu,,

hab alles nochmal angepasst und angeschaut und wollte alles gerade übertragen musste aber leider feststellen, dass es nur funktioniert wenn es VBA-Teil "Diese Arbeitsmappe" liegt.. ich will das aber als Button für 3 unterschiedliche Blätter machen... hat jemand einen Rat? Wenn ich den Code in Tabelle1 lege macht er alles wie vorher auch NUR dass er den Wert nicht mehr einträgt.. hab schon

Tabelle1.Cells(a, 4).Value versucht und alles.. klappt aber irgentwie nicht..


Private Sub test_Click1()
Dim Test As String
For x = 21 To Cells(20, 1)
Test = Cells(x, 1)


Dim a As Integer
a = x - 16
Dim rngTarget As Range
'Ziel
Set rngTarget = Cells(a, 4)
'Ziel
Application.ScreenUpdating = False
Application.Workbooks.Open Test
'Quelle
rngTarget.Value = Range("G15").Value
'
'
'hier noch ein Select fürs Datenblatt rein!!!
'
'
'Quelle
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True


Next x


End Sub

 

Hi,

schreibe den Code als normale Sub in eine allgemeines Modul, erstelle dann in jedem Tabellenblatt eine Schaltfläche aus der Formular-Symbolleiste und weise die Sub diesen Schaltflächen als Makro zu.

Bis später,
Karin

 

hatte ich gemacht.. hatte nicht geklappt.. naja habs jetzt auf ein blatt gemacht und man muss halt einen button drücken durch den immer nur angezeigt wird was man sehen soll.. also auch nicht anders als wie wenn man ein tabellenblatt wechseln würde

aber danke :)

 

Hi,

das kann nicht sein, dass du deinen Code in ein allgemeines Modul geschrieben und der Schaltfläche aus der Formular-Symbolleiste zugewiesen hast, denn zum einen schreibst du selbst, dass du die Prozedur im Codemodul des Tabellenblattes hast und zum anderen kannst du eine Private-Prozedur keinem Steuerelement aus der Formular-Symbolleiste zuweisen, selbst wenn sie in einem allgemeinen Modul stünde - durch den Vorsatz "Private" wird sie bei der Makro-Auswahl gar nicht angeboten.

Bis später,
Karin

Bis später,
Karin