Herbers Excel-Forum - das Archiv

Abfrage in Excel Dateien nach Werten.

Bild

Betrifft: Abfrage in Excel Dateien nach Werten.
von: Morgner

Geschrieben am: 01.03.2005 14:50:00
Ich benötige ein Makro das mir erlaubt eine Abfrage in Excel Dateien gestattet.
Folgendes Problem. In einem Ordner stehen Rechnungsdateien in Excel. Aus diesen Dateien möchte ich nach dem Wort "Rechnungsbetrag" suchen und in der nebenstehenden Zelle den Betrag auslesen. Mit diesen Werten wird dann (ebenfalls in Excel) eine Liste erstellen mit dem jeweiligen Dateinamen und dem Rechnungsbetrag. Ist so was möglich?
Bild

Betrifft: AW: Abfrage in Excel Dateien nach Werten.
von: u_

Geschrieben am: 01.03.2005 15:01:07
Ja.
----------------------------------------------------------------------------------
Beitrag-Funktion
Zeigt einen Hinweis darauf, dass ein Forum-Teilnehmer eine Frage hat, eine Antwort geben möchte, eine allgemeine Bemerkung geben möchte.
Syntax
Beitrag begrüßungsformel,
[ Name ], Text, Schlussformel,
Die Syntax der Beitrag-Funktion verwendet die folgenden Argumente:
Teil Beschreibung
begrüßungsformel Erforderlich. Ein Zeichenfolgenausdruck, der den landesüblichen Geflogenheiten entspricht.
Eine Auswahl möglicher Werte kann der folgenden Zeile entnommen werden.
"Hallo", "Hi", "Guten Tag"
Auch die Verwendung von umgangssprachlichen Angaben, wie z Bsp "Moin" oder "Tach" ist möglich.
name Optional. Ein Zeichenfolgenausdruck, der mit Hilfe des Argumentes
begrüßungsformel die gewünschte Zielgruppe einschränkt.
text Erforderlich. Ein Zeichenfolgenausdruck, der Auskunft über das eigentliche Anliegen des Fragenden gibt.
Der Inhalt ist frei wählbar, sollte jedoch freundlich und qualifiziert gestaltet werden.
schlussformel Erforderlich. Ein Zeichenfolgenausdruck, der den landesüblichen Geflogenheiten entspricht.
Eine Auswahl möglicher Werte kann der folgenden Zeile entnommen werden.
"Ciao", "Gruß", "viele Grüße", "Tschüss"
Auch hier ist die Verwendung von umgangssprachlichen Angaben, wie z Bsp "und wech..." möglich.
Zusätzlich möglich ist es, dass schlussformel den eigenen Namen und/oder den Wert aus name enthält.

Vielleicht versteht auch der Ersteller dieses Threads jetzt, dass ein Beitrag ohne Begrüßungs- und Schlussformel nicht wirklich vollständig ist.
Bild

Betrifft: AW: Abfrage in Excel Dateien nach Werten.
von: Morgner
Geschrieben am: 01.03.2005 15:25:51
Ganz vergessen, man bin ich schusselig.
Vielen Dank für den Hinweis. Mach ich hiermit ungeschehen...
;-))))
Bild

Betrifft: AW: Abfrage in Excel Dateien nach Werten.
von: u_

Geschrieben am: 01.03.2005 16:01:49
Hallo,
teste mal:
Sub Read_Files()
Dim strFTyp As String, _
strOrdner As String, _
strSF As Byte, _
FS As FileSearch, _
i As Integer, z As Integer, n As Integer, _
wbkRE As Workbook, _
wshRE As Worksheet, _
wshFiles As Worksheet, _
rngFind As Range
Application.ScreenUpdating = False
strFTyp = "*.xls"
strOrdner = ThisWorkbook.Path
Set FS = Application.FileSearch
With FS
.LookIn = strOrdner
.Filename = "*" & strFTyp
.SearchSubFolders = True
If .Execute > 0 Then
Set wshFiles = Sheets(1)
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> ThisWorkbook.FullName Then
n = wshFiles.Cells(65536, 1).End(xlUp).Row + 1
Set wbkRE = Workbooks.Open(Filename:=.FoundFiles(i), IgnoreReadOnlyRecommended:=True)
Set wshRE = wbkRE.Sheets(1)
Set rngFind = wshRE.Cells.Find("Rechnungsbetrag", Range("A1")).Offset(0, 1)
With wshFiles.Rows(n)
.Cells(1) = wbkRE.Name
.Cells(2) = rngFind.Value
End With
wbkRE.Close False
Set rngFind = Nothing
End If
Next i
End If
End With
Application.ScreenUpdating = True
End Sub

Gruß
Bild

Betrifft: AW: Abfrage in Excel Dateien nach Werten.
von: Morgner
Geschrieben am: 01.03.2005 17:00:02
Hallo U_
Super teste ich gleich mal... Ihr seit unglaublich.
Bild

Betrifft: AW: Abfrage in Excel Dateien nach Werten.
von: Jens Morgner

Geschrieben am: 01.03.2005 17:17:45
Hall U_
Vielen Dank Super, klappt alles, zur noch ein Paar Fehlermeldungen aber kriege ich hin.
Ich kann euch nur weiterempfehlen.
mfg Jens
 Bild
Excel-Beispiele zum Thema "Abfrage in Excel Dateien nach Werten."
Unterdrückung von Sicherheitsabfragen Arbeitsmappe-Schließen-Abfrage abfangen
Name der aufrufenden Schaltfläche abfragen Abfrage der markierten Spalten
Anzahl der einzufügenden Zeilen abfragen Programmabbruch bei Überspeichernabfrage verhindern
Abfrage, ob ein Menü in einer Menüleiste vorhanden ist Web-Abfrage ohne *.iqy-Datei
Web-Aktienkursabfrage bei YAHOO Start- und Enddatum abfragen und markieren