Herbers Excel-Forum - das Archiv

Makro um nach inhalten in anderen Excel-Dateien

Bild

Betrifft: Makro um nach inhalten in anderen Excel-Dateien
von: Peter

Geschrieben am: 18.02.2005 09:49:46
Hallo
Hätte da mal eine Frage :
ist es möglich von einem Excelsheet aus ander excel-dateien nach deren inhalt zu durchsuchen, und wenn der entsprechende inhalt gefunden wurde diesen in die ursprüngliche datei zu schreiben
vielen dank für eure hilfe
Peter
Bild

Betrifft: AW: Makro um nach inhalten in anderen Excel-Dateien
von: musa
Geschrieben am: 18.02.2005 10:28:52
wie kaman exel in vb makro machen.
dankeschün
Bild

Betrifft: Glaskugel
von: Harald E

Geschrieben am: 18.02.2005 10:41:15
Hi Peter,
was dir der türkische Kameltreiber Musa mit Billig-Glaskugel(soll witzig sein)damit sagen will, ist:
a) ja, es ist wohl möglich (nutze den rekorder)
b) und warum sagst Du keinem wie die Dateien aussehen, nach welchen Inhalten gesucht werden soll und wohin diese Daten genau hinkopiert werden sollen.
Der Einzige der deine Datei gesehen hat, bist Du.
Beste Grüße
Harald
Bild

Betrifft: AW: Glaskugel
von: Musa
Geschrieben am: 18.02.2005 11:05:02
Hey, ich habbe auch sehen!
Bild

Betrifft: AW: Makro um nach inhalten in anderen Excel-Dateien
von: Peter

Geschrieben am: 18.02.2005 11:23:40
Geneauere Beschreibung:
Ich habe in einer zelle eine Zahl stehen zb: 20050012
diese zahl kommt in einer anderen Excel-Datei die auf einer anderen Festplatte liegt auch vor.
nun hätte ich gerne das aufgrund dieser zahl in der zelle, das makro die Excel-datei auf der anderen Festplatte sucht und dort eine Zahl in einer bestimmten Zelle kopiert und in das offen Excel-sheet einfügt
mftg
Peter
Bild

Betrifft: AW: Makro um nach inhalten in anderen Excel-Dateien
von: Harald E

Geschrieben am: 18.02.2005 11:42:25
Hallo Peter,
hier Ansatz zum Selberbasteln.
Sub kopieren()
Dim Filename As String
Filename = "M:\Ordner\NocheinOrdner\Datei" & ActiveCell & ".xls" 'statt activecell ggf. range("a1")
If Dir(Filename) = "" Then
MsgBox "Gesuchte Datei wurde nicht gefunden."
Exit Sub
Else
Workbooks.Open Filename
End If
Range("X2").Copy
Windows("Deine offene Datei.xls").Activate
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
End Sub

Gruß
Harald
 Bild
Excel-Beispiele zum Thema "Makro um nach inhalten in anderen Excel-Dateien "
Einlesen von Zellinhalten in Variablen Benennung und Aktivierung von CheckBoxes gem. Zellinhalten
Schaltflächen gem. Tabelleninhalten anlegen und benennen. Bezüge auf Namen in anderen Mappen aufheben
Blattinhalt von einer zur anderen Arbeitsmappe kopieren Sicherungskopie in einem anderen Verzeichnis erstellen
Bei geteiltem Fenster Kontextmenü im jeweils anderen Fenster Mit F6 Werte von einer zur anderen Zelle transferieren
Listen von Eingabedaten in einer anderen Tabelle CheckBox-Aktivierung in Abhängigkeit von anderen CheckBoxes