Zellen aus verschiedenen Tabellen per VBA auslesen

Hallo! Ich benötige Expertenwissen!
Ich möchte Zellen aus Exceltabellen per VBA auslesen.
- Die Tabellen liegen in verschiedenen Unterverzeichnissen verteilt auf drei Laufwerken (H:\, I:\ und K:\)
- Die Dateibezeichnung der auszulesenden Tabellen beginnt immer mit kalk_pr*.xlsm
- Es handelt sich immer um die Dateiendung xlsm
- Das auszulesende Tabellenblatt heißt immer Kalkulation
- Der auszulesende Inhalt befindet sich immer in B3, B5, D5, D1, D2,D3 und soll in dieser Reihenfolge in die neue Tabelle in eine Zeile beginnend in A3 eingefügt werden
- Am Ende darf gerne eine Meldung Fertig! erscheinen
Ich habe diverse Codes ausprobiert und erreiche nur Teilerfolge, da meine Kenntnisse einfach nicht ausreichen. Vielleicht kann mir jemand weiterhelfen.
Danke!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das ist eines davon, im Internet gefunden, etwas abgeändert, aber nicht, wie ich es bräuchte. Die Zellenzuweisungen passen natürlich nicht. Der Pfad muss genau passen, sonst liest er nichts. Die anderen Codes habe ich nicht gespeichert. Habe einfach aufgegeben, weil immer nur Teilbereiche meines Wunsches erfüllt waren. Für den Zugriff zu verschiedenen Laufwerken konnte ich in diesem Zusammenhang überhaupt nichts finden.

Sub Bereich_auslesen()
'** Dimensionierung der Variablen
Dim pfad As String, datei As String, blatt As String, bereich As Range, zelle As Object
'** Angaben zur auszulesenden Zelle
pfad = "K:\"
datei = "*kalk*.xlsm"
blatt = "Kalkulation"
Set bereich = Range("A1:B10")
'** Bereich auslesen
For Each zelle In bereich
'** Zellen umwandeln
zelle = zelle.Address(False, False)
'** Eintragen in Bereich
ActiveSheet.Cells(zelle.Row, zelle.Column).Value = GetValue(pfad, datei, blatt, zelle)
Next zelle
End Sub
Private Function GetValue(pfad, datei, blatt, zelle)
'** Daten aus geschlossener Arbeitsmappe auslesen
'*** Dimensionierung der Variablen
Dim arg As String
'Sicherstellen, dass das datei vorhanden ist
If Right(pfad, 1)  "\" Then pfad = pfad & "\"
If Dir(pfad & datei) = "" Then
GetValue = "datei Not Found"
Exit Function
End If
'** Das Argument erstellen
arg = "'" & pfad & "[" & datei & "]" & blatt & "'!" & Range(zelle).Range("A1").Address(, ,  _
xlR1C1)
'** Auslesen über Excel4Macro
GetValue = ExecuteExcel4Macro(arg)
End Function

Beliebteste Forumthreads (12 Monate)

Zellen aus verschiedenen Tabellen per VBA auslesen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zellen aus verschiedenen Tabellen per VBA auslesen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread