Makro um nach inhalten in anderen Excel-Dateien

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Makro um nach inhalten in anderen Excel-Dateien "