Thema Datum  Von Nutzer Rating
Antwort
30.07.2018 19:23:14 kontor2012
NotSolved
Blau Excel
04.08.2018 19:56:56 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
04.08.2018 19:56:56		 Views:
488		 Rating:
     
Antwort:
  Ja
Thema:
Excel

Hallo Kontor2012,

Ich bin leider nicht sicher ob ich dich richtig verstanden habe, aber probier mal folgenden Code. Den musst du in Dokument 2 in das entsprechende Tabellenmodul legen wo du die Zieldaten sehen willst. Vergisst nicht das Dokument als .xlsm abzuspeichern.

Private Sub Worksheet_Change(ByVal Target As Range)
  
  Pfad = "E:\meinPfad\Tests\" 'Dateipfad
  Datei = "Liste1.xls" 'Dateiname der Liste
  Blatt = "Tabelle1" 'Tabellenblatt wo Liste ist
  
  If Right(Pfad, 1) <> "\" Then Pfad = Pfad + "\"
  
  If Target.Address = "$A$13" Then
    If Not IsOpen(Datei) Then
      Workbooks.Open Pfad & Datei
      ThisWorkbook.Activate
    End If
    Set Liste = Workbooks(Datei).Sheets(Blatt)
    Range("C12") = Liste.Range("A" & Target)
    Range("D20") = Liste.Range("B" & Target)
  End If
  
End Sub
Function IsOpen(Filename) As Boolean
  On Error Resume Next
  IsOpen = Workbooks(Filename).Name <> ""
End Function

Ohne Makro geht as natürlich auch, nur mit einer reinen Formel. Du müsstest dann in die Zellen C12, D20 usw. eine Indirekt-Formel schreiben:

=INDIREKT("'E:\meinPfad\Tests\[Liste1.xls]Tabelle1'!A"&$A$13)

Die Formel-Variante klappt aber nur, wenn die Liste bereits geöffnet ist. Andernfalls wird #Bezug! zurückgegeben.

Gruß Mr. K.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.07.2018 19:23:14 kontor2012
NotSolved
Blau Excel
04.08.2018 19:56:56 xlKing
NotSolved