title image


Smiley 2 Antworten
Hallo Julia,

hier mal zwei Varianten:

Variante 1: Öffnen der Datei und Wert aus einer Zelle in eine Variable schreiben

Variante 2: Externen Bezug zu einem Wert aus Datei herstellen, ohne Quellmappe zu öffnen.





      

Sub ZugriffaufandereMappe()



    Dim zuOeffnendeDatei

    Dim NurDateiname

    Dim Blatt As String

    Dim gewuenschterWert

    Dim I As Integer

       

    'Datei auswählen

    zuOeffnendeDatei = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")

    If zuOeffnendeDatei = False Then

       Exit Sub

    End If

    

    'Blatt auswählen

    Blatt = InputBox("Bitte gewünschtes Arbeitsblatt angeben!")

    If Blatt = "" Then

       Exit Sub

    End If

    'den Dateinamen ermitteln

    I = Len(zuOeffnendeDatei)

    Do Until Mid(zuOeffnendeDatei, I, 1) = "\"

       I = I - 1

    Loop

    NurDateiname = Mid(zuOeffnendeDatei, I + 1)

    

    'Öffnen der Datei

    Workbooks.Open zuOeffnendeDatei

    'Bestücken Variable gewuenschterWert aus Tabellenblatt - hier aus Zelle A!

    gewuenschterWert = Worksheets(Blatt).[a1]

    

    Workbooks(NurDateiname).Close

    

    MsgBox gewuenschterWert

    

End Sub



Sub ExternerBezug()



    Dim zuOeffnendeDatei

    Dim extBezug As String

    Dim Blatt As String

    Dim I As Integer

        

    'Datei auswählen

    zuOeffnendeDatei = Application.GetOpenFilename("Excel Dateien (*.xls), *.xls")

    If zuOeffnendeDatei = False Then

       Exit Sub

    End If

    

    'Blatt auswählen

    Blatt = InputBox("Bitte gewünschtes Arbeitsblatt angeben!")

    If Blatt = "" Then

       Exit Sub

    End If

    'den Dateinamen ermitteln

    I = Len(zuOeffnendeDatei)

    Do Until Mid(zuOeffnendeDatei, I, 1) = "\"

       I = I - 1

    Loop

    

    extBezug = "='" & Mid(zuOeffnendeDatei, 1, I) & "[" & Mid(zuOeffnendeDatei, I + 1) & "]" & Blatt & "'!$A$1"

    'Eintragn der Formel für Wert aus anderer Mappe - hier Wert asu A1 in B1 der aktiven Mappe

    Range("B1").Formula = extBezug



End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0





Hoffe, eine der beiden Varianten kommt für dich in Frage.



Zu 2.

Ich würde den Code in ein Standardmodul packen.


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: