Thema Datum  Von Nutzer Rating
Antwort
01.09.2017 09:13:35 Christoph
NotSolved
Blau Variablen über Schleife ansprechen / zusammensetzen
 01.09.2017 12:46:33 Ben
Solved
01.09.2017 12:53:51 Christoph
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
01.09.2017 12:46:33		 Views:
578		 Rating:
     
Antwort:
 Nein
Thema:
Variablen über Schleife ansprechen / zusammensetzen

Hallo,

dieser Code sollte das gewünschte Ergebnis liefern:

Sub TEST()
    
    Dim strpath(1 To 5)
    Dim n As Integer
    Dim wbk As Workbook
    Dim wert As String
    
    strpath(1) = "L:\temp\excel\Auslesen\Mappe1.xlsx"
    strpath(2) = "L:\temp\excel\Auslesen\Mappe2.xlsx"
    strpath(3) = "L:\temp\excel\Auslesen\Mappe3.xlsx"
    strpath(4) = "L:\temp\excel\Auslesen\Mappe4.xlsx"
    strpath(5) = "L:\temp\excel\Auslesen\Mappe5.xlsx"
    
    
    For n = 1 To 5
        Set wbk = GetWorkbook(strpath(n))
        wert = wbk.Worksheets(1).Cells(1, 1)
        
        wbk.Close False
    Next n
End Sub

Function GetWorkbook(ByVal sFile As String) As Workbook
    Dim wbk As Workbook
    Dim bFound As Boolean
    For Each wbk In Application.Workbooks
        If wbk.FullName = sFile Then
            bFound = True
            Set GetWorkbook = wbk
            Exit For
        End If
    Next
    If Not bFound Then
        Set GetWorkbook = Application.Workbooks.Open(sFile)
    End If
End Function

LG, Ben

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
01.09.2017 09:13:35 Christoph
NotSolved
Blau Variablen über Schleife ansprechen / zusammensetzen
 01.09.2017 12:46:33 Ben
Solved
01.09.2017 12:53:51 Christoph
NotSolved