Zellen aus verschiedenen Tabellen per VBA auslesen

Forumthread: Zellen aus verschiedenen Tabellen per VBA auslesen

22.03.2019 15:01:14

Matthias

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

AW: Zellen aus verschiedenen Tabellen per VBA auslesen

22.03.2019 15:56:37

cysu11

Hi Matthias,
dann zeig mal deine Beispieldatei und was du bisher probiert hast!
LG
Alexandra

AW: Zellen aus verschiedenen Tabellen per VBA auslesen

25.03.2019 08:14:52

Matthias

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

Forumthread: Zellen aus verschiedenen Tabellen per VBA auslesen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Zellen aus verschiedenen Tabellen per VBA auslesen

Forumthread: Zellen aus verschiedenen Tabellen per VBA auslesen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread