Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
568to572
568to572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro um nach inhalten in anderen Excel-Dateien

Makro um nach inhalten in anderen Excel-Dateien
18.02.2005 09:49:46
Peter
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro um nach inhalten in anderen Excel-Dateien
18.02.2005 10:28:52
musa
wie kaman exel in vb makro machen.
dankeschün
Glaskugel
18.02.2005 10:41:15
Harald
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
AW: Glaskugel
Musa
Hey, ich habbe auch sehen!
AW: Makro um nach inhalten in anderen Excel-Dateien
Peter
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
Anzeige
AW: Makro um nach inhalten in anderen Excel-Dateien
18.02.2005 11:42:25
Harald
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

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige