Auslesen_Tabellenblattname_eintragen-siehe VBA
06.04.2009 11:13:51
Fabio
mit dem Makro unten aus dem Forum lese ich diverse Exceldateien in einem Verzeichzis aus. Soweit ich das gesehen habe, liest das Makro immer das "erste" Tabellen-Blatt aus.
Aktuell habe ich folgendens:
- Ein Verzeichnis mit 10 Excel-Dateien
- Die Exeldatein haben jeweils unterschiedliche Registerblätter (unterschiedliche Namen -meist Datum oderso)
Folgendes hätte ich gerne:
- Auslesen des Wertes "D80" in allen Excel-Dateien in dem Verzeichnis G:\2009\Test\Kindersport"
- und in allen vorhandenen Tabellenblättern
- in der Datei "ueberblick.xls" (aus der heraus ich das Makro gerne starten würde)
- soll dann ab dem Feld "B2" / "C2" nach unten die jeweiligen Werte stehen
- "B2" = Name Tabellenblatt "C2" Wert aus dem jeweiligen D80
- "B3" = Name Tabellenblatt "C3" Wert aus dem jeweiligen D80
Vielen Dank für jegliche Unterstützungen !
Fjolnir
Sub datenSammeln()
Dim strPath As String, strFile As String, strTab As String
Dim lngR As Long
lngR = 2 'startZeile
strTab = "Tabelle1"
strPath = "G:\2009\Test\Kindersport" 'Verzeichnis - Anpassen
If Right(strPath, 1) "\" Then strPath = strPath & "\"
strFile = Dir(strPath & "*.xls")
Do While strFile ""
Cells(lngR, 3).Formula = "='" & strPath & "[" & strFile & "]" & strTab & "'!D80"
lngR = lngR + 1
strFile = Dir
Loop
End Sub