VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte aller A1-Zellen aus allen Blättern Tabelle1

Gruppe

Datei

Bereich

Arbeitsmappe

Thema

Werte aller A1-Zellen aus allen Blättern Tabelle1

Problem

In Spalte A sollen die Werte aus A1 aus allen Tabellenblättern "Tabelle1" aller Arbeitsmappen aus dem in Zelle B1 genannten Verzeichnis eingelesen werden.

Lösung

Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.




StandardModule: Modul1

Sub Einlesen()
   Dim iCounter As Integer, iRow As Integer
   Dim sfile As String, sPath As String
   iRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
   With Application.FileSearch
      .LookIn = Range("B1").Value
      .FileType = msoFileTypeExcelWorkbooks
      .Execute
      For iCounter = 1 To .FoundFiles.Count
         sfile = Dir(.FoundFiles(iCounter))
         sPath = WorksheetFunction.Substitute(.FoundFiles(iCounter), sfile, "")
         With Cells(iRow, 1)
            .Formula = "='" & sPath & "[" & sfile & "]Tabelle1'!A1"
            .Value = .Value
         End With
         iRow = iRow + 1
      Next iCounter
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Datei und Arbeitsmappe