werte aus mehrreren excel tabelen

Question

hallo erst ein mal,ich habe da eein problemm.
ich möchte daten aaus anderren excel tabellen hollen z.b
ich trage in spalte A1:A100 den namen der excel tabelle ein
10-0110 und dann soll er mir aus dieser excel tabelle die immer im
gleichen ordener liegt die werte aus tabelle1 Q27 hollen
und in spalte B1:B100 eintragen.
aber aus einer geeschlossenen arbeitsmappe.

Danke euch schon mal für die hilfe.

Answer 1

hi :-) mo

falls sich noch jemand probieren sollte,es können nur zellen angesprochen werden ,
keine Bereiche

excel4 konforme formel Syntax ausgenommen

ist in arbeit ^^

gruss nighty

Answer 2

hallo MO,
recht herzlichen dank an dich !!!
es geht so das ich in spalte A1:... meine Texte eintragen kann.
kann mann das auch noch begrenzen also das mann nur bis A500 z.b die daten eintragen kann und
darunter wieder texte..?
gruß nero

Answer 3

Halllo nero,

probier's mal so:

Option Explicit

Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A2:A500")) Is Nothing Then
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists("C:\test\" & Range("A" & Target.Row) & ".xlsm") = True Then
Range("B" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C17")
Range("C" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C18")
Range("D" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C19")
Range("E" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C20")
Range("F" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C21")
Range("G" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C22")
Range("H" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C23")
Range("I" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C24")
Range("J" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C25")
Range("K" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C26")
Range("L" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C27")
Range("M" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C28")
Range("N" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C29")
Range("O" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C30")
Range("P" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C31")
Range("Q" & Target.Row).Value = ExecuteExcel4Macro("'C:\test\[" & Range("A" & Target.Row) & ".xlsm]Werte'!R27C32")
Else
Range("A" & Target.Row).Value = "?"
Range("B" & Target.Row).Value = "?"
End If
End If
End If
Application.EnableEvents = True
End Sub

Gruß
Rainer

Answer 4

Hallo rainberg, es geht hervorragend :) Danke sehr !!!

Range("A" & Target.Row).Value = "?"
Range("B" & Target.Row).Value = "?"
End If
End If
Application.EnableEvents = True
End Sub

ich habe 1x das End lf entfernt und dann ging es !!

Danke ihr seit echt super :)

habe da eigendlich noch etwas aber werde mal versuchen ob ich hier im forum etwas diesbezüglich finde.