Best. Bereich kopieren aus geschl. Datei
17.04.2020 15:54:37
Bernd
ich möchte folgendes Makro (Quelle https://www.excel-inside.de/beispiele_vba/vba-workbooks-datei/947-daten-aus-geschlossener-arbeitsmappe-auslesen)
verfeinern,
Hier das zu verfeinernde Makro...
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 = "F:\Excel\Beispiele"
datei = "geschlossene Mappe2.xls"
blatt = "Tabelle1"
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
indem in der Datei "geschlossene Mappe2.xls" zunächst ein mit Zahlen befüllter Bereich gesucht wird, der wie folgt definiert ist:
Suche die letzten n = 25 Zeilen der Spalten A bis F, die mit Zahlen befüllt sind
Es kann in der Spalte A gesucht werden ab der Zelle A10 bis zu der Zelle, die nicht mehr befüllt ist und dann der Range markiert werden, der aus der nicht geöffneten Datei zu kopieren ist.
Hier der vba-code, den ich verwende, wenn die Datei(en) geöffnet werden, was viel zu lange dauert, da die Dateien recht groß sind.
k = 10 'die Suche soll in Zelle A10 beginnen!
Do
k = k + 1
Loop Until wks_1.Cells(k, 1).Value = "" ' die erste leere Zelle suchen
k_Ende = k - 1
k_Anfang = k - 1 - 25 'n ist zum Beispiel 25
' Folgender Range soll dann in der nicht geöffneten Arbeitsmappe kopiert werden
Range(Cells(k_Anfang, 1), Cells(k_Ende, 6)).Select
Wie baue ich diese Suche nach dem Range der letzten 25 Zahlenreihen in den Spalten A bis F in das obere Makro "Bereich_auslesen()" ein?
Besten Dank vorab für den Support in dieser kniffeligen Sache...
Bernd